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Наши подарки и Лотерея 


Уважаемые читатели! У Вас есть возможность бесплатно получить одну из книг, 
внесенную в соответствующий список, либо приобрести со скидкой 10% любую из книг, 
предлагаемых книготорговым объединением «НОЛИДЖ-РИДАС». 

Это можно сделать, заполнив специальную форму (анкету) на нашем сайте 
УУ\УУ\У.КМОУУГЕО,СЕ.ВО или аналогичный бланк, прилагаемый к нашим новым кни- 
гам. К рассмотрению будут приниматься только анкеты, содержащие корректную 
информацию в обязательных полях. Для получении книги Вам необходимо приехать с 
заполненным бланком (или его ксерокопией) в фирму «Ридас» . Если Вы заполнили форму 
на сайте, то при получении книги необходимо предоставить распечатку результатов 
ввода данных (они выводятся на экран после нажатия кнопки «Внести»). 

Список книг, предлагаемых бесплатно, можно посмотреть на нашем сайте. При- 
обретая книгу со скидкой в 10%, Вы делаете покупку, которая в результате оказыва- 
ется на 40-50% дешевле, чем в любом магазине, учитывая оптовые цены нашего книго- 
торгового объединения. Приславшие анкету автоматически становятся участниками 
нашей лотереи. 


Лотерея 


Итак, Вы стали счастливым обладателем книги, выпущенной издательством “Но- 
лидж”. Теперь вы можете не только получить в подарок книгу и стать участником 
розыгрыша новых книг, но и выиграть в нашей лотерее ценный приз — современный 
персональный компьютер, лазерный принтер, устройство ОТР и т.д.. 

Для этого вам надо отрезать нижний красный уголок с задней стороны обложки 
этой книги и вместе с заполненной анкетой прислать по адресу: 113114, Москва, Шлю- 
зовая набережная, 10, издательство «Нолидж», или привезти анкету с уголком в фир- 
му “Ридас”. | 

ВНИМАНИЕ! На передней стороне обложки всех книг с уголком изображена боль- 
шая красная стрелка — это поможет Вам сразу узнать книги нашего издательства на 
полке в магазине. | 

Каждый человек, приславший нам красный уголок книги, заносится в базу данных 
для участия в розыгрыше призов. Если Вы укажите адрес вашей электронной почты, 
то обязательно получите письмо, подтверждающее Ваше участие в лотерее. 

ВНИМАНИЕ! Каждый присланный Вами уголок участвует в розыгрыше призов 
отдельно, повышая Ваши шансы на выигрыш. 


Первый розыгрыш призов состоится 13 апреля 1999 года, 
в день 35-летия издательства «Нолидж». 


Издательство оставляет за собой право не принимать к рассмотрению анкеты с 
незаполненными обязательными полями, а так же оформленными неразборчиво или не- 
серьезно! Ответы на вопросы анкеты очень важны для нас при выработке издатель- 
ской политики, с тем, чтобы издавалось больше интересных и нужных Вам книг. 

Издательство уведомляет, что фамилии и фотографии людей, выигравших призы 
в нашей лотерее, могут быть использованы нами в рекламных целях в книгах, журна- 
лах или в Пиегпей. 

Лица, приславшие 4 и более красных уголков, становятся участниками розыгрыша 
лотереи не только текущего года, но и всех последующих. Кроме того, учреждается 
специальный ежегодный приз для самого верного читателя “Нолидж”. 

У Вас есть возможность получать свежий прайс-лист по электронной или обыч- 
ной почте. Вы можете стать заказчиком нашей системы “книга-почтой” и опера- 
тивно получать любые интересующие Вас книги нашего и других издательств по поч- 
те в любом уголке мира. Отправьте соответствующее письмо. 


Заранее Вас благодарим! 
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П1.2.5. Меню опции КОМ ....... у зиьльиьнинананеввиваввеноно заявив азов ввоз ввозе вв вое вннининие 533 
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11.3. Директивы компилятора....... „инь... + ззоочаввовавь + ззооов оное зв вовавоововоовововев , озовови вова ово овоочаноненичиви ии в ззввевьнье 547 
П1.4, Редактор ....,. ие о озичиинивоьозоввоньввовввовиньоовввввви неназавазовввввьвавовззовинозоввпевовоозвовивенововововниввпововвввч вв вине воввниние 549 
1.4.1. Команды перемещения курсора........... Е евовевьн менее Я ененеовиневизаввзовивьиовововововвнивововззнвниововзичинивовезиниитенов 549 
1.4.2. Команды удаления/вставки......„.иеиениоионениооненинионивазвевионивиовононивеви вне визите тизининннннн 550 
П1.4.3. Команды работы с блоками......... „ео иниеновонивеновзииюньовповииовозннев ово ввозе вознвинев зип зинипзезининеанннинь 550 
1.4.4, Прочие команды...... „иль оизизизизономоиоюиоивиповововонононнииниовивовнвонивзизивививавививноннинвивиюниизиваннизитиувииаинаииня 550 
111.4.5. Команды, передаваемые среде из редактора еовааповвви почве во овавопоноио ввововово вврзвнчеввночев нева ообоовезонанон 551 
П1.5. Вызов Турбо-Паскаля........ „и неиьюоиввоновннь  еззиовчеовивизавевивививо вии вв внавввеиво воно визовивовввснивонивевоизовино вине инанинния 552 
112. Варианты кодировки знакогенераторов ПК......... еек ееениние неее нение аенниннининиие 553 
ПЗ. Сообщения и коды ошибОк.......„..елеиееиииноизвовововивениии  зениоввов ив зови ввоз онивовови изо вове из воньизозениньнея 555 
ПЗ.1. Сообщения об ошибках периода КОМПИЛЯЦИИ ......... иене иинениоие ви нниниозиаовивонив ии вуно внизу зоновневина 555 
3.2. Ошибки, возникающие во время выполнения программ.....,... „чине иионииеииниани зимою знонненние 565 
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14.2. Модуль 2ОЗ......, иене низине внавонезинавино пни иван нии зувнвиназв воно ввевине иво вивовичовивоввнюнония 576 
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П4.2.3. Переменные........... „ии инениио низине ния новини зиво вино инонинавззвовиновиньввяневичиоззновувовитиовивовини вино пичозиввовиневнне 577 
14.2.4. Процедуры и функциИ......... нии низьннниниииино нина ново виив новини вневьвовевиивинавв вии навнзвиненнвнно 578 

14.3. Модуль СКТ...... нии иизнивинониизионио ни вознневинзнавиа ознзионви ини зв незнание звание ново азии но новознииновевинено 580 
4.3.1. Константы... ини низине ион зиовивнио незнании чизивовьзнозивинониознонно визави неон вионеоваовозве воно вввенозневвьввозизивонвснне 580 
Г 4.3.2. Переменные........... „ие иене енот знань неявно ничо звони анонино вн вневиновановнвозвпвчиииновив иное 580 
4.3.3. Процедуры и функции...... „ии иовиоиниьнозининонививинивиаиноновизинзновионновивионевноиьнввввиввовививевоирвевизвиенноя 581 

14.4, Модуль Старн....... ини ии оао виаоввиониввюновновновивозчевиеьзовввовив оввеоваовувовивозивоввоьвовев ви зиосввевовевиносвиоонеовижониевия 582 
4.4.1. Константы... и иьзииизииио иное воине воввовивео виновато внятно взвоовивониев о зввз вов ивзоочесввзозинови вовне овизовуповинивтетовнения 583 
4.4.2. Типы... иене нонииозиниво визе втозовзнвзвоовиове иное оввонивиновво ввоза извнвсвавивовичо вов ововвч ваз взв чинно вивиновивозевинаниви 586 
4.4.3. Переменные............. узи оное возни новь виньпозиневззнавзивевововозиовввнивововьовввв вне звиво воин ввзивьвнчиовзввввнвивевние 586 
4.4.4, Процедуры... о, иеиионивимоиивичовионесииоиввввоневев но ввавивовивюовввонавовоиоовевововичовавиповьовизозаовивовивоновиповвовивзив невинно 586 
4.4.5. Функции... „оное нивозиьзно но нненио вино зизоннизниоинозииозвозно вино виновен изо вовне ниноввеовиовиновивозиознавуве ини иваининние 589 

П5. Тексты программ ......... уни иииеееининнь ионов ооеовеввневновьвиное ееееньне ееевенее о зооооовонавинавневивюниии 591 
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От автора 


=” Система программирования Турбо Паскаль, разработанная американ— 
ской корпорацией Бопапа, остается одной из самых популярных систем 
программирования в мире.| Этому способствуют, с одной стороны, простота 
лежащего в ее основе языка программирования Паскаль, а с другой — труд 
и талант сотрудников ВоПапа во главе с идеологом и создателем Турбо 
Паскаля Андерсом Хейлсбергом, приложивших немало усилий к ее со- 
вершенствованию. Придлуманный швейцарским ученым Никласом Виртом 
как средство для обучения студентов программированию, язык Паскаль 
стараниями А.Хейлсберга превратился в мощную современную профес- 
сиональную систему программирования, которой по плечу любые задачи — 
от создания простых программ, предназначенных для решения несложных 
вычислительных задач, до разработки сложнейших реляционных систем 
управления базами данных. `Когла в далеком 1986 году я начинал работу с 
Турбо Паскалем, я не мог предположить какую огромную роль в моей 
жизни сыграет эта замечательная система программирования. Сегодня 
Турбо Паскаль — мой самый любимый профессиональный инструмент. 
Появление ИЙЛтао"и$з и инструментальных средств Войапа Раса]! ийй ОБес!5 
и Реры для разработки программ в среде ИЙЛпаом$ лишний раз показало, 
какие поистине неисчерпаемые возможности таит он в себе: и Войапа 
Разса1, и используемый в РерШ язык ОБес| Разса! основываются на Турбо 
Паскале и развивают его идеи. 

В первой части этой книги описывается ядро системы программиро— 
вания — язык Турбо Паскаль и стандартные библиотеки СКАТ и СКАРН. 
Эта часть рассчитана, в основном, на начинающих программистов же- 
лающих овладеть азами искусства программирования и попробовать свои 
силы в решении относительно несложных задач. 

Во второй части рассматривается объектно—ориентированная биб— 
лиотека Тигро У5$1оп, предназначенная для разработки современных 
диалоговых программ средней сложности. › 

Проблемы расширения стандартных средств Турбо Паскаля и разра-— 
ботки собственного инструментария для гибкого управления техническими 
возможностями персонального компьютера, а также практические реко— 
мендации по программированию в защищенном режиме работы процес-о 
сора и адаптации Ваших программ к работе в среде ИЙЛтаот$ рассматри — 
ваются в другой моей книге — «Турбо Паскаль. Расширение возможно— 
стей», которая дополняет эту и, как и она, выпускается издательством 
«Нолидж». 

В основу книги положен материал, опубликованный мною ранее в 
других книгах, посвященных Турбо Паскалю. При подготовке этого из-— 
дания он был дополнен и исправлен, однако большая его часть осталась без 
изменения, т.к. остался без изменения и сам Турбо Паскаль. Впереди — 
Де]рш, но это тема другой книги. 
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ЗНАКОМСТВО СО СРЕДОЙ ТУРБО ПАСКАЛЯ 


Система программирования Турбо Паскаль ' ‘представляет собой единство 
двух в известной степени самостоятельных начал: компилятора с языка 
программирования Паскаль (язык назван в честь вылающегося француз — 
ского математика и философа Блеза Паскаля (1623 — 1662)) и некоторой 
инструментальной программной оболочки, способствующей повышению 
эффективности создания программу Г ДлЯ краткости условимся в даль- 
нейшем называть реализуемый кбмпилятором язык программирования 
Паскаль языком Турбо Паскаль, а разнообразные сервисные услуги, пре— 
длоставляемые программной оболочкой — средой Турбо Паскаля.? 

Среда Турбо Паскаля — это первое, с чем сталкивается любой про -— 
граммист, приступающий к практической работе с системой. (Если по 
каким —либо причинам Вы не собираетесь писать собственные программы, 
можно пропустить эту главу, в которой приводятся минимальные сведения 
об основных приемах работы в среде Турбо Паскаля. Более полные све-— 
дения о ней содержатся в прил. 1.- 


1.1. КАК НАЧАТЬ РАБОТУ С ТУРБО ПАСКАЛЕМ 


Система Турбо Паскаль довольно значительна по объему. Она постав — 
ляется на нескольких листрибутивных дискетах и устанавливается на 
жесткий диск. При развертывании системы на жестком диске обычно 
создается отдельный каталог с именем ТР (или РА$, ГОКВОРА5, РАЗСАГ и 
т.п.), в который помещаются все файлы с дистрибутивных дискет. Для 
вызова Турбо Паскаля необходимо отыскать в древовидной структуре 
каталогов ПК этот каталог и в нем файл с именем ТОКВО.ЕХЕ. Этот файл 
содержит готовую к работе диалоговую систему программирования Турбо 
Паскаль. В него входят минимально необходимые части Турбо Паскаля 
(текстовый редактор, компилятор, компоновщик, загрузчик). Для нор-— 
мальной работы в диалоговой среде понадобятся также основная биб-— 
лиотека, располагающаяся в файле ТОКВО.ТРЕ, и справочная служба (файл 
ТОЕВВО.НЕР). В принципе, этих файлов достаточно для написания, ком — 
пиляции и исполнения большинства примеров, солержащихся в этой 
книге. 

Пусть перечисленные файлы располагаются в каталоге ТР на диске ШО. 
Тогда для вызова Турбо Паскаля следует дать команду 


р: \ТР\ТОВВО 


По этой команде операционная система М5-—РО5$ поставит на испол -— 
нение программу из файла ГТОКВО.ЕХЕ: загрузит программу в оперативную 
память и передаст ей управление. 

Не рекомендуется работать с системой, назначив в качестве каталога по 
умолчанию (текущего каталога) тот, в котором хранятся перечисленные 
выше файлы (этот каталог будем называть системным). Во-первых, в 
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таком случае можно ошибочно стереть какой-либо из файлов системы 
программирования и тем самым нарушить ее работоспособность а во— 
вторых, этот каталог очень скоро заполнится другими файлами, прямо не 
относящимися к Турбо Паскалю. Существует и еще одна причина, по 
которой нежелательно работать в системном каталоге. Дело в том, что 
Турбо Паскаль имеет свойство «запоминать» свою настройку в лвух 
файлах с именами ТОАВО.ТР и ТОЕВО.РСК. При вызове система начинает 
поиск этих файлов в текущем каталоге. Если этот каталог — Ваш инди — 
видуальный, система всякий раз будет настраиваться так, как Вы этого 
хотите. Если эти файлы не обнаружены в Вашем каталоге (а при первом 
обращении к Турбо Паскалю так оно и будет), система продолжит поиск в 
системном каталоге, а не найдя их там, настроится стандартным образом. 
Впоследствии можно сохранить настроечные файлы в своем каталоге и тем 
самым избавить себя от необходимости перенастройки системы всякий раз 
при обращении к ней. 

После успешного вызова системы экран ПК приобретает вид, пока— 
занный на рис.1.1. | 


Сотр!1е „Дебиу Тоо!$ Ор толз 9 ад. Не1р. 
НОНАМЕВВ . РАЗ 


Еа1тЕ Зеагсн Вип. 


= Ее. 
[8] 


Рис.1.1. Вид экрана после вызова турбо Паскаля | 


Сразу же скажем, что для выхода из Турбо Паскаля следует нажать 
клавишу АЙ и, не отпуская ее, — клавишу с латинской буквой Х, после 
чего можно отпустить обе клавиши. 

Верхняя строка содержит «меню» возможных режимов работы Турбо 
Паскаля, нижняя — краткую справку о назначении основных функцио— 
нальных клавиш. Вся остальная часть экрана принадлежит окну редактора, 
очерченному двойной рамкой и предназначенному для ввода и коррекции 
текста программ. В его верхней строке приводятся имя того дискового 
файла, откуда был прочитан текст программы (новому файлу присваи— 
вается имя МОМАМЕОО.РА$), два специальных поля, используемых при 
работе с устройством ввода «мышь» (эти поля выделены квадратными 
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скобками), и цифра 1 — номер окна. В Турбо Паскале можно работать 
одновременно с несколькими программами (или частями одной крупной 
программы), каждая из которых может располагаться в отдельном окне 
редактора. Среда позволяет использовать до девяти окон редактора од— 
новременно. 

Кроме окна (окон) редактора, в Турбо Паскале используются также 
окна: отладочного режима, вывода результатов работы программы, спра— 
вочной службы, стека, регистров. По желанию они могут вызываться на 
экран поочередно или присутствовать на нем одновременно. 


1.2. ФУНКЦИОНАЛЬНЫЕ КЛАВИШИ 


_ Функциональные клавиши используются для управления средой Турбо 
Паскаля. Они обозначаются [Ё1, Ё2, .., Р12 и располагаются в самом 
верхнем ряду клавиатуры. С кажлой из этих клавиш связывается неко — 
торая команда меню. Действие почти всех функциональных клавиш можно 
модифицировать тремя особыми клавишами: АЁ (от А[ГТегпайуе — допол- 
нительный), СШ (СопТКоЁ — управление) и 5ШН ($ШШЕТ -— сдвиг). Эти 
клавиши используются подобно клавише временной смены регистра на 
пишущей машинке: нужно нажать на одну из них и затем, не отпуская ее, 
нажать функциональную клавишу. В дальнейшем такое совместное на 
жатие двух клавиш будем обозначать чертой. Например, АШ-Ё3 означает, 
что вместе с клавишей АП необходимо нажать клавишу ЁЕ3, СШ-Е9 — 
вместе с СЫ] нажимается клавиша Р9 и т.д. 

Ниже приводятся команды, которые передаются среде Турбо Паскаля 
функциональными клавишами и некоторыми их комбинациями с кла- 
вишами СШ и АЁ: 

Е1 — обратиться за справкой к встроенной справочной службе (Нер — 
помощь}; 

Е2 -— записать редактируемый текст в дисковый файл; 

ЕЗ3 — прочитать текст из дискового файла в окно редактора; 

Е4 — используется в отладочном режиме: начать или продолжить ис-— 
полнение программы и остановиться перед исполнением той ее строки, на 
которой стоит курсор; 

Е5 — распахнуть активное окно на весь экран; 

Еб — сделать активным следующее окно; 

Н7 — используется в отладочном режиме: выполнить следующую строку 
программы; если в строке есть обращение к процедуре (функции), войти в 
эту процедуру и остановиться перед исполнением первого ее оператора; 

Е8 — используется в отладочном режиме: выполнить следующую строку 
программы; если в строке есть обращение к процедуре (функции), ис- 
полнить ее и не прослеживать ее работу; 

Е9 — компилировать программу, но не выполнять ее; 


Е10 — перейти к диалоговому выбору режима работы с помощью 
главного меню; 
СИ1-Ед —. выполнить прогон программы: компилировать программу, 


находящуюся в редакторе, загрузить ее в оперативную память и выпол— 
нить, после чего вернуться в среду Турбо Паскаля; 
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АЙ-Р5 — сменить окно редактора на окно вывода результатов работы 
(прогона) программы. 

Полное описание функциональных клавиш содержится в прил.1, а 
сейчас — самый краткий комментарий. 

Во—первых, Вам понадобятся команды СН!-Е9 для проверки работы 
Вашей программы и АП-—Х для выхода из Турбо Паскаля. Клавиши ЁЕ2 и Е3 
помогут Вам в работе с Вашим каталогом. Командой АГТ-ЁР5 Вы в любой 
момент сможете просмотреть данные, выданные на экран в результате 
прогона программы. 


1.3. ТЕКСТОВЫЙ РЕДАКТОР 


Текстовый редактор среды Турбо Паскаля предоставляет пользователю 
удобные средства создания и редактирования текстов программ. При— 
знаком того, что среда находится в состоянии редактирования, является 
наличие в окне редактора курсора — неболыного мигающего прямо — 
угольника. Режим редактирования автоматически устанавливается сразу 
после загрузки Турбо Паскаля. Из режима редактирования можно перейти 
к любому другому режиму работы Турбо Паскаля с помощью функцио — 
нальных клавиш или выбора нужного режима из главного меню. Если 
среда находится в состоянии выбора из меню, курсор исчезает, а в строке 
меню появляется цветной указатель — прямоугольник, выделяющий одно из 
кодовых слов. Для перехода от состояния выбора режима из главного 
меню в состояние редактирования нужно нажать клавишу Езс (Е5Саре — 
ускользать, убегать), а для перехода к выбору из главного меню — [10. 

Рассмотрим основные приемы работы с текстовым редактором. 

Для создания текста программы нужно ввести этот текст с помощью 
клавиатуры ПК подобно тому, как это делается при печатании текста на 
пишущей машинке. После заполнения очередной строки следует нажать на 
клавишу Еп{ег, чтобы перевести курсор на следующую строку (курсор 
всегла показывает то место на экране, куда будет помещен очередной 
вводимый символ программы). 

Окно редактора имитирует длинный и достаточно широкий лист бумаги, 
фрагмент которого виден в окне. Если курсор достиг нижнего края, 
осуществляется прокрутка окна редактора: его содержимое смещается 
вверх на одну строку и снизу появляется новая строка листа. Если курсор 
достиг правой границы экрана, окно начинает по мере ввода символов 
смещаться вправо, показывая правый край листа. Размеры листа по го— 
ризонтали и вертикали ограничиваются только общим числом символов в 
файле, которых не должно быть больше 64535, однако компилятор Турбо 
Паскаля воспринимает строки программы длиной не более 126 символов. 

Окно можно смещать относительно листа с помощью следующих 
клавиш: 

РООр — на страницу вверх (Рабе ИР — страницу вверх}; 

Рарп — на страницу вниз (РаСе РомМ — страницу вниз}; 

Ноте — в начало текущей строки (НОМЕ — домой); 

Епа -— в конец текущей строки (ЕМР — конец}; 

СШ-РаОр — в начало текста; 
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СШ-Рарп -— в конец текста. 

Клавишами перевода курсора (эти клавиитги помечены соответст— 
вующими стрелками и располагаются в правой части клавиатуры) его 
можно смещать по экрану. При достижении курсором границ окна оно 
смещается на строку или на символ. 

Если Вы ошиблись при вводе очередного символа, его можно стереть с 
помощью клавиши, обозначенной стрелкой влево (клавиша ВасКзрасе 
располагается над клавишей Еще’. Клавиша Де! (от РЕГее — стирать) 
стирает символ, на который в данный момент указывает курсор, а команда 
СШ-У -— всю строку, на которой располагается курсор. 

Следует помнить, что редактор Турбо Паскаля вставляет в конце ка-— 
ждой строки невидимый на экране символ- разделитель. Этот символ 
вставляется клавишей Ещег, а стирается клавишами ВасК5расе или Пе]. С 
помошью вставки/стирания разделителя можно «разрезать»/«склеить» 
строки. Чтобы «разрезать» строку, следует подвести курсор к нужному 
месту и нажать клавишу Ещег, чтобы «склеить» соседние строки, нужно 
установить курсор в конец первой строки (для этого удобно использовать 
клавишу Еп) и нажать клавигту Пе] или установить курсор в начало 
следующей строки (клавишей Ноте} и нажать клавишу Васё5расе. 

Нормальный режим работы редактора — режим вставки, в котором 
каждый вновь вводимый символ как бы «раздвигает» текст на экране, 
смещая вправо остаток строки. Следует учитывать, что «разрезание» и 
последующая вставка пропущенных строк возможны только в этом ре-— 
жиме. Редактор может также работать в режиме наложения новых сим- 
волов на существующий старый текст: в этом режиме новый символ за-— 
меняет собой тот символ, на который указывает курсор, а остаток строки 
справа от курсора не смещается вправо. Для перехода к режиму нало— 
жения нужно нажать клавишу 115$ (ПУ5ей — вставка), если нажать эту 
клавишу еще раз, вновь восстановится режим встазки. Признаком того, в 
каком режиме работает редактор, является форма курсора: в режиме 
вставки курсор похож на мигающий символ подчеркивания, а в режиме 
наложения он представляет собой крупный мигающий прямоугольник, 
заслоняющий символ целиком. 

И еще об одной возможности редактора. Обычно редактор работает в 
режиме автоотступа. В этом режиме каждая новая строка начинается в той 
же позиции на экране, что и предылущая. Режим автоотступа поддер-— 
живает хороший стиль оформления текстов программ: отступы от левого 
края выделяют тело условного или составного оператора и делают про— 
грамму более наглядной. Отказаться от автоотступа можно командой СН- 
О Г (при нажатой клавише СШ нажимается сначала клавиша О, затем О 
отпускается и нажимается клавиша 1, повторная команда СИ]-О Г вос- 
становит режим автоотступа. 

Ниже перечислены наиболее часто используемые команды текстового 
редактора Турбо Паскаля. 

Смещение курсора 

РдОр — на страницу вверх; 

Рарп — на страницу вниз; 

Ноте - в начало строки; 
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Епа - в конец строки: 

СШ-РООр - в начало текста; 

СШ-РаДп - в конец текста. 

Команды редактирования 

ВасЁ5расе — стереть символ слева от курсора; 

Ре! — стереть символ, на который указывает курсор; 

СШ-У — стереть строку, на которой располагается курсор: 

Етег — вставить новую строку, разрезать старую; 

СШ-О Г - восстановить текущую строку (действует, если курсор не 
покидал измененную строку). 

Работа с блоком 

СШ-К В — пометить начало блока; 

СШ-К К — пометить конец блока; 

СШ-К У — стереть блок; 

СШ-К С - копировать блок; 

СШ-К У - переместить блок; 

СШ-К И’ — записать блок в дисковый файл; 

СШ-К К — прочитать блок из дискового файла; 

СШ-К Р - напечатать блок. 


1.4. ОСНОВНЫЕ ПРИЕМЫ РАБОТЫ 
В СРЕДЕ ТУРБО ПАСКАЛЯ 


1.4.1. Работа с файлами 


Как уже говорилось, сразу после запуска Турбо Паскаля среда авто - 
матически переходит в режим редактирования текста, в котором можно 
подготовить новую программу или исправить существующую. 

Основной формой хранения текстов программ вне среды являются 
файлы. После завершения работы с Турбо Паскалем можно сохранить 
текст новой программы в дисковом файле с тем, чтобы использовать его в 
следующий раз. Аля обмена данными между дисковыми файлами и ре- 
лактором среды предназначены клавиши Ё2 (запись в файл) и Р3 (чтение 
из файла). Если Вы создаете новую программу, то среда еще не знает имя 
того файла, в который Вы захотите поместить текст этой программы, и 
поэтому она присваивает тексту стандартное имя МОМАМЕОО.РА$ (МО 
МАМЕ — нет имени). Аля сохранения текста программы в файле нужно 
нажать на клавишу Е2. В этот момент среда проверит имя и, если это — 
стандартное имя МОМАМЕЁ, спросит, нужно ли его изменять: на экране 
появится небольшое окно запроса с надписью в верхней части: 


бауе #11е аз 
(Сохранить в файле с именем) 


Ниже надписи располагается поле для ввода имени файла, в котором 
можно написать любое имя и нажать клавипиту Ещег, текст будет сохранен 
в файле. Если в имени файла опущено расширение, среда присвоит файлу 
стандартное расширение .РА5. 
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Если завершена работа с Турбо Паскалем (командой АЙ-Х), но не со- 
хранен текст программы на диске, на экране появится окно с запросом: 


МОМАМЕОО.РАЗ Ваз Бееп тмоа1ЁЕ1еа. 
бауе? 
(Файл МОМАМЕОО.РАЗ был изменен. 
Сохранить?) 


В ответ следует нажать У (Уез$ — да), если необходимо сохранить текст в 
файле, или М (№ — нет), если сохранять текст не нужно. 


1.4.2. Прогон и отладка программы 


После подготовки текста программы можно попытаться исполнить ее, 
т.е. откомпилировать программу, связать ее (если необходимо) с биб— 
лиотекой стандартных процедур и функций, загрузить в оперативную 
память и передать ей управление. Вся эта последовательность действий 
называется прогоном программы и реализуется командой СШ-Р9. 

Если в программе нет синтаксических ошибок, то все действия вы-— 
полняются последовательно одно за другим, при этом на экране сооб— 
щается о количестве строк откомпилированной программы и объеме 
доступной оперативной памяти. Перед передачей управления загруженной 
программе среда очищает экран (точнее, выводит на экран окно прогона 
программы), а после завершения работы программы вновь берет управ — 
ление компьютером на себя и восстанавливает на экране окно редактора. 

Если на каком —либо этапе среда обнаружила ошибку, она прекращает 
дальнейшие действия, восстанавливает окно редактора и помещает курсор 
на ту строку программы, при компиляции или исполнении которой об- 
наружена ошибка. При этом в верхней строке редактора появляется 
диагностическое сообщение о причине ошибки. Все это позволяет очень 
быстро отладить программу, т.е. устранить в ней синтаксические ошибки и 
добиться правильной ее работы. 

Если ошибка возникла на этапе работы программы, простое указание 
того места, где она обнаружена, может не дать нужной информации, так 
как ошибка может явиться следствием неправильной подготовки данных. 
Например, если ошибка возникла при извлечении корня из отрицательного 
числа, будет указан оператор, в котором осуществлялась сама операция 
извлечения корня, хотя ясно, что первопричину ошибки следует искать 
тдле—то раньше, там, где соответствующей переменной присваивается 
отрицательное значение. В таких ситуациях обычно прибегают к поша-— 
говому исполнению программы с помощью команд, связанных с клави— 
шами [4, Е? и Е8. Пока еще не накоплен достаточный опыт отладки, можно 
пользоваться одной клавишей Ё7, после нажатия на которую среда осу— 
ществит компиляцию, компоновку (связь с библиотекой стандартных 
процедур и функций) и загрузку программы, а затем остановит прогон 
перед исполнением первого оператора. Строка программы, содержащая 
этот оператор, будет выделена на экране указателем (цветом). Теперь 
каждое новое нажатие на ЁР7 будет вызывать исполнение всех операций, 
запрограммированных в текущей строке, и смещение указателя к сле— 
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лующей строке программы. В подозрительном месте программы можно 
просмотреть значения нужных Вам переменных или выражений. Для этого 
‚можно действовать следующим образом. Установите курсор в то место 
текущей строки, где написано имя интересующей Вас переменной, и 
нажмите СИ|-Е4. На экране откроется диалоговое окно, состоящее из трех 
полей. В верхнем поле будет стоять имя переменной. После этого нажмите 
на клавишу Ешег чтобы получить в среднем поле текущее значение этой 
переменной. Если перед командой СШ-Е4 курсор стоял на пустом участке 
строки или указывал на другую переменную, верхнее поле также окажется 
пустым или будет содержать имя этой другой переменной. В этом случае 
следует ввести с помощью клавиатуры интересующее Вас имя в верхнем 
поле и нажать клавишу Ещег. Кстати, таким образом можно вводить не 
только имена прослеживаемых переменных, но и выражения с их уча— 
стием — среда вычислит и покажет значение этого выражения. 


1.4.3. СправочнаяСлужба Турбо Паскаля 


Неотъемлемой составной частью среды Турбо Паскаля является 
встроенная справочная служба. Если Вы достаточно хорошо владеете 
английским языком, у Вас не будет проблем при работе с Турбо Паскалем: 
в затруднительной ситуации достаточно нажать на клавишу Ё1 и на эк- 
ране высветится необходимая справка. Эта справка зависит от текущего 
состояния среды (такую справочную службу называют контекстно— 
зависимой). Например, если нажать на Ё1 в момент, когда среда обна— 
ружила ошибку в программе, в справке будут сообщены дополнительные 
сведения о причинах появления этой ошибки и рекомендации по ее уст- 
ранению. 

Существуют четыре способа обращения к справочной службе непо-— 
средственно из окна редактора: 

Е1 — получение контекстно — зависимой справки; 

ЭНИ-Е1 — выбор справки из списка доступных справочных сообщений; 

СШ-Е1 -— получение справки о нужной стандартной процедуре, 
функции, о стандартной константе или переменной; 

АПН-Е1 — получение предыдущей справки. 

При использовании команды ЭМИ-Е1 на экране появляется справочное 
окно, содержащее упорядоченный по алфавиту список стандартных про — 
цедур, функций, констант и переменных, для которых можно получить 
справочную информацию. В этот момент клавишами смещения курсора 
следует передвинуть указатель в окне к нужному слову и нажать клавишу 
Етиег, чтобы получить справку. | 

Эту же справку можно получить и другим способом: напечатать на 
экране имя стандартной процедуры (функции, константы, переменной) или 
подвести курсор к имеющемуся уже в тексте программы стандартному 
имени и нажать СН]-Ё1. Среда проанализирует ближайшее окружение 
курсора, выделит стандартное имя и даст нужную справку. 

Доступ к справочной службе возможен и через главное меню Турбо 
Паскаля (подробнее о работе с меню см. прил.1). 
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Во многих случаях справка содержит пример небольшой программы, 
иллюстрирующей соответствующие возможности Турбо Паскаля. Не то- 
ропитесь запоминать или записывать на бумаге этот текст, его можно 
«вырезать» из справки и перенести в окно редактора. Для этого после 
вызова нужной справки нажмите клавишу АП и, не отпуская ее, — кла- 
вишу с латинской буквой Е — на экране раскроется дополнительное меню 
ЕАН. Затем клавишами смещения курсора подведите указатель (светлый 
прямоугольник) в меню к строчке Сору ехатр/!ез (копировать примеры) и 
нажмите клавишу ЕШег — текст примера скопируется во внутренний 
буфер редактора. Для извлечения примера из буфера следует нажать 
клавишу Езс, чтобы выйти из справочной службы, подвести курсор к 
свободной строке в окне редактора и дать команды 5-5 (копирование 
содержимого буфера в виде блока в текст программы) и СШ-К Н (убрать 
выделение блока цветом). 


Глава 2 


ЗНАКОМСТВО С ЯЗЫКОМ ТУРБО ПАСКАЛЯ 


В этой главе описывается ядро Турбо Паскаля — минимальный набор 
средств, достаточный для написания сравнительно простых программ. В 
частности, рассматриваются все операторы языка, наиболее популярные 
типы данных и операции над ними. Вы познакомитесь с приемами раз-— 
работки процедур и функций, позволяющими создавать структуриро— 
ванные программы. В заключительной части главы на примерах показано 
применение методики нисходящего программирования, обеспечивающей 
сравнительно простой и надежный способ детальной проработки алгоритма 
программы. 


2.1. ВАША ПЕРВАЯ ПРОГРАММА 


Для знакомства с языком Турбо Паскаля попробуем составить не— 
сложную программу, осуществляющую вывод какого —либо сообщения на 
экран ПК. Пусть это будет фраза «Я программирую на Турбо Паскале». 
Вот возможный вариант такой программы: 


Пример 2.1 
Рходгам Му Е1гз&© Ргодкам; 
соп$Е 
ТехЕ = 'Я программирую на Турбо Паскале'; 
Бед1п 
Мг1берРл (Тех®); 
епа. 


Прежде всего проанализируем форму представления текста. В про— 
грамме шесть строк. Строки программы обычно выделяют некоторые 
смысловые фрагменты текста и могут не связываться с конкретными 
действиями в программе: расположение текста программы по строкам — 
дело вкуса программиста, а не требование синтаксиса языка. Ту же про — 
грамму можно было бы написать, например, так: 


Ргодгам Му Е1гзе Ргодгам; сопз® ТехЕ = 
'Я программирую на Турбо Паскале';Ъедап Иг1ЕеГл(Тех®); епа. 


В отличие от некоторых других языков программирования пробел в 
языке Турбо Паскаль используется как разделитель отдельных конст— 
рукций языка, поэтому программа 


РКОСВАММу Г1гзе Ргодгам; сопз®Техе= 
'Я программирую на Турбо Паскале' ; ВЕСТМИг1ееГл (Техе) ;епа. 


будет неверной. 
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В Турбо Паскале игнорируется различие в высоте букв (заглавные или 
строчные), если только это не связано с текстовыми константами. Начало 
программы могло бы, например, выглядеть так: 


ргодгам пу Е1:5Е_ргоагам; 
Теперь о смысле отдельных строк. Первая строка 
Ргодгам Му Е1:5е Ргодгап; 


начинается словом Ргодхгам и содержит объявление имени программы. 
Слово Ргодгат зарезервировано в Турбо Паскале, т.е. не может исполь— 
зоваться ни в каких иных целях, кроме как для объявления имени про— 
граммы. В Турбо Паскале имеется множество зарезервированных слов (см. 
гл.3). Любое из них нельзя использовать в качестве идентификатора 
(имени) какого —либо объекта программы — переменной, константы и т.д. 
Замечу, что редактор среды Турбо Паскаля обычно выделяет зарезерви — 
рованные слова цветом. В связи с этим в тексте книги эти слова выделены 
жирным шрифтом. Поскольку имя программы никак в дальнейшем не 
используется, требование его объявления кажется излишним. В Турбо 
Паскале можно опускать объявление имени оператором Ргодгам без ка— 
ких — либо последствий для программы. 

В рассматриваемом примере имя Му Е1хгзЕ_Ргодгам есть не что иное, 
как английская фраза «Моя Первая Программа», но только написанная без 
пробелов — пробел является разделителем и не может использоваться 
произвольно (вместо пробелов в идентификаторах разрешается исполь— 
зовать символ подчеркивания). 

Первая строка заканчивается особым разделителем — точкой с запятой. 
Этот разделитель в языке Турбо Паскаль отмечает конец оператора или 
описания. Использование особого разделителя позволяет располагать не-— 
сколько операторов на одной строке. 

Вторая строка 


сопзе 


содержит единственное зарезервированное слово сопз+, означающее, что 
далее будут описаны одна или несколько констант (СОМ№5Тап5 -— кон- 
станты). Константами в языке считаются такие объекты программы, 
которые не могут изменять своего значения. В отличие от многих других 
языков программирования, константа в Турбо Паскале может иметь 
собственное имя, что соответствует принятой в научных и инженерных 
расчетах практике именования часто используемых констант. Например, 
со школы мы помним о существовании константы л=3.14159265. При об-— 
работке программы имя константы р! будет заменяться компилятором на 
ее значение. 

Описать константу в Турбо Паскале — значит указать ее имя и зна- 
чение. Такое указание содержится в третьей строке 


ТехЕ = 'Я программирую на Турбо Паскале’; 
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в которой константе с именем ТехЕ присваивается в качестве значения 
строка символов «Я программирую на Турбо Паскале». 

В Турбо Паскале могут использоваться константы разного типа — целые 
или вещественные числа, символы, строки символов, массивы И Т.А. 
Признаком того, что Тех является хонстантой типа строка символов, 
служат два апострофа, обрамляющих строку, причем сами апострофы этой 
строке не принадлежат, а лишь указывают компилятору на то, что все 
заключенные в них символы следует рассматривать как единое целое — 
текстовую константу. Если понадобится включить сам апостроф в тек— 
стовую константу, достаточно его написать дважды подряд. Например, 
описание 


ТехЕ = 'Турбо' 'Паскаль'; 
создаст константу со значением 
Турбо 'Паскаль 


Все три первые строки не связаны с какими-либо конкретными 
действиями при работе программы. Они сообщают компилятору некоторые 
сведения о самой программе и использующихся в ней объектах. Эта часть 
программы называется разделом описаний. Зарезервированное слово 
Бед1тп в четвертой строке сигнализирует компилятору о начале другой 
части программы — раздела операторов. В нашем примере этот раздел 
содержит оператор 


Му1Ее!л (ТехЕ); 


который, собственно, и выводит сообщение на экран компьютера. 
Завершает всю программу зарезервированное слово епа с точкой. Точка 
оповещает компилятор о конце текста программы. За сочетанием ела. 
можно размещать какой угодно текст — он не будет обрабатываться 
компилятором. 
Перед тем как попробовать откомпилировать и исполнить нашу про — 
грамму, обсудим ее единственный исполняемый оператор 


Мг1ЕеГл (Тех®); 


Любопытно, что в Паскале вообще и Турбо Паскале, в частности, нет 
специальных операторов ввода-вывода. Для обмена информацией с 
окружающим миром в программах, написанных на языке Турбо Паскаль, 
используются специальные стандартные процедуры. Таким образом, по 
своей сути оператор 


Иг1тее!л (Техе); 


является оператором обращения к встроенной процедуре вывода данных 
(свое название она получила от И/К1ТЕ ММ — записать строку). 

Понятие процедуры (см. гл.8) — одно из центральных понятий Турбо 
Паскаля. Процедура — это некоторая последовательность операторов, к 
которой можно обратиться по имени. Всякий раз, когла мы называем в 
операторе имя процедуры, инициируется последовательность запро— 
граммированных в ней действий. 
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Процедура Их1ЕеГлп относится к стандартным или встроенным проце- 
дурам Турбо Паскаля. Стандартная процедура не нуждается в предва— 
рительном описании, она доступна любой программе, в которой содер -— 
жится обращение к ней. Разница между оператором вывода и обращением 
к процедуре вывода состоит в том, что имя процедуры вывода, как и любой 
другой процедуры Турбо Паскаля, не является зарезервированным словом, 
а следовательно, пользователь может написать свою собственную проце-— 
дуру с именем Иг1ееЁлт. Впрочем, эта возможность для большинства 
пользователей остается лишь языковой тонкостью и очень редко исполь- 
зуется на практике. 

Процедура Мг1{е пл — одна из немногих процедур Турбо Паскаля, при 
обращении к которым допускается использование произвольного числа 
параметров. Параметры передаются процедуре в виде списка, распола— 
гающегося в круглых скобках сразу за именем процедуры. В нашем 
примере процедуре передается единственный параметр — константа Тех+. 
Как мы увидим дальше (см. гл.5), самым первым параметром при обра— 
щении к процедуре Иг1ееГл можно указать адрес приемника информации 
— устройство или дисковый файл, в который направляется вывод. Таким 
способом программист может легко переадресовать вывод данных. Если, 
как это сделано в нашем примере, адрес вывода не указан, вывод на-— 
правляется на экран дисплея. 

Анализируя всю программу в целом, мы обнаружим, что четыре ис- 
пользовавшихся в ней слова (Ргодгат, сопз®, Бед1п и епа) являются 
зарезервированными. Слово Иг1%еЁп, как уже отмечалось, не относится к 
зарезервированным, но вряд ли может возникнуть необходимость пере -— 
определить его, так как в этом случае программа лишится мощного и 
удобного средства вывода данных. Два слова — Му Е1г$Е Ргодгкаи и Тех® 
служат идентификаторами (именами) некоторых объектов программы. 
Программист может использовать в качестве идентификаторов любые 
последовательности символов, которые удовлетворяют следующим огра-— 
ничениям: 

е идентификатор может состоять из букв латинского алфавита, цифр, 
знака подчеркивания; никакие другие символы в идентификаторе 
недопустимы; 

е идентификатор не может начинаться с цифры; 

е идентификатор не может совпадать ни с одним из зарезервиро — 
ванных слов; 

е длина идентификатора может быть произвольной но значащими 
считаются первые 63 символа. 

Как и всюду в программе, в идентификаторах игнорируется разница в 
высоте букв, поэтому, например, идентификаторы Техе, сехЕ и ТЕХТ с 
точки зрения компилятора идентичны. 

Теперь попробуйте выполнить программу. Для этого после набора ее 
текста нажмите СИ1-Р9. Если Вы не ошиблись при вводе текста, то спустя 
несколько секунд заметите быструю смену изображений на экране: сразу 
после загрузки программы Турбо Паскаль очищает экран, предоставляя его 
в распоряжение работающей программы пользователя. Такой экран на— 
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зывается окном программы. После завершения прогона (работа программы 
часто называется ее прогоном) на экране вновь появится окно редактора с 
текстом программы. Если Вы не успели разглядеть изображение окна 
программы, нажмите АШ-ЁР5. После нажатия на любую клавишу среда 
вернет экран в режим воспроизведения окна редактора. 

Перед тем, как двигаться дальше, полезно подробнее ознакомиться с 
некоторыми возможностями среды Турбо Паскаля. Нажмите клавишу Е10, 
чтобы перейти к режиму выбора из главного меню, подведите указатель к 
опции Дерид (отладка) и нажмите клавишу ЕШег — на экране раскроется 
‘меню второго уровня, связанное с этой опцией. Новое меню как бы 
«выпало» из верхней строки, поэтому такое меню часто называют выпа— 
дающим. Отыщите в новом меню опцию Ошрш (вывод программы), под-— 
ведите к ней указатель и нажмите клавишу Ещег еще раз. На экране вновь 
появится окно программы, но оно уже не будет исчезать после нажатия на 
любую клавишу — экран будет связан с этим окном постоянно. Теперь 
добьемся того, чтобы на экране демонстрировались два окна одновремен — 
но: вновь нажмите клавишу [10, выберите Итаот, нажмите клавишу 
Ещег, подведите указатель к опции ТИе(черепица) и нажмите клавишу Ещег 
еще раз. Если все сделано правильно, экран приобретет вид, показанный 
на рис.2.1. 
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Я программирую на Турбо-Паскале 


КЕ Не! Т]>+. эсго 
Рис.2.1. Вид экрана с окнами редактора и программы 


Двойная рамка, очерчивающая окно программы, свидетельствует о том, 
что именно это окно активно в данный момент. Сделаем активным окно 
редактора: нажмем клавишу АП и, не отпуская ее, — клавишу с цифрой 1 
(окно редактора имеет номер 1, окно программы — номер 2, см. верхние 
правые углы рамок на рис.2.1). Теперь все готово К дальнейшим экспе — 
риментам с программой. 
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Попробуем изменить выводимый на экран текст. Например, уберем в 
конце третьей строки точку с запятой и отредактируем ее таким образом. 


ТехЕ = 'я учусь программировать на турбо паскале' 


Если Вы запустите программу вновь, нажав клавиши СШ-Е9, компи — 
лятор сообщит: 
Еггог 85: ";" ехресфея. 
(Ошибка 85: Отсутствует ";".), 


а редактор установит курсор на первый символ слова Ъед1п, показывая то 
место, где при разборе текста обнаружена ошибка (разделитель «;» может 
отделять от конца оператора сколько угодно пробелов; компилятор про-— 
пускает эти пробелы в поисках разделителя до тех пор, пока не обнаружит 
зарезервированное слово, — вот почему курсор стоит не в конце строки с 
объявлением константы, а перед словом Ъед1пт). Исправьте программу — 
поставьте в конце третьей строки разделитель «;» и вновь запустите счет. 
На этот раз все пройдет нормально, но вывод программы изменится, и в 
окне программы появится текст 


я учусь программировать на турбо паскале 


Этот текст строго соответствует заданному в текстовой константе на— 
бору символов, поэтому в нем отсутствуют прописные буквы. 


2.2. ТИПЫ ДАННЫХ 


Структура рассмотренной программы имеет следующий вид: 
Рхгодгат МуЕ1гзЕРгосдгат; 
{Раздел описаний} 
ред1п 
{Раздел операторов} 
епа. - 

Слова Ргодгат, Ъед1п и епа выделяют две части программы — раздел 
описаний и раздел операторов. Такая структура обязательна для любой 
программы, что является следствием жесткого требования языка: любой 
нестандартный идентификатор, используемый в исполняемых операторах, 
должен быть предварительно описан в разделе описаний. (Стандартные 
идентификаторы связаны с предварительно объявленными объектами и 
входят в стандартную библиотеку Турбо Паскаля. Таким, например, яв— 
ляется идентификатор Иг1+е1п. Стандартные идентификаторы, если они 
используются в программе, описывать не нужно). 

Требование предварительного описания идентификаторов кажется 
чрезмерно строгим и делающим язык менее свободным. На самом деле в 
нем проявляется тенденция развития языков программирования в сторону 
повышения надежности создаваемых программ. Кто программировал на 
Фортране или Бэйсике (в этих языках не требуется предварительное 
описание идентификаторов}, знает, как порой бывает трудно обнаружить в 
большой программе ошибочно введенный или пропущенный символ в 
идентификаторе. Если, например, всюду в программе используется не-— 
ременная с именем ЕРЗТГОМ, а в одном месте ошибочно написано ЕРЗТ.ОМ, 
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то программа может благополучно откомпилироваться и даже давать почти 
правдоподобный результат для некоторых наборов данных, но в какой -— то 
момент начнет вести себя странно. Обязательное предварительное опи-— 
сание идентификаторов в Турбо Паскале защищает программы от такого 
рода ошибок и повышает их надежность. 

Описать идентификатор — это значит указать тип связанного с ним 
объекта программы (константы или переменной). Понятие типа — одно из 
фундаментальных понятий Турбо Паскаля. В гл.4 подробно рассмотрены 
различные типы; чтобы пояснить описываемые ниже особенности языка и 
при этом не слишком забегать вперед, укажем, что тип определяет, во — 
первых, способ внутреннего для компьютера представления объекта и, 
во —вторых, действия, которые разрешается над ним выполнять. 

В рассматриваемых далее в этой главе программах понадобятся сле-— 
дующие типы данных: | 

® ТМТЕСЕВК — целочисленные данные, во внутреннем представлении 
занимают 2 байта; диапазон возможных значений — от —32768 до 
+ 32767; данные представляются точно; 

е ВЕАГ -— вещественные данные занимают 6 байт; диапазон воз— 
можных значений модуля — от 2.9Е—39 до 1.7Е-+ 38; точность 
представления данных — 11...12 значащих цифр; 

е СНАВ — символ, занимает 1 байт; 

® ОТВТМС — строка символов, занимает МАХ+1 байт, гле МАХ — 
максимальное число символов в строке; 

ое ВООЪТЕАМ — логический тип, занимает 1 байт и имеет два значения: 
ГАГЗЕ (ложь) и ТВОЕ (истина). 

Тип константы определяется способом записи ее значения. Например: 


сопзЕ 
с1 = 17; 
с2 = 3.14; 
СЗ = 'А!; 


с4 = '3.14'; 
с5 = ГРа]15е; 

При анализе этого фрагмента программы компилятор отнесет первую 
константу к типу ТМТЕСЕВ, вторую — к типу ВЕАЦ, третью — к СНАВ, 
четвертую — к $5ТВ1\№С и последнюю — к ВООЦЕАМ. Признаком, позво — 
ляющим отнести константу к ВЕАЬ или к ТМТЕСЕВ, является наличие или 
отсутствие десятичной точки в ее значении. Разумеется, константы С2 и С4 
относятся к разным типам: С2 — к ВЕАГ (в константе есть десятичная 
точка), а С4 — к $5ТВТМС (константа обрамлена апострофами). Константу 
СЗ компилятор будет считать относящейся к типу СНАБ: одиночный символ 
в апострофах относится к СНАВ, в то время как несколько символов -- к 
ЭТВТМС. 

В отличие от константы переменная именует объект программы, ко— 
торый может изменять свое значение в ходе счета. При описании пере — 
менных за идентификатором ставятся двоеточие и имя типа. Несколько 
однотипных переменных можно объединять в список, разделяя их запя— 
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тыми. В начале раздела описания переменных должно стоять зарезерви — 
рованное слово УАВ (УАК1аШез — переменные). Например: 


уаг 
$1ата : геа1; 
а, ю,с,Я : Спаг; 
фехе1 : 3651109 [15]; 
сехе2 : БЕГА; 
Е1аа : Воо1еап;. 


Как уже говорилось тип данных определяет длину внутреннего 
представления соответствующих переменных. В частности, длина внут— 
реннего представления переменных типа ЗТАТМС (строка символов) за— 
висит от максимального числа символов, которые могут составлять строку. 
В приведенном выше примере переменная +ех®1 описана с указанием ее 
максимальной длины (15 символов), а в описании переменной фехЕ2 
максимальная длина не указана и компилятор установит для нее предельно 
допустимую в Турбо Паскале длину — 255 символов. 

Рассмотрим еще одну несложную программу (пример 2.2). Ее назна— 
чение: ввести с клавиатуры два целых числа, найти результат деления 
первого числа на второе и вывести полученный результат на экран. 


Пример 2.2 
Ргодхгам Тприе Оперие; 
{Программа вводит два целых числа 
и выводит частное от деления 1-го на 2-е} 
уаг 
п1,1п2 : Тпбедег; {п1 и 12 - вводимые целые} 
х ‹ геа1; {х - результат] 
ВЕСТМ 
Иг1 ее ('11 = !'); {Сообщаем о вводе п1} 
ВКеааГп (11); {Вводим 11} 
Мулве ('п2 = !); {Сообщаем о вводе п2} 
Веа т (п2); {Вводим п2} 
х := 101/102; {Находим результат} 
Их вел ('п1/п2 = ',х); [Выводим его} 
ЕМО. 
Прежде всего бросается в глаза появление в программе поясняющих 
комментариев. Комментарий в Турбо Паскале — это произвольная по- 


следовательность любых символов, обрамленная фигурными скобками. 
Комментарий разрешается вставлять в любое место программы, где по 
смыслу может стоять пробел. В качестве ограничителей комментария до-— 
пускается использование фигурных скобок «{» и «}», а также пары сим-— 
волов: «("» — слева от комментария и «“)» — справа от него: 
{ Это - комментарий } 
(+ Это - тоже комментарий *)1 


1 Редактор Турбо Паскаля выделяет комментарии наклонным шрифтом (курсивом). Тэчно 
так же выделяются комментарии и в тексте книги. 
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Комментарии с однотипными ограничителями нельзя вкладывать друг в 
друга, т.е. недопустимы последовательности вида 


и... ре. } ИЛИ (*... (0... *) ... *) 


Однако можно вкладывать комментарии с ограничителями разных 
типов (не более одной глубины вложения): 


о. (*.. *) ... Л или (*... Г... р... ) 


Последнее обстоятельство проясняет кажущуюся странной избыточ — 
ность ограничителей: если всюду в программе будут использоваться ог— 
раничители одного типа, То для того, чтобы временно исключить из про -— 
граммы какой —либо фрагмент текста, достаточно заключить его в огра-— 
ничители другого типа. 

Наличие комментариев в программе избавляет меня от необходимости 
пояснять назначение отдельных строк программы. Несколько слов о вводе 
данных. Пары операторов 


Иг1ве (..) 
ВеааГл (..) 


® 
, 
® 
у 


работают следующим образом. Вначале оператор Иг1%е выводит строку на 
экран и оставляет курсор в конце только что выведенной строки текста. 
Заметим, что оператор 


Мг еГл (Тех+*); 


в примере 1 после вывода текста осуществлял перевод строки и устанав — 
ливал курсор в начало слелующей строки экрана. Именно в этом простом 
действии (переводе строки} заключается единственное отличие в работе 
процедуры Мг1+еГл от процедуры Иг1е. 

Затем по оператору ВеаЧаТп вызывается встроенная процедура ввода 
данных и программа останавливается в ожидании ввода. В этот момент 
необходимо набрать на клавиатуре нужное число и нажать клавишу ЕпЁег. 
Сразу после этого программа продолжит работу: проанализирует вве-— 
денное число и перейдет к вводу следующего числа или вычислению ре-— 
зультата. Таким образом, сигналом окончания подготовки очередного числа 
является нажатие на клавишу Ешег, до этого момента можно стирать 
любой ошибочно введенный символ клавишей ВасКзрасе. 

Для вычисления отношения введенных чисел используется один из 
основных операторов Турбо Паскаля — оператор присваивания. В его 
левой части указывается имя переменной, правая часть представляет собой 
выражение того же типа, что и переменная. Пара символов «:=», связы — 
вающая левую и правую части оператора присваивания, означает 
«присвоить значение». Запомним: в операторах присваивания Турбо 
Паскаля всегда используются символы «:=», в то время как при описании 
констант — одиночный символ «=». С точки зрения синтаксиса языка, два 
символа «:=» рассматриваются как один специальный символ и обяза— 
тельно пишутся слитно. 


Оператор присваивания используется практически во всех языках 
программирования. В некоторых языках, например в Фортране или Бей -— 
сике, символом присваивания является знак равенства, однако новичка, 
привыкшего к строгости математических формул, может озадачить ти— 
пичная форма записи фортран — оператора присваивания, например, такая: 


Хх=Х+1 
Вариант записи этого же оператора на Турбо Паскале: 
Х := Хх +1; 


в этом смысле кажется более логичным. Разумеется, вряд ли кому -— нибудь 
придет в голову видеть уравнения там, где их нет и не может быть. Ко- 
нечно же, и в том, и в другом случае реализуется одно и то же алгорит— 
мическое действие: к содержимому Х прибавляется 1 и полученный ре- 
зультат вновь присваивается переменной Х. Обратите внимание на опе-— 
ратор вывода результатов 


Му1 вел ('1п1/п2 = !,х); 


В нем в качестве одного из параметров явно указывается константа 
типа строка символов 'п1/п2 = '. Конечно же, константы (в отличие от 
переменных) вовсе не обязательно описывать в разделе описаний, так как 
их тип легко определяется компилятором по форме записи константы. С 
учетом этого можно было бы записать программу из примера 1 предельно 
лаконично: 


Ьедзп Иг1еерп('Я программирую на Турбо Паскале'); епа. 


2.3. ПРЕОБРАЗОВАНИЯ ТИПОВ И ДЕЙСТВИЯ НАЛ НИМИ 


Как уже говорилось, тип переменной позволяет не только устанав— 
ливать длину ее внутреннего представления, но и контролировать те 
действия, которые выполняются над ней в программе. Контроль за ис- 
пользованием переменных еще на этапе компиляции программы — важное 
преимущество Турбо Паскаля перед другими языками программирования, 
в которых допускается автоматическое преобразование типов. В Турбо 
Паскале почти невозможны неявные (автоматические) преобразования 
типов. Исключение сделано только в отношении констант и переменных 
типа ТМТЕСЕВ (целые), которые разрешается использовать в выражениях 
типа ВКЕАГ (вещественные). Если, например, переменные Х и У описаны 
следующим образом: 

уаг 
х: Тп6едег; 
у: геа1; 


то оператор 
у :=х+2; 


будет синтаксически правильным. хотя справа от знака присваивания 
стоит целочисленное выражение, а слева — вещественная переменная, 
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компилятор сделает необходимые преобразования автоматически. В то же 
время оператор 


х := 2.0; 


будет неверным, так как автоматическое преобразование типа ВЕАЦ, 
(константа 2.0 содержит десятичную точку и, следовательно, принадлежит 
к типу ВЕАГ) в тип ТМТЕСЕК в Турбо Паскале запрещено. 

Разумеется, запрет на автоматическое преобразование типов еще не 
означает, что в Турбо Паскале нет средств преобразования данных. Они, 
конечно же, есть, но их нужно использовать явно (подробнее об этом см. 
гл.4). Для преобразования данных в языке существуют встроенные 
функции, которые получают в качестве параметра значение одного типа, а 
возвращают результат в виде значения другого типа. В частности, для 
преобразования КЕАЦ в ТМТЕСЕВ имеются даже две встроенные функции 
такого рода: КОП0МР округляет ВЕАЪ до ближайшего целого, а ТКОМС усекает 
ВЕАГ путем отбрасывания дробной части. 

Например, ошибочным будет оператор 


х := у/х; 
но правильным 
х := компа (у/х); 


(объявления переменных см. выше). 

Понятие функции в Турбо Паскале близко к понятию процедуры. Как и 
процедура, функция вызывается своим именем и может содержать 
произвольное число операторов Турбо Паскаля и даже внутренних про-— 
цедур и функций. Существенным отличием функции от процедуры яв— 
ляется то обстоятельство, что функция имеет собственное значение и, 
следовательно, может использоваться наравне с переменными в выра-— 
жениях соответствующего типа. 

Для преобразования данных типа СНАВ (символ) в целое число пред— 
назначена функция ОВР, обратное преобразование ТМТЕСЕВ в СНАВ 
осуществляет функция СНВ. 

С. помощью следующей несложной программы (пример 2.3) Вы сможете 
узнать внутренний код произвольного символа. 


Пример 2.3 
Рходхам Со4е_оЕ_Сраг; 
{Программа читает символ с клавиатуры и выводит на экран 
этот символ и соответствующий ему внутренний код} 


уаг 
СВ: Сцваг; {В эту переменную читается символ} 
Ъедап 
Мх1Ее ('Введите любой символ: '); 
ВеааГл (сп); {Читаем один символ} 
Иг1еетТл (св,' = ',ога (св )); {Преобразуем его к 


целому и выводим на экран} 
ЕКО. 
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Обратите внимание: при вызове 
Их ЕеГп (сп,' = ',ока (сВ)); 


третьим параметром обращения указан вызов функции ОВО (СН), что с 
точки зрения языка является выражением; как мы увидим дальше (см. гл.8), 
во многих случаях при вызове процедур и функций в качестве параметров 
вызова можно указывать не только переменные или константы, но и 
выражения с их участием. 

По мере надобности мы будем знакомиться с другими функциями пре-— 
образования типов данных, а сейчас — о тех операциях, которые разре -— 
шены над различными типами. 

Конечно же, в Турбо Паскале есть все четыре арифметические опе— 
рации над переменными ВЕАГ и ТМТЕСЕВ: 


+ — сложение; 
- — вычитание; 
* — умножение; 
/ — деление вещественное; 
Чу — деление целочисленное. 


Наличие двух операций деления есть еще одно проявление осново— 
полагающего принципа Турбо Паскаля: программист должен явно под— 
тверждать компилятору, что он готов к возможным последствиям пре— 
образования типов. Если, например, в языке Фортран используется вы-— 
ражение 1/2, то результат этого выражения будет зависеть от того, пе— 
ременной какого типа он будет присвоен: если М есть переменная целого 
типа, а Х — вещественного, то в программе на Фортране присваивания 


№ = 1/2 
Х = 1/2 


дадут значения 0 для №и 0.5 для Х. В Турбо Паскале такой двусмыс-— 
ленности нет: выражение 1/2 всегла имеет значение 0.5 и поэтому опе- 


ратор 


уаг 
№ : ТоЕедег; 
Беда 
№ := 1/2; 


просто недопустим. В то же время допустимый в Турбо Паскале оператор 


уаг 


самим фактом использования операции целочисленного деления ОТУ 
свидетельствует о том, что программист сознательно отбрасывает дробную 
часть результата. (Надеюсь, что читатель извинит явную искусственность 


2—1411 
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этих примеров, которая вызвана лишь стремлением проиллюстрировать 
обсуждаемые особенности языка). 

Для данных типа ТМТЕСЕК в Турбо Паскале есть еще одна операция МОБ 
— получение остатка от целочисленного деления. Например: 


5 моа 2 = 1 
31 моа 16 = 15 
18 моа 3 = 0 


В Турбо Паскале отсутствует операция возведения в степень, что, 
очевидно, будет вызывать определенные неудобства при реализации вы — 
числительных алгоритмов. Некоторым утешением может служить наличие 
встроенной функции 5ОВ, возвращающей квадрат от значения параметра, 
причем тип результата определяется типом параметра. 

И еще об одном существенном недостатке Турбо Паскаля: в нем от-— 
сутствуют комплексный тип и соответствующие операции над ним. Вооб— 
ще, в отношении реализации разнообразных вычислительных процедур 
Турбо Паскаль значительно уступает некоторым другим языкам про— 
граммирования, в частности, тому же Фортрану. В частности, в нем на-— 
много беднее набор встроенных математических функций (см. гл. 4). 

При работе с целыми числами могут оказаться полезными две проце — 
дуры (здесь и далее в квадратных скобках указываются необязательные 
параметры): 

РЕС(Х [,№]) -— уменьшает содержимое переменной Х на значение 
выражения М (если М не задано, то на 1); тип переменной Х и выражения 
М — ТМТЕСЕБВ (точнее, любой целый, см. гл. 4); | | 

ТМС(Х [,№]) — увеличивает значение Х на М (если М не задано, то на 
1). 

Над символами и строками символов определена единственная опе— 
рация — сцепление двух строк. Операция обозначается символом «+». 


Например, программа 


уах | 
5Е;: 56хара; 

Бедап 
5Е := 'Турбо'!+'-'+'Паскаль'; 
Муз $етл ($%); 

епа. 


напечатает строку 


Турбо-Паскаль 


Все остальные действия над строками и символами реализуются с 


помощью встроенных процедур и функций (см. гл.4). 
И, наконец, об операциях отношения и логических операциях. 


Над данными типа ВЕАШ, ТМТЕСЕВ, СНАВ, ЗТВТМС определены сле-— 
дующие операции отношения (сравнения): 
| = — равно; 
<> — не равно; 
< — меньше; 
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> — больше; 
< = — меньше или равно, 
> = — больше или равно. 


В операциях сравнения должны участвовать однотипные операнды. 
Исключение сделано опять-таки в отношении ВЕАТ и ТМТЕСЕВК, которые 
могут сравниваться друг с другом. Результат применения операции от-— 
ношения к любым операндам имеет тип ВООЪЕАМ. 

Сравнение двух строк осуществляется следующим образом. Символы 
строк сравниваются попарно друг с другом так, что первый символ первой 
строки сравнивается с первым символом второй строки, второй символ 
первой строки — со вторым символом второй и т.д. Символы сравни— 
ваются путем сравнения их кодов во внутреннем представлении (см. гл. 4). 
Если одна строка короче другой, недостающие символы заменяются нулем. 
Отношение первой несовпадающей друг с другом пары символов и при- 
нимается за отношение двух строк. 

При сравнении данных типа ВООТЕАМ учитывается внутреннее согла— 
шение ‘Турбо Паскаля, в соответствии с которым РГАТЗЕ есть нулевой байт, 
а ТВОЕ — байт с единицей в младшем разряде. Заметим, что функция окр 
преобразует к целому не только символы, но и логические величины, 
поэтому 

ога (Еа1зе) 
ога (&гае) 


| 
о 
` 


1. 


В Турбо Паскале определены следующие логические операции: 


по*+ — логическое НЕ; ог — логическое ИЛИ; 
апа — логическое И; хог — исключающее ИЛИ. 


Логические операции применимы к операндам целого и логического 
типов. Если операнды — целые числа, то результат логической операции 
есть тоже целое число (подробнее об этом сказано в гл.4). Логические 
операции над логическими данными дают результат логического типа. 

При вычислении выражений любого типа приоритет вычислений оп- 
ределяется расставленными скобками, а при их отсутствии — по табл. 2.1 
(в порядке убывания приоритета). 


Таблица_2.1 
Приоритет операций 


Е О УС ООО 
2 [7 Ч, во, аа, ЗВЕ, вв 
о 


Примечание. Операции @ (получение адреса), вЪ1 (сдвиг влево), зВх (сдвиг вправо} и 1п 
(принадлежность к множеству) описаны в гл.4. 


Следует учесть, что в отличие от многих других языков программиро — 
вания в Турбо Паскале логические операции имеют более высокий при— 


2* 
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оритет, чем операции отношения. В связи с этим, в сложных логических 
выражениях обычно необходимо расставлять скобки. Если, например, Бис 
имеют тип ТМТЕСЕВ , то выражение 


а = Ь апа с ‹<а 


вызовет сообщение о синтаксической ошибке, так как сначала вы-— 
полнится операция Ь апа с. Правильным будет выражение: 


(а = Б) алла (с <а) 


2.4. ОПЕРАТОРЫ ЯЗЫКА 


С одним из наиболее часто используемых операторов языка Турбо 
Паскаль — оператором присваивания мы уже познакомились. Ниже 
рассматриваются остальные операторы языка. 


2.4.1. Составной оператор и пустой оператор 


Составной оператор — это последовательность произвольных опера — 
торов программы, заключенная в операторные скобки — зарезервиро— 
ванные слова Бед1п ... епа. Составные операторы — важный инстру— 
мент Турбо Паскаля, дающий возможность писать программы по совре— 
менной технологии структурного программирования (без операторов пе— 
рехода СОТО). 

Язык Турбо Паскаль не накладывает никаких ограничений на характер 
операторов, входящих в составной оператор. Среди них могут быть и 
другие составные операторы — Турбо Паскаль допускает произвольную 
глубину их вложенности: | 

Ъедлп 
Бедап 
Бедап 


Фактически, весь раздел операторов, обрамленный словами Бед1п ... 
еп, представляет собой один составной оператор. Поскольку зарезерви — 
рованное слово еп@ является закрывающей операторной скобкой, оно 
одновременно указывает и конец предыдущего оператора, поэтому ставить 
перед ним символ «;» необязательно, и далее во всех примерах мы не 
будем этого делать. Наличие точки с запятой перед епа в предылущих 
примерах означало, что между последним оператором и операторной 
скобкой ей располагается пустой оператор. Пустой оператор не со-— 
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держит никаких действий, просто в программу добавляется лишняя точка с 
запятой. В основном пустой оператор используется для передачи управ — 
ления в конец составного оператора. 


2.4.2. Условный оператор 


Условный оператор позволяет проверить некоторое условие и в зави — 
симости от результатов проверки выполнить то или иное действие. Таким 
образом, условный оператор — это средство ветвления вычислительного 
процесса. 

Структура условного оператора имеет следующий вид: 


ТЕ <условие> ТНЕМ <оператор1> ЕТЪЗЕ <оператор2>, 


гле ТЕ, ТНЕМ, ЕЪЗЕ — зарезервированные слова (если, то, иначе}; 
<условие> — произвольное выражение логического типа; 
<оператор1>, <оператор2> — любые операторы языка Турбо Пас- 
каль. 


Условный оператор работает по следующему алгоритму. Вначале вы-— 
числяется условное выражение <условие>. Если результат есть ТВОЕ 
(истина), то выполняется <оператор1>, а <оператор2> пропускается; если 
результат есть ЕАТЗЕ (ложь), наоборот, <оператор1> пропускается, а 
выполняется <оператор2>. Например: 


уах 

х, у, пах: Трфедег; 
Ъед1п 

1Е х > пах ЕБВеп 

у := мах 
е1зе 
у := Хх; 

При выполнении этого фрагмента переменная У получит значение 
переменной Х, если только это значение не превышает МАХ, в противном 
случае У станет равно МАХ. 

Часть ЕТ.$Е <оператор2> условного оператора может быть опущена. 
Тогла при значении ТВОЕ условного выражения выполняется 
<оператор1>, в противном случае этот оператор пропускается: 


уаг 
х, у, мах: Тпфедег; 
Бедлп 
1Е х > мах &Веп 
пах :=х; 
у :=х; 


В этом примере переменная У всегла будет иметь значение переменной 
Х, ав МАХ запоминается максимальное значение Х. 
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Поскольку любой из операторов <оператор1> и <оператор2> может 
быть любого типа, в том числе и условным, а в то же время не каждый из 
«вложенных» условных операторов может иметь часть ЕЪ8Е 
<оператор2>, то возникает неоднозначность трактовки условий. Эта 
неоднозначность в Турбо Паскале решается следующим образом: любая 
встретившаяся часть ЕЁСЗЕ соответствует ближайшей к ней «сверху» части 
ТНЕМ условного оператора. Например: 


уаг 
а, Ю,с,аА : Тпеедег; 


а := Ь; {а равно 1} 
1ЁЕ а > Ь Ъеп 
1Е с Ееп 
1Е с Вел 
с :=0 
е1зе 
е1зе 
е1зе 
а := Ь; {а равно 2} 


Рассмотрим программу (пример 2.4}, которая вводит произвольное 
десятичное целое число в диапазоне 0...15, преобразует его к шестнадца — 
теричному и выводит на экран полученный результат. 


Пример 2.4 
Ргодгаю Нех; 


{Программа вводит с клавиатуры целое число в диапазоне 
от 0 до 15, преобразует его к шестнадцатеричной системе 
счисления и выводит результат на экран} 


\агх 
п : Тлведег; {Вводимое число} 
ср : Спаг; {Результат} 
Ъед1п 
Иг1ве('п = '); 
КеааГп (п); { Вводим число } 


{Проверяем число на принадлежность к диапазону 0...15} 
1Е (п >= 0) ара (п <= 15) Вет 
ЪБед1п {Да, принадлежит диапазону} 
1Е п < 10 ел 
СВ := сАг(ога('0') + п) 
е1зе 
СВ := сбг(ога('А!) + п - 10); 
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Мг е1лп ('п = ',СсА) 
епа 
е1зе {Не принадлежит диапазону} 
Их1ЕеГТлп ('Ошибка' ) 


епа. 


В шестнадцатеричной системе счисления используется 16 цифр в ка- 
ждом разряде: цифры 0...9 обозначают первые 10 возможных значений 
разряда, буквы А...ЁЕ — остальные шесть. 

В программе учитывается непрерывность и упорядоченность множеств 
цифр 0...9, букв А...Р и их кодов (см. гл.4). 


2.4.3. Операторы повторений 


В языке Турбо Паскаль имеются три различных оператора, с помощью 
которых можно запрограммировать повторяющиеся фрагменты программ. 


Счетный оператор цикла ГОК имеет такую структуру: 


ГОК <пар_цик> := <нач знач> ТО <кон знач> РО <оператор>. 


Здесь ЕОВ, ТО, РО — зарезервированные слова (для, до, выполнить); 
<пар цик> — параметр цикла — переменная типа ТМТЕСЕВ (точнее, 
любого порядкового типа, см. гл.4); 
<нач_ знач> — начальное значение — выражение того же типа; 
<кон_знач> — конечное значение — выражение того же типа; 
<оператор> — произвольный оператор Турбо Паскаля. 


При выполнении оператора ЕОВ вначале вычисляется выражение 
<нач_знач> и осуществляется присваивание <пар цик> := <нач_знач>. 
После этого циклически повторяется: 

е проверка условия <пар цик> <= <кон _знач>; если условие не 

выполнено, ‘оператор ЕОВ завершает свою работу; 


е выполнение оператора <оператор>; 
» наращивание переменной <пар_цик> на единицу. 


В качестве иллюстрации применения оператора ЕОВ рассмотрим про-— 
грамму, осуществляющую ввод с клавиатуры произвольного целого числа 
М и вычисление суммы всех целых чисел от 1 до М (пример 2.5). 


Пример 2.5 


Ргодкам 5опи_оЕЁ Тпседег; 
{Программа вводит целое положительное число Ми 
подсчитывает сумму всех целых чисел от 1 до М} 
уагх 
1, п, $ : Гфедег; 
Бед1п 
Му16е('М = '); 
кеааГл (п); {Вводим М} 
5 := 0; {Начальное значение суммы} 
Рог 1 := 1 отп @ {Цикл подсчета суммы} 
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Сели ('Сумма = !, $5) {Выводим результат} 


Отметим два обстоятельства. Во-первых, условие, управляющее ра— 
ботой оператора КОВ, проверяется перед выполнением оператора 
<оператор>: если условие не выполняется в самом начале работы опе-— 
ратора ЕОВ, исполняемый оператор не будет выполнен ни разу. Другое 
обстоятельство — шаг наращивания параметра цикла строго постоянен и 
равен (+1). Существует другая форма оператора: 

ЕГОВ <пар цик>: = <нач_знач> РОММТО <кон_знач> РО <оператор> 

Замена зарезервированного слова ТО на РОММТО означает, что шаг 
наращивания параметра цикла равен (—1), а управляющее условие при— 
обретает вид <пар_ цик> = <кон_знач>. 


Пример 2.5 можно модифицировать так, чтобы сделать его пригодным 
для подсчета любых сумм — положительных и отрицательных: 


$ := 0; 
1ЁЕ п >= 0 %Ъеп 
Бог 1 := 1 вп @ 
$5 = $+1 
е]зе 
ог 1 := -1 аомд®о п ао 
5 :3=38+1; 


Два других оператора повторений лишь проверяют условие выполнения 
или повторения цикла, но не связаны с изменением счетчика цикла. 


Оператор цикла ИНТГЕ с предпроверкой условия: 
ИНТЬЕ <условие> РО <оператор>. 


Здесь ИНТЬЕ, РО — зарезервированные слова (пока [выполняется условие], 
делать); 
<узсловие> — выражение логического типа; 
<оператор> — произвольный оператор Турбо Паскаля. 


Если выражение <условие> имеет значение ТВОЕ, то выполняется 
<оператор>, после чего вычисление выражения <условие> и его про- 
верка повторяются. Если <условие> имеет значение ГАГЗЕ , оператор 
ЯНТЬЕ прекращает свою работу. | 

Рассмотрим пример 2.б, иллюстрирующий использование оператора 
ИНТЬЕ. Найдем так называемое «машинное эпсилон» — такое минималь-— 
ное, не равное нулю вещественное число, которое после прибавления его к 
1.0 еще дает результат, отличный от 1.0. 


Пример _2.6 
Ргодгаюм Ерз11опр0ефесЕ; 
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{Программа вычисляет и выводит на экран 
значение "машинного эпсилон"} 


уагх 

ер$11оп: геа1; 
Ъед1п 

ер$11о0оп := 1; 

мр11е ерз110п/2+1>1 9@&° 

ерз11оп := ерз11оп/2 

Иг1 Е еГл ('Машинное эпсилон = ',ер$11оп) 

епа. 


У читателя, привыкшего к непрерывной вещественной арифметике, 
может вызвать недоумение утверждение о том, что в дискретной ма-— 
шинной арифметике всегда существуют такие числа 0<Х<ер$, что 
1.0-Х=1.0. Дело в. том, что внутреннее представление типа ВЕАГ может 
дать «лишь» приблизительно 1014 возможных комбинаций значащих раз— 
рядов в отведенных для него 6 байтах. Конечно же, это очень большое 
число, но оно несопоставимо с бесконечным множеством вещественных 
чисел. Аппроксимация бесконечного непрерывного множества вещест-— 
венных чисел конечным (пусть даже и очень большим) множеством их 
внутреннего машинного представления и приводит к появлению 
«машинного эпсилон». 


Оператор цикла КЕРЕАТ... ИМТИ. с постпроверкой условия: 
ВКЕРЕАТ <тело_цикла> ОМТТЬ <условие>. 


Здесь ВЕРЕАТ, ОМТТЬЬ— зарезервированные слова (повторять до тех пор, 
пока не будет выполнено условие); 
<тело цикла> — произвольная последовательность операторов Турбо 
Паскаля; 
<условие> — выражение логического типа. 


Операторы <тело_цикла> выполняются хотя бы один раз, после чего 
вычисляется выражение <условие>: если его значение есть ГАТЗЕ, 
операторы <тело цикла> повторяются, в противном случае оператор 
ВЕРЕАТ... ОМТТЬ завершает свою работу. 

Для иллюстрации применения оператора ВЕРЕАТ... ОМТТЬ модифи-— 
цируем программу из примера 2.3. Модификация (пример 2.7) состоит в 
том, что программа будет все время повторять цикл ввода символа и 
печати его кода до тех пор, пока очередным символом не будет символ СК 
(вводится клавишей Ешег). 


Пример _2.7 
Рхгодгам Со4ез_оЕ _Спагз; 


{Программа вводит символ и выводит на экран его код. Для за-- 
вершения работы программы нужно дважды нажать ЕпЁег} 
уах 
срЬ : Спаг; {Вводимый символ} 
соп$Е 
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СВ = 13; {Код символа СВ} 
Ьед1п 
гереае , 
Веаа!лп (сп); | 
МутееГп (сВ,' = ',охка (сп) ) 
ий611 ога(ср) = СВ 
епа. 
Обратите внимание: пара ВЕРЕАТ... ЧМТТЬ подобна операторным 
скобкам Бед1п... еп, поэтому перед ЧМТТЬ ставить точку с запятой 
необязательно. 


Для гибкого управления циклическими операторами КОВ, ЧИНТЬЕ и 
ВЕРЕАТ в состав Турбо Паскаля включены две процедуры: 


ВКЕАК — реализует немедленный выход из цикла; действие процедуры 
заключается в передаче управления оператору, стоящему сразу за 
концом циклического оператора; 


СОМТТМОЕ — обеспечивает досрочное завершение очерелного прохода 
цикла; эквивалент передачи управления в самый конец цикли— 
ческого оператора. 


Введение в язык этих процедур практически исключает необходимость 
использования операторов безусловного перехода СОТО (см. ниже п.2.4.5). 


2.4.4. Оператор выбора 


Оператор выбора позволяет выбрать одно из нескольких возможных 
продолжений программы. Параметром, по которому осуществляется выбор, 
служит ключ выбора — выражение любого порядкового типа (любого из 
рассмотренных, кроме типов ВБАГ и 5ТВТМС, см. гл. 4). 

Структура оператора выбора такова: 


САЗЕ <ключ_ выбора> ОЕ <список выбора> [ЕЩЕ <операторы>] ЕМО 


Здесь САЗЕ, ОЕ, ЕТЗЕ, ЕМО — зарезервированные слова (случай, из, 
иначе, конец); 
<ключ выбора> — ключ выбора; 
<список выбора> — одна или более конструкций вида: 
`<константа выбора> : <оператор>; | 
<константа_выбора> — константа того же типа, что и выражение 
<ключ выбора>; 
<операторы> — произвольные операторы Турбо Паскаля. 


Оператор выбора работает следующим образом. Вначале вычисляется 
значение выражения <ключ выбора>, а затем в последовательности 
операторов <список_выбора> отыскивается такой, которому предшествует 
константа, равная вычисленному значению. Найденный оператор выпол — 
няется, после чего оператор выбора завершает свою работу. Если в списке 
выбора не будет найдена константа, соответствующая вычисленному 
значению ключа выбора, управление передается операторам, стоящим за 
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словом ЕТЗЕ. Часть ЕЁЗЕ <оператор> можно опускать. Тогла при от- 
сутствии в списке выбора нужной константы ничего не произойдет и 
оператор выбора просто завершит свою работу. 

Составим программу (пример 2.8), имитирующую работу микрокаль— 
кулятора. Программа вводит две строки: первая содержит два произ— 
вольных числа, разделенных пробелом, вторая — символ арифметического 
действия, например: 

2 2 
* 
ИЛИ 
18.35 0.12 
/ 

Над введенными числами осуществляется соответствующее действие и 
результат выводится на экран. Признаком конца работы программы 
служит ввод любого символа, отличного от +, —, *, /. 


Пример 2.8 
Ргодгам Са1с; 


{Программа вводит два числа в первой строке и один из знаков 
+, -, *, / - во второй и выводит на экран результат соответст- 
вующего арифметического действия} 
уаг 
орега&*1оп : Сраг; {Знак операции} 
х, у, 2 : геа1; {Операнды и результат} 
$бор : Воо1еап; {Признак ошибочной операции 
и останова} 
Ред\лп 
5сор := Еа15е; 
гереа* 
Иг1твеГп; {Пустая строка-разделитель} 
Музее ('х,у= '); 
ВеааГл (х,у); 
Мг1$е ('операция: '); 
ВеааГп (орега®1оп); 
сазе орегаЕ1оп оЕ 
"+: 2 х +У; 
х -У; 
х * у; 
х / ут; 


2. 
2. 
7 


1Е поЕ зсор ЕВеп 
ИгтеетТл (' результат= ',2) 
41811 эсор 
епа. 


Любому из операторов списка выбора может предшествовать не одна, а 
несколько констант выбора, разделенных запятыми. Например, следую:цая 
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программа при вводе одного из символов: у или У выведет на экран слово 
«Да», а при вводе п или М№ — слово «Нет»: 


уаг 
сп : Спаг; 
реалп 
ВеааГл (св); 
сазе сп оЁ. 
11','№М!';: ИстЕе!л ('Нет'!); 
'у','У!: ИетееГл ('Да') 
епа 
епа. 


2.4.5. Метки и операторы перехода 


Можно теоретически показать что рассмотренных операторов вполне 
достаточно для написания программ любой сложности. В этом отношении 
наличие в языке операторов перехода кажется излишним. Более того, 
современная технология структурного программирования основана на 
принципе «программировать без СОТО»: считается, что злоупотребление 
операторами перехода затрудняет понимание программы, делает ее за— 
путанной и сложной в отладке. 

Тем не менее, в некоторых случаях использование операторов перехода 
может упростить программу. 

Оператор перехода имеет вид: 


СОТО <метка>. 


Здесь СОТО — зарезервированное слово (перейти [на метку]; 
<метка> — метка. 


Метка в Турбо Паскале — это произвольный идентификатор, позво — 
ляющий именовать некоторый оператор программы и таким образом 
ссылаться на него. В целях совместимости со стандартным языком Паскаль 
в языке Турбо Паскаль допускается в качестве меток использование также 
целых чисел без знака. 

Метка располагается непосредственно перед помечаемым оператором и 
отделяется от него двоеточием. Оператор можно помечать несколькими 
метками, которые в этом случае отделяются друг от друга лвоеточием. 
Перед тем как появиться в программе, метка должна быть описана. Опи— 
сание меток состоит из зарезервированного слова БАВЕЬ (метка), за ко— 
торым следует список меток: 


]1аЪе1 

1оор, 161, 162; 
Ьед1п 

дово 121; 


Тоор: „...... о» 
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151:152: ...... 


дово 152; 


Действие оператора СОТО состоит в передаче управления соответст — 
вующему меченному оператору. 
При использовании меток необходимо руководствоваться следующими 
правилами: 
® метка, на которую ссылается оператор СОТО, должна быть описана в 
разделе описаний и она обязательно должна встретиться где-нибудь 
в теле программы; 


е метки, описанные в процедуре (функции) локализуются в ней, 
поэтому передача управления извне процедуры (функции) на метку 
внутри нее невозможна. 


2.5. МАССИВЫ 


Рассмотренные выше простые типы данных позволяют использовать в 
программе одиночные объекты — числа, символы, строки и т.п. В Турбо 
Паскале могут использоваться также объекты, содержащие множество 
однотипных элементов. Это массивы — формальное объединение не-— 
скольких однотипных объектов (чисел, символов, строк и т.п.), рассмат-— 
риваемое как единое целое. К. необходимости применения массивов мы 
приходим всякий раз, когда требуется связать и использовать целый ряд 
родственных величин. Например, результаты многократных замеров 
температуры воздуха в течение года удобно рассматривать как совокуп— 
ность вещественных чисел, объединенных в один сложный объект -— 
массив измерений. 

При описании массива необходимо указать общее число входящих в 
массив элементов и тип этих элементов. Например: 


уаг 
а : агххау [1..10] оЁ геа1; 
Ь : агкау [0..50] оЕ Срзаг; 
с : аххау [-3..4] оЕ Воо1еап; 


Как видим, при описании массива используются зарезервированные 
слова АВКАУ и ОЕ (массив, из); За словом АВКАУ в квадратных скобках 
указывается тип— диапазон, с помощью которого компилятор определяет 
общее число элементов массива. Тип- диапазон ‘(подробнее см. в гл.4) 
задается левой и правой границами изменения индекса массива, так что 
массив А состоит из 10 элементов, массив В — из 51, а массив С -— из 8 
элементов. За словом ОЕ указывается тип элементов, образующих массив. 

Доступ к каждому элементу массива в программе осуществляется с 
помощью индекса — целого числа (точнее, выражения порядкового типа, 
см. гл.4), служащего своеобразным именем элемента в массиве (если левая 
граница типа— диапазона равна 1, индекс элемента совпадает с его по- 
рядковым номером). При упоминании в программе любого элемента 


массива сразу за именем массива должен следовать индекс элемента в 
квадратных скобках, например: 


уагх 
а: агхкау [1..10] оЕ Треедег; 
Ь: аггау [0..40] оЕ Сзаг; 
с: агхау [-2..2] оЕЁ Воо1еап;. 
| 


: Трведег; 
Бед1п 
Ь[17] := 'ЁЕ!; 
с[ -2] := а[1] > [2}; 
Бог К := 1 ®0 10 @ 
а[к] := 0; 


В правильно составленной программе индекс не должен выходить за 
пределы, определенные типом — диапазоном. Например, можно исполь— 
зовать элементы А/[1], В[38], С] 0], но нельзя А[0] или С[38] (определение 
массивов см. выше). Турбо Паскаль может контролировать использование 
индексов в программе на этапе компиляции и на этапе счета программы. 

Для иллюстрации приемов работы с массивами составим программу 
(пример 2.9), которая создает массив случайных целых чисел, подсчитывает 
их среднее арифметическое, а также определяет и выводит на экран 
минимальное и максимальное из этих чисел. 


Пример 2.9 
Ргодгат Ауегаде; 
{Программа создает массив из М случайных целых чисел, равно- 
мерно распределенных в диапазоне от 0 до МАХ УАГОЕ-1, подсчи- 
тывает среднее арифметическое этих чисел, а также минимальное 
и максимальное из них. } 


соп$Е 
М = 1000; {Количество элементов массива} 
МАХ УАШОЕ = 100+1; {Диапазон значений случайных чисел} 
\аг 
м : агхау [1..№] оЕ Тпфедег; {Массив чисел} 
1 : Тоедег; {Индекс массива} 
пах, м1п : Тпеедег; {Максимальное и минимальное число} 
$ : геа1; {Сумма чисел} 
Ъед1п 


{Наполняем массив случайными числами: } 
Бог 1 := 1 ®0 М @ 
п[1] := гап@ом (МАХ УАТОЕ); 
/Задаем начальные значения переменных: } 
$ := 0; 
пах := п[1]; 
пп := м[1]; 
{Цикл вычисления суммы всех случайных чисел и поиска 
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минимального и максимального: } 
Рог 1 := 1 в М @ 


пп := ш[1] 
е]1зе 12 п[1] > пах ЕЪеп 
мах := м[1] 
епа; 
{Вычисляем среднее значение и печатаем результат: } 
Иг1сеТл ('Мин = ',м1п,' Макс = ', пах, ' Среднее = ',5$/М) 
епа. 


Для создания массива используется встроенная функция КАМООМ (МАХ), 
которая возвращает случайное целое число, равномерно распределенное в 
диапазоне от 0 до МАХ-1 (МАХ — параметр обращения). 


2.6. ПРОЦЕДУРЫ И ФУНКЦИИ 


Процедуры и функции представляют собой важный инструмент Турбо 
Паскаля, позволяющий писать хорошо структурированные программы. В 
структурированных программах обычно легко прослеживается основной 
алгоритм, их нетрудно понять любому читателю, они проще в отладке и 
менее ‘чувствительны к ошибкам программирования. Все эти свойства 
являются следствием важной особенности процедур (функций), каждая из 
которых представляет собой во многом самостоятельный фрагмент про-— 
граммы, связанный с основной программой лишь с помощью нескольких 
параметров. Самостоятельность процедур (функций) позволяет локали — 
зовать в них все детали программной реализации того или иного алго— 
ритмического действия и поэтому изменение этих деталей, например, в 
процессе отладки обычно не приводит к изменениям основной программы. 

Многие примеры в этой книге невелики по размерам (не более 30 — 40 
строк}, поэтому написать такие программы можно и без процедур. Иное 
дело — создание крупных программ в сотни, тысячи и десятки тысяч 
строк. Писать такие программы как нечто единое целое, без расчленения 
на относительно самостоятельные фрагменты, т.е. без структурирования, 
просто невозможно. Практически во всех языках программирования 
имеются средства структурирования. Языки, в которых предусмотрены 
такие механизмы, называются процедурно-ориентированными. К. их числу 
принадлежит и Турбо Паскаль. 

Процедурой в Турбо Паскале называется особым образом оформленный 
фрагмент программы, имеющий собственное имя. Упоминание этого имени 
в тексте программы приводит к активизации процедуры и называется ее 
вызовом. Сразу после активизации процедуры начинают выполняться 
входящие в нее операторы, после выполнения последнего из них управ -— 
ление возвращается обратно в основную программу и выполняются 
операторы, стоящие непосредственно за оператором вызова процедуры 
(рис.2.2). | 
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Для обмена информацией между основной программой и процедурой 
используется один или несколько параметров вызова. Как мы увидим 
дальше (см. гл. 8}, процедуры могут иметь и другой механизм обмена 
данными с вызывающей программой, так что параметры вызова могут и не 
использоваться. Если они есть, то они перечисляются в круглых скобках за 
именем процедуры и вместе с ним образуют оператор вызова процедуры. 

Функция отличается от процедуры тем, что результат ее работы воз — 
вращается в виде значения этой функции, и, следовательно, вызов 
функции может использоваться нарялу с другими операндами в выра— 
жениях. 

С примерами процедур и функций мы уже сталкивались — это стан— 
дартные процедуры чтения и записи КЕАШТ, ВЕАРТМ, ИВТТЕ, ИВБТТЕБМ, 
функции ОВР, СНВ, математические функции и др. Стандартными они 
называются потому, что созданы одновременно с системой Турбо Паскаль 
и являются ее неотъемлемой частью. В Турбо Паскале имеется много 
стандартных процедур и функций. Наличие богатой библиотеки таких 
программных заготовок существенно облегчает разработку прикладных 
программ. Однако в большинстве случаев некоторые специфичные для 
данной прикладной программы действия не находят прямых аналогов в 
библиотеках Турбо Паскаля, и тогда программисту приходится разраба— 
тывать свои, нестандартные процедуры и функции. 


Основная (вызывающая) программа 


Вызов. процедуры -_ 
поолениЕ ОСНОВНОЙ программы 


Процедура 


Рис.2.2. Взаимодействие вызывающей программы и процедуры 


Нестандартные процедуры и функции необходимо описать чтобы 
компилятор мог установить связь между оператором вызова и теми 
действиями, которые предусмотрены в процедуре (функции).` Описание 
процедуры (функции) помещается в разделе описаний и внешне выглядит 
как программа, но вместо заголовка программы фигурирует заголовок 
процедуры (функции). 

Не вдаваясь в дальнейшие подробности, помробуем составить собст— 
венную процедуру, чтобы пояснить сказанное. Пусть в этой процедуре 
преобразуется некоторая символьная строка таким образом, чтобы все 
строчные буквы заменялись соответствующими прописными. В Турбо 
Паскале имеется стандартная функция ОРСАЗЕ (см. гл.4), которая выпол— 
няет аналогичные действия над одиночным символом. Наша процедура 
(назовем ее ОРЗТВТМС) будет преобразовывать сразу все символы строки, 
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причем сделаем ее пригодной не только для латинских букв, но и для букв 
русского алфавита. 

Разработку программы проведем в два этапа. Сначала сконструируем 
основную (вызывающую) часть программы. Ее действия очень просты: она 
должна ввести входную строку (назовем ее 51пр) с клавиатуры, преоб— 
разовать ее с помощью процедуры Ор5Ег1па в выходную строку бое и 
напечатать результат. Эти действия нетрудно запрограммировать на-— 
пример: 


Ргодгам СпагзСопуег{; 


Ргосеаиге Ор5Ег1па (51: $61149; уах 52: $%х1па); 
Бедлт {Ор5Ег`1пд} 

$2 := $1 {Пока еще нет преобразования! 
епа; — {Ор5Ег1п9]} 


уаг 
$1пр, 5оче : З6Езра; {Исходная и преобразованная строки} 
ЪЬед1п {Начало основной (вызывающей) программы} 
Иг1Се ('Введите строку: !); 


Веаа!п (5$1пр); {Вводим исходную строку} 
Ор5Ег1па (51пр,эзоче); {Преобразуем ее к прописным буквам} 
Мите! (' Результат: ',504%) {Печатаем результат} 


епа. {Конец вызывающей программы} 


В этой программе используется замещение процедуры ОРЗТВТМС так 
называемой «заглушкой», т.е. процедурой, в которой на самом деле не 
осуществляется нужных нам действий, а выходная строка просто копирует 
входную. (Однако эта программа синтаксически абсолютно правильна и 
при желании ее можно запустить на счет.) Заглушка понадобилась нам по 
двум причинам. Во —первых, приведенная программа очень проста, в ней 
отсутствует детальная реализация процедуры и это позволяет наглядно 
проиллюстрировать механизм ее описания. Во-вторых, на ее примере мы 
знакомимся с универсальным методом конструирования сложных про- 
грамм, получившим название нисходящее программирование. В соответ -— 
ствии с этим методом создание программы начинается «сверху», т.е. с 
разработки самого главного, генерального алгоритма. На верхнем уровне 
обычно еще не ясны детали реализации той или иной части программы, 
поэтому эти части следует заменить временными заглушками. Желательно, 
чтобы временный вариант программы был синтаксически правильным, 
тогда можно его откомпилировать и убедиться в отсутствии в нем син- 
таксических ошибок. Такой прогон даст определенную уверенность перед 
разработкой и реализацией алгоритмов нижнего уровня, т.е. перед заменой 
заглушек реально работающими процедурами. Если реализуемый в за- 
глушке алгоритм достаточно сложен, его вновь структурируют, выделяя 
тлавный алгоритм и применяя новые заглушки, и т.д. Процесс продол— 
жается «вниз» до тех пор, пока не будет создан полностью работоспо — 
собный вариант программы. 
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В дальнейшем мы еще не раз булем использовать метод нисходящего 
программирования, а сейчас вернемся к описанию нашей процедуры. Как 
ВИДИМ, ЭТО Описание начинается зарезервированным словом Рхосе@иге, за 
которым следуют имя процедуры и список формальных параметров. 
Список параметров заключается в круглые скобки и содержит перечень 
параметров с указанием их типа. Заметим, что перед параметром 32, с 
помощью которого в вызывающую программу возвращается результат 
преобразования, стоит зарезервированное слово УАВ. Именно таким 
способом компилятору указываются те параметры, в которых процедура 
возвращает вызвавшей ее программе результат своей работы (подробнее 
см. гл. 8). Зарезервированное слово Ргоседиге, имя процедуры и список 
ее параметров образуют заголовок процедуры. За заголовком следует тело 
процедуры, содержащее новый раздел описаний (этот раздел пока еще 
пуст) и раздел исполняемых операторов (оператор $2 := 31). 

Приступим к разработке алгоритма процедуры. Для этого обратимся к 
таблице кодировки символов, используемой в ПК (см. прил. 2). В соот- 
ветствии с этой таблицей коды символов латинских строчных букв ота до 
2 образуют непрерывный массив монотонно нарастающих чисел от 97 ло 
122, а коды соответствующих им прописных букв — непрерывный массив 
чисел от 65 до 90. Преобразование строчных латинских букв в прописные, 
следовательно, состоит в уменьшении кода буквы на 32. Сложнее обстоит 
дело с символами русского алфавита (кириллицей). В зависимости от 
принятого способа кодировки русские строчные буквы могут образовывать 
один сплошной массив (кодировки ГОСТ и МПС) два массива 
(альтернативная кодировка), несплошной массив (кодировка типа ЕСТЕЛ), 
неупорядоченный массив (кодировка КОИ - 8). Если исключить два по— 
следних варианта кодировки, использовавшихся на устаревших ПК, то 
задача преобразования буквы состоит в том, чтобы к внутреннему коду 
русской буквы А (для букв ота до п) или к коду буквы Р (^ля букв от р до 
я) прибавить разницу в кодах текущего символа и кодах букв аи п. На- 
пример, если преобразуется буква 6, то к коду А нужно прибавить разницу 
между кодами а и б, т.е. единицу, в результате получим код буквы Б. Точно 
так же при преобразовании буквы ф к коду буквы П будет прибавлено 
число 5 (как разница кодов фи п}, поэтому в результате получится код 
буквы Ф. С учетом этого можно составить следующий алгоритм реали — 
зации процедуры: для каждого символа исходной строки $1 определить, к 
какому подмассиву а..., а...р или п..я принадлежит код этого символа, и 
затем изменить его, добавив к кодам букв А (латинская), А (русская) или П 
соответствующую разницу. Если символ не принадлежит ни к какому из 
подмассивов, нужно поместить его код в выходную строку без изменений. 

Вот возможный вариант процедуры: 


Ргоседоге Ор5Ег1па ($1: $11049; уаг $2: $Е:1п4); 


уагх 
1: Тпфедег; {Счетчик цикла преобразования} 
с: СПаг;. {Рабочая переменная преобразования} 
Ъед1п {Ор5Ег1пд} 


$2 :=\!!; {Вначале выходная строка пуста} 
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{Цикл посимвольного анализа исходной строки} 
Бог 1 := 1 во ТепаеН ($1) а 
Бед1п 
{Берем из входной строки очередной символ} 
с := $1[1]; 
{Проверяем символ на принадлежность к одному 
из трех подмассивов} 
1Е (с >= 'а'!) ара (с <= '2') вЪепр 
= сЬг (ога ('А') +ога (с) -ога('а')) {А,а - латинские!) 
е1зе 1Е (с >= 'а') апа (с <= 'п') ЕЪеп 
= сот (ога ('А') +ога (с) -ога('а')) {А,а - русские!} 
е1зе 1Е (с >= 'р') апа (с <= 'я'!) еп 
с := сыт (ога ('Р')+ога (с) -ога('р')); 
$2 := $2+Сс 


епа; {Ор5ЕГ: па} 
В процедуре вначале с помощью оператора 
32 := 11; 


подготавливается «пустая» выходная строка, т.е. строка нулевой длины. 
Затем используется цикл от 1 до длины входной строки $1 (эта длина 
получается с помощью стандартной функции ГепаеН), в ходе которого 
проверяется принадлежность очередного символа указанным подмассивам 
и осуществляется необходимая коррекция его внутреннего кода. Для 
доступа к отдельным символам строки используется замечательное 
свойство типа данных 5ТЕТМС, позволяющее рассматривать строку как 
набор (массив) символов. Первый символ этого набора имеет индекс 1, 
второй — 2 и т.д. Индекс указывается сразу за именем строки в квад— 
ратных скобках. Таким образом, 51[1] — это 1[-ый символ строки $1. 
Преобразованный символ добавляется в конец выходной строки. 

Добавив комментарии и поместив тело процедуры вместо заглушки в 
первоначальный вариант программы, получим окончательно ее рабочий 
вариант (пример 2.10). 


| Пример 2.10 
Ргодгам СпагзСопуегЕ; 
{Программа вводит произвольную текстовую строку, преобразует 
все входящие в нее буквы в прописные и печатает результат пре- 
образования} 

РВОСЕРОВЕ ПОрбег1па ($1 : ЗЕгапа; уаг $2 : $5%:1п9а); 

{Эта процедура преобразует буквы входной строки $1 в пропис- 
ные буквы латинского или русского алфавита и помещает резуль- 
тат преобразования в выходную строку $2. Используется предпо- 
ложение о том, что последовательности латинских букв от «а» до 
«2» и русских букв от «а» до «п» и от «р» до «я», а также по- 
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следовательности соответствующих им прописных букв образуют 
непрерывные массивы} 


\а; | 
1: Тпбедег; {Счетчик цикла преобразования} 
с: Спаг; {Рабочая переменная преобразования} 
Бед1п ({ОР5ЕЕ1п9} 
$2 :=!!; {Вначале выходная строка пуста} 
{Цикл посимвольного анализа исходной строки} 
Бог 1 := 1 во Гепаев ($1) ао 
Бедлп 
{Берем из входной строки очередной символ} 
с := $1[1]; 
{Проверяем символ на принадлежность к одному 
из трех подмассивов} 
1Е (с >= 'а') апа (с <= '2') ЕЪВел | 
с := сЬе (ога ('А')+огка (с) -ога('а')) {А,а - латинские! } 
е1зе 1Е (с >= 'а'!) ап@а (с <= 'п') Вел 
с := сре (ога ('А') +ока (с) -ога ('а')) {А,а - русские! } 
е1зе 1ЕЁЕ (с >= 'р') алпа (с <= 'я') ЕЪеп 
с := срЕ(ога('Р')+ога (с) -огка('р')); 
$2 := $2+С 
епа 
ела; {Пр5Ег1па} 
тах 


_З1пр, 5оцЕ : 5%:119; {Исходная и преобразованная строки} о 
Ред1п (Начало основной (вызывающей) программы} | 
Мг1ее ('Введите строку: '); 


ВеааГлп ($1пр); {Вводим исходную строку} 
Ор5Ег1па (51пр, 5048); {Преобразуем ее к прописным буквам} 
Му1ЕеГл (' Результат: ',5боц®) {Печатаем результат} 


епа. {Конец вызывающей программы} 


Рассмотрим иной способ реализации той же программы: оформим &ал— 
горитм преобразования в виде функции. Кроме того, с’-помощью стан— 
дартной функции ОРСАЗЕ преобразуем каждый очередной символ (это 
преобразование осуществляется только для букв латинского алфавита) и 
тем самым исключим проверку принадлежности символа к строчным ла— 
тинским буквам: 


КипсЕ1оп Ор5ег1па ($1: $%х11п49): 56г21лпа; 
уаг 
1 : Тмеедег; 
с : Стат; 
352: ЗЕгата; {Результат преобразования} 
Ъедап {Ор5Ег:п9д} | 
$2 := !!; 
Рог 1 := 1 во ТепаЕв ($1) ао 
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Ьед1в 
{Получаем и преобразуем очередной символ} 
с := ОрСазе ($1[1]); 
1 (с >= 'а') апа (с <= 'п') веа 
С := СИЕ (ога ('А')+ога (с) -ога('а')) 
21 зе 
1Е (с >= 'р') апа (с <= 'я') еп 


с := сЬг(ога('Р') +ога (с) -ога('р')); 
32 := 32+с 
епа; 
Ор5ег1па := $2 {Присваиваем значение функции Пр5Ег:1пто} 


епа; {(0Ор5Ег1п9} 


уак 
51пр: ЗЕЕзпа; 
Ъед1п {Начало основной программы} 


Мг16е ('Введите строку: '); 
Веаа!л ($1пр); 
Их1ееГл (' Результат: ',Ор5Ег1па ($51пр)) 


еп. {Конец основной программы} 


Программа получилась несколько проще за счет того, что функцию 
можно использовать в качестве параметра обращения к другой процедуре 
(в нашем случае к Иг1е!л). Обратите внимание: в теле любой функции 
нужно осуществить присваивание ей вычисленного значения (см. оператор 
Ор5Ег1па := $2). В левой части оператора присваивания в этом случае 
указывается имя функции. 


2.7. ПРИМЕРЫ ПРОГРАММ 


Мы познакомились с основными возможностями языка Турбо Паскаль. 
Как видите, ядро языка очень компактно и отличается простотой — 
именно в этом состоит главная заслуга автора Паскаля Н.Вирта: язык, 
придуманный им, прост и естественен, он легко осваивается, на нем не 
трудно писать самые разнообразные программы. Конечно, рассмотрены 
далеко не все свойства Турбо Паскаля, ведь его главная отличительная 
черта — это богатство типов данных. Однако уже рассмотренного вполне 
достаточно для написания многих полезных программ. 

Приводимые ниже программы относительно сложны, поэтому они 
реализуются поэтапно, по методу нисходящего программирования. Мне 
кажется, что тем читателям, кто не имеет большого опыта в программи — 
ровании или кто захочет подробнее ознакомиться с нисходящим про- 
траммированием, изучение этой главы принесет определенную пользу. 
Если Вам будет скучно разбираться в «кухне» программирования, но Вас 
заинтересуют описываемые здесь программы и Вы захотите их повторить, 
то в прил.5 Вы найдете полный текст соответствующей программы; однако 
в каждой из них используются некоторые дополнительные возможности 
языка Турбо Паскаль, которые не рассматривались ранее и которые сб-— 
суждаются в пропущенных Вами фрагментах книги. 
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При оформлении программ я стремился использовать хороший стиль 
написания программ, т.е. такую их форму, которая дает наиболее полное 
представление о структуре программы в целом и ее отдельных частей. Не 
существует какого —либо стандарта, определяющего хороший стиль про— 
граммы. Обычно это интуитивное понятие включает способ расположения 
операторов и описаний по строкам (не рекомендуется размещать более 
одного оператора на каждой строке}, а также выделение отступами тела 
составных и условных операторов. Последнее особенно важно в про-— 
граммах Турбо Паскаля: сплошь и рядом в них встречаются операторные 


скобки Ьед1п... еп4, причем часто вложенные друг в друга; использо — 
вание отступа служит дополнительным средством проверки правильности 
их расстановки — не случайно в редакторе среды предусмотрена соот -— 


ветствующая опция. Принятый мною стиль оформления программ не 
претендует на эталон, просто мне кажется, что таким образом оформ-— 
ленные программы читаются лучше. Если Вы всерьез намерены про-— 
граммировать на Турбо Паскале, имеет смысл составить собственное 
представление о хорошем стиле и далее неукоснительно придерживаться 
его — очень скоро некоторые дополнительные издержки на подготовку 
программ с лихвой окупятся их «читабельностью», а это поможет Вам 
вспомнить все детали реализации программы, которая была написана 
несколько месяцев тому назад. 


2.7.1. Вычисление дня недели 


Случалось ли Вам мучительно вспоминать, какой именно день недели 
приходился на то или иное число год или два назад, или вычислять, на 
какой день недели в этом году приходится Ваш день рождения? Если да, то 
Вас, думаю, заинтересует простая программа, позволяющая по заданной 
дате мгновенно вычислить соответствующий день недели. В ее основе 
лежит такая формула: 


день недели = остаток от деления Х на 7, 


где Х = аЪз (гипс (2.6*м-0.2) +9+у/4+у+с/4-2*с); 
п — номер месяца (см. ниже}; 
а — число (день месяца); 
с — номер столетия (см. ниже}; 
у — номер года в столетии. 


При использовании этой формулы следует учесть два обстоятельства. 
Во — первых, формула верна для григорианского календаря нового стиля (от 
1582 ло 4903 года). Во-вторых, год и месяц следует предварительно пре — 
образовать так, как если бы начало года приходилось на 1 марта. Иными 
словами, март в этой формуле имеет порядковый номер 1, апрель 2, 
январь 11 и февраль 12, причем январь и февраль следует отнести к 
предыдущему году. Например, для 1 февраля 1991 года номер месяца 
должен быть равен 12, а год 1990, в то время как для 31 декабря 1991 года 
номер месяца — 10, а год — 1991. Результат вычисления дается в виде 
целого числа в диапазоне от 0 до 6, причем 0 соответствует воскресенью. 
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Приступим к разработке программы. Прежде всего, предположим, что 
программа уже создана и Вы осуществляете ее прогон. Какая форма 
взаимодействия с программой кажется Вам наиболее подходящей? Вряд ли 
Вас удовлетворит однократное ее исполнение (ввод некоторой даты и 
вывод на экран соответствующего дня недели). Скорее всего Вы захотите 
повторить работу программы для нескольких дат, например, поинтере— 
соваться, в какой день недели Вы родились, затем, на какой день недели 
приходится в этом году Ваш день рождения, дни рождения близких, дру— 
зей; может быть, определить, в какой день родились известные Вам ис— 
торические деятели, и т.д. Таким образом, в программе следует преду— 
смотреть многократное выполнение действий <ввод даты> — <вычисление 
дня недели>, причем число циклов вычисления заранее не известно. Сразу. 
же возникает новый вопрос: как сообщить программе, что Вы завершаете. 
работу с ней? Для этого можно условиться, что ввод некоторой заранее: 
обусловленной или недопустимой даты должен интерпретироваться про — 
граммой, как указание на прекращение работы. С учетом сказанного, 
напишем такой начальный вариант программы: 


\мах 
ТзСогхес®Рафе: Воо1еап; {Признак правильной даты} | 
А, м, у : Трбедег; {Вводимая дата - день, месяц и год} 

Бед1п о 
гереаЕе 


{Ввести в переменные Я, ти у очередную дату и 
проверить ее. Если дата правильная, установить 
Т5Соггес®Раёе=Тгие, иначе Т$СоггесЕРаЕе=Га1$е} 
3Е Т5Соггес®Раее %+ЪВеп 
{Вычислить и выдать на экран день недели}; 
11811 поё ТзСоггесеПа*е 
епа. 


Если Вы попытаетесь запустить эту программу на счет, то ее поведение 
будет зависеть от начального значения переменной Т5Соггес®Ра*е. Это 
значение случайно, так как компилятор Турбо Паскаля не проводит на- 
чальной инициализации переменных. Скорее всего, тот байт оперативной 
памяти, в котором она разместится, окажется нулевым, что в Турбо 
Паскале расценивается как логическое значение ГАТЗЕ, поэтому с болышой 
вероятностью ничего не произойдет, и программа сразу же завершит свою 
работу (условие по ТзСоггес®*Раее будет выполнено). Если начальное 
значение Т5Соггесераее окажется не нулевым, то цикл ВЕРЕАТ.. .ОМТТЬ. 
будет выполняться до тех пор, пока Вы не выключите компьютер или не 
нажмете клавиши СЫ]-Вгеак. 

Будем считать что необходимые действия осуществляются в двух 
процедурах с именами ТпраЕПРаее (ввод даты) и Мх1®ерау (вычисление и 
печать дня недели). В процедуру ТпраЕРаее не нужно ничего передавать 
из программы, так как в ней самой осуществляются ввод и контроль даты. . 
Поэтому заголовок процедуры может иметь такой вид: 
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Ркоседиге ТпраЕПафе (хак А, п,у: Тпеедег; уаг соггес®1у: 
” Воо1еап); 


Процедура Иг1+ерау, напротив, только получает из программы нужные 
ей данные и ничего не возвращает в программу, поэтому в ее заголовке 
параметры описываются без слова УАВ: 


Ргосеааге Иг1ееПау (Ч, м‚,у : ТпЕедег); 


С учетом этого программу можно уточнить следующим образом: 


уах 

ТзСоггес*Рафе: Воо1еап; {Признак правильной даты} 

Аа, п, у : Тлеедег; {Вводимая дата - день, месяц и год} 
ен------------------- } 


_Ргосеаикге Тприфрафе (уах А,м‚,у : ТпЕедег; 
уаг соггес%1у : Воо12?ап); 

{Вводит в переменные А, ти у очередную дату и проверяет ее. 
Если дата правильная, устанавливает соггесЕ1у=Егие, иначе 
соггесЕ]1у=Еа]5е } 
Бед1п {ГприЕРаЕе} 

соггесе1у := Еа15е 
епа; {ТприЕДРаЕе} 


Ргосеаиге Мг1Еерау (Ч, м,у: Тпбедег); 

{Вычисляет день недели и выводит его на экран} 
Бедап {Иг1Еерау;} 

епа; {Иг1Еерау} 


гереае 
Тпра*Ра*е (а, м, у, Т5Соггес®Рафе); 
1Е ТзСоггесеРа®е еВеп 
И:1$ерау (а, м, у) 
и1пе11 по ТзСоггесЕрафе 
епа. | 


Теперь можно разработать процедуру ТМРОТРАТЕ. Ввод даты не вы- 
зывает трудностей — стандартные процедуры ИВТТЕ и ВЕАОГМ отлично 
приспособлены для этой цели. Аля проверки правильности даты нужно 
проверить принадлежность месяца диапазону 1...12 и года — диапазону 
1582...4903. Кроме того, число не должно выходить из диапазона 1...31. Если 
Вы не очень настаиваете на более точной проверке числа в зависимости от 
месяца и года (для февраля), то программная реализация процедуры будет 
следующей: 


Ргосеаиге ТпроеПрафе (уаг а, п‚,у : ТпЕедег; 

уаг соггес®1у : Воо1еап); 
{Вводит в переменные Я, ти у очередную дату и проверяет ее. 
Если дата правильная, устанавливает соггесЕ1у=Егие, иначе 
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соггесЕ1у=Еа15е } 
Бедлп {ТприЁРаЁе} 
Иг1Се ('Введите дату в формате ДД ММ ГГГГ; '); 
Веаа!п (Я, м,у); 
согхесЕ1у := (4>=1) апа (49<=31) апа (п>=1) 
апА (п<=12) апа (у>=1582) апа (у<=4903) 
еп; {(ТприЁБаёе} 


При выполнении этой процедуры ввод, например, трех нулей приведет 
к присвоению переменной СОВВЕСТЬУ значения ЕАТЗЕ, что вызовет за— 
вершение работы программы. 

Теперь разберемся с процедурой ИВТТЕРАУ. Получив в параметрах 
обращения день, месяц и год, она должна: 

е преобразовать месяц и год так, как описано выше (год должен на-— 

чинаться 1 марта); 

е вычислить день недели; 

е выдать на экран результат. 

Первое и второе действия очень просты и легко программируются. Что 
касается выдачи на экран, то можно потребовать от программы, чтобы эта 
выдача была не просто числом от 0 до 6, а одной из строк «воскресенье», 
«понедельник», .., «суббота». Для этого потребуются дополнительные 
усилия: нужно сначала создать массив строковых констант с именем, 
например, РАУ$_ОГ МЕЕК (дни_недели), а затем выбрать из этого массива и 
выдать на экран нужную строку. Создать массив текстовых констант 
можно с помощью объявления типизированной константы (см. гл. 7): 


сопзе 
Рауз_оЕ меек: агкау [0..6] о З%х1та [11] = 
('воскресенье', 'понедельник','вторник', 
'среда', 'четверг', 'пятница'!, 'суббота'); 


В этом объявлении идентификатор Пауз_оЕЁ меек описывается в 
разделе констант, однако справа от него указан тип данных (массив строк), 
как если бы описывалась переменная, а уже только после типа стоит знак 
равенства и заключенный в круглые скобки список элементов массива. В 


результате получим следующую процедуру: 


Ргосеаике Мг1{еПау(4,м,у : ТпЕедег); 
соп$®е 
Рауз_оЁ меек: акгау [0..6] о З%кЗта [11] = 
('воскресенье!, 'понедельник','вторник', 
'среда', 'четверг', 'пятница', 'суббота'!); 
\аг 
с, м ;: Топбедег; 
Ьедап 
3Е п < 3 &$Ъепл 
Бед1п ‚ {Месяц январь или февраль} 
+1 
= у - 1 
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епд 
е1зе | 
ш := шп - 2; {Остальные месяцы} 
с := у ЧУ 100; {Вычисляем столетие} 
у := у шоа 100; {Находим год в столетии} 
м := аЪ5 (6 гопс (2.6*т-0.2)+а+у азу 4+утс ау 4-2*с) моа 7; 


Иг1$е!л (Рауз_оЕЁ меекК[м]) 
епа; 


Окончательный вариант программы приведен в прил.5.1. 


2.7.2. Биоритмы 


Давно известно, что творческая и физическая активность человека не 
остается постоянной, циклически меняется, причем периодичность ее 
изменения приблизительно согласуется с периодом вращения Луны вокруг 
Земли. Существует теория, согласно которой физическая, эмоциональная и 
интеллектуальная активность человека подчиняется соответствующим 
биоритмам. Каждый биоритм представляет собой синусоиду со строго 
постоянным периодом, причем для каждого биоритма существует свой 
период. В отдельные дни все три биоритма человека могут достигнуть 
своего максимума и тогда человек испытывает подъем творческих и фи-— 
зических сил, в такие дни у него все спорится, он легко решает проблемы, 
которые в другое время ему решить гораздо сложнее. Точно также су 
ществуют и «черные» дни, соответствующие спаду всех трех биоритмов. 

Используя уже опробованную методику нисходящего программиро — 
вания, создадим программу, в которой запрашивается дата рождения че 
ловека и дата, для которой требуется оценить его состояние. Программа 
должна рассчитать и выдать на экран ближайшие к этой дате дни пика и 
спада биоритмов. 

Алгоритм программы можно укрупненно записать следующим образом: 

® ввести дату рождения и текущую дату, проконтролировать их пра— 

вильность и непротиворечивость; 

® вычислить количество дней между двумя датами, чтобы определить 

фазу синусоид для текущей даты; 

е вычислить количество дней от текущей даты ло даты ближайшего 

пика биоритмов и даты ближайшего спада; 

е определить и напечатать обе даты. 

Будем считать что каждое из перечисленных действий реализуется в 
отдельной процедуре, тогда начальный вариант программы будет таким: 


Ргосеацге ТпроЕПраеез$ (маг 90, п0, уд,а,м,‚,у: Тпеедег); 

ГВводит дату рождения и текущую дату. Контролирует правиль- 
ность дат и их непротиворечивость (текущая дата должна быть 
позже даты рождения) } 

Ъедза (ТприЁРаЕез} 

епа; {ГрприЁраЕе5$} 

Гы ши св о о вр ки си во ско ско ав чае сы кк са вы вк сию паз саь скь ско скь кие кие си лы ко чит сие } 


ргоседиге СеЕ_ соцпе_оЕЁ Чауз$ (90, т0, уд, а, м, у: тпседег; 
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уаг Цауз: Тпфедег); 
{Определяет полное количество дней, прошедших от одной даты 
до другой} 
Бед1п {беё соипЕ оЕЁ аауз} 
еп; {СеЕ соипЕ оЕЁ аауз} 


Ркосеаихе Е1пМахМ1п (уаг Ат1п, тах: Тпеедег; ЯЧауз: Тпеедег); 
{Ищет критические дни} 

Бедап {Р1паМахМ!т} 

епа; —{РтпаМахМ1лп} 


Ргосеацге Иг1КеПабез (4п1п, апах, аауз$: Тп%федег); 

{Определяет критические даты по количеству дней, прошедших от 
момента рождения, и выдает эти даты на экран} 

Бедап {Иг1ЕераЕез} 

епа; {Иг1ЕераЁез$} 


уаг 
а0,а, {Дни рождения и текущий} 
шо, м, {Месяцы рождения и текущий} 
УЙ,Уу, {Годы рождения и текущий} 
Чип, {Наименее благоприятный день} 
тах, {Наиболее благоприятный день} 


Чауз: Тпфедег; {Количество дней от рождения} 
Редап {Главная программа} 
Тпра*Рафез$ (940, п0,у0,а,м, у); 
Сеё_пипрегз_оЁ_@Чауз (940, м0, уд, а, м, у, Чауз); 
Е1пАМахМ1п (ам1п, амах, Чауз$); 
\г1Серафез (амп, атах, Чауз) 
епа. 


Начинаем детализацию программы. Прежде всего подумаем, как по 
двум датам вычислить разделяющее их количество дней? Если вспомнить, 
что следует учитывать неодинаковое количество дней по месяцам года, а 
также 29 февраля для високосных лет, то ответ на этот вопрос окажется не 
таким уж простым. Предлагаемый алгоритм подсчета количества дней 
заключается в вычислении количества дней от даты рождения ло конца 
месяца, а затем и года рождения, количества дней от начала текущего года 
до текущего месяца и текущей даты, а также — в подсчете количества 
полных лет, разделяющих обе даты. Количество лет затем легко пере-— 
считывается в количество дней с учетом длины года (365 дней для обычных 
и 366 дней для високосных лет). Это очень прямолинейный алгоритм, но, 
откровенно говоря, мне не пришло в голову ничего другого. Возможно, 
существует более изящный способ подсчета и Вы его знаете, тогда про- 
тграммная реализация будет другой. 

Упростить алгоритм можно за счет создания и использования массива 
из 12 целых чисел, содержащего количества дней по месяцам невисо-— 
косного года, т.е. 31, 28, 31 30 и та. Этот массив (назовем его 
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$12Е_ ОЕ МОМТН — длина_месяца) можно использовать и для обратной 
задачи, т.е. для определения даты критических дней, а также для проверки 
правильности вводимых дат. Таким образом, массив 5146 ОЕ _МОМТН будет 
использоваться сразу в трех процедурах. Сделаем его глобальным, для чего 
его списание поместим перед описанием процедур: 


соп5Е 
512е_оЕ МопЕВ: акгау [1..12] оЕ Вуе = 
(31, 28, 31, 30, 31, 30, 31, 31, 30, З1, 30, 31); 


Ргосеаиге ТприоЕраеез (маг 90, п0, уд,а,м,у: ТпЕедег); 


Поскольку описание массива размещается до описания процедур, он 
становится доступным внутри каждой из процедур и служит для них 
глобальным. В отличие от этого все константы и переменные, объявляемые 
внутри некоторой процедуры, являются локальными и могут использо — 
ваться только в этой процедуре. 

С учетом сказанного напишем следующий начальный вариант про-— 
граммной реализации процедуры ТМРОТРАТЕЗ: 


Ргоседцге ТпраЕРафез$ (уаг 90, п0,уд,а,м‚,у: ТпЕедег); 
{Вводит дату рождения и текущую дату. Контролирует правиль- 
ность дат и их непротиворечивость (текущая дата должна быть 
позже даты рождения) } | | 
уаг | 
соггесЕ1у: Воо1еап; {Признак правильного ввода} 
Бед1п {ГприЁРаЕе5$} 
гереа® 

{Вводим и контролируем дату рождения Я90,т0,у0.} 

{Вводим и контролируем текущую дату а,т,у.} 

{Проверяем непротиворечивость дат:} 

соггесе1у := у > 90; 

1Е поЕ соггесЕ1у апа (у = у0) еп 

Бед1п 
согхесе1у := п > по; | 
12 поЕ соггес&1у апа (п = п0) Бел 
соггес*1у := а>=а0 
епа 
10811 соггесЕ1у 

епа; {ТприЕЁДБаЕёе$} 


В этой процедуре дважды выполняется одно и то же алгоритмическое 
действие (ввод и контроль даты). Это действие можно вынести в от- 
дельную внутреннюю процедуру с именем ТМРРАТЕ, тогда получим сле 
дующий окончательный вариант: 


Ргоседиге Тпро(Пафез (уаг 90, п0,у0,а,м,‚,у : ТпЕедег); 
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{Вводит дату рождения и текущую дату. Контролирует правиль- 
ность дат и их непротиворечивость (текущая дата должна быть 
позже даты рождения) } 
уаг 

соггес*1у: Воо1еап; {Признак правильного ввода} 


Ргоседиге Тпрраке (+ех®: 86х11; уахг а, м‚,у: Тпфедег); 
{Выводит приглашение ТЕХТ, вводит дату в формате ДД ММ ГГГГ и 
проверяет ее правильность} 


соп5® 
УМТМ = 1800; {Минимальный правильный год} 
УМАХ = 2000; {Максимальный правильный год} 
Бед1п {ГпрраЕе} 
гереае 


Му1Се ($ехе); 
Веаа!п (а, м,у); 
соггес®1у := (у >= УМТМ) апа (у <= УМАХ) апа (м >= 1) 
апа (м <= 12) апа (4>0); 
1Е соггесЕ1у Вел 
12 (п = 2) алла (а = 29) ала (у поа 4 =0) 


Реп 

{Ничего не делать: это 29 февраля високосного года!) 
е1 зе 

соггес®1у := а <= $512е оЕЁ Мопей [п]; 


1Е поЕ соггес®1у ЕПепо 
Иг1+еГл ('Ошибка в дате!') 
ип: 1 соггесе1у 
епа; {ТпрраЕе} 


Ред1и {ТприЁДРаЕе5} 
гереа®* 
Тпррафе(' Введите дату рождения в формате ДД ММ ГГГГ:', 
90, м0, у0); 
Тпррафе(' Введите текущую дату: ',а,м, у); 
{Проверяем непротиворечивость дат:} 
соггесЕ1у := у > 90; 
1Е поЕ соггесЕ1у апа (у = у0) ЕБеп 
Бед?п о 
соггесЕ1у := п > п0; 
1Е по соггесЕ1у апа (п = п0) ЕЪеп 
соггес®1у := Я >= а0 
епа 
11011 соггес&1у 
епа; {Тпра&Бафез} 


В самом общем виде алгоритм подсчета количества дней, разделяющих 
две даты, описан выше. При его реализации следует учесть три возможных 
варианта: 
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месячный младенец (год и месяц обеих дат одинаков): количество 
дней находится простым вычитанием двух чисел; 

годовалый младенец (год обеих дат совпадает): количество дней = 
(остаток дней в месяце рождения) + (количество дней в текущем 
месяце) + (количество дней в месяцах, разделяющих обе даты); 
общий вариант (отличаются года): количество дней = (количество 
дней от даты рождения до конца года) - (количество дней в раз— 
деляющих даты годах) + (количество дней от начала текущего года 
до текущей даты). 

учетом этого составим начальный вариант программной реализации 


процедуры СЕТ_МОМВЕК$_ОЕ_РАУБ: 


Ргоседиге Сефё пипрегз_оЕЁ 9ауз (90, м0, уд, а, м, у: Тпёедег; 


уаг Чауз: Тпеедег); 


{Определение полного количества дней, прошедших от одной даты 
до другой } 


Ргосе4иге Уаг1апе2; 
{Подсчет количества дней в месяцах, разделяющих обе даты} 
Бед1п [{Уаг1апЕ2)} 


‚ера; 


{Уаг1апё2)} 


Ргоседаге Уаг1апЕ3; 

{Подсчет количества дней в месяцах и годах, резделяющих обе 
даты} 

Бедзп (Уаг1апЁ3}` 


епа; 


{УагапЕЁ3З} 


Бед1п (беЁ питЬег5$_ оЁ аауз} 


1Е 


(у = У0) апа (м = п0) ЕЪБеп {Даты отличаются только днями: } 


Чауз := а - а0 
е1зе {Даты отличаются не только днями: } 


епа; 
В 


Ъед1п 


Чауз := а + $512е оЁ МопЕёВ [т0] - а0; 

{Учитываем количество дней в текущем месяце и 
количество дней до конца месяца рождения} 

1 (у0 шоа 4 = 0) апа (по = 2) %Ъел 
1пс (дауз); {Учитываем високосный год} 

1Е у = У0 еп 


У\Уахг1апе2 {Разница в месяцах одного и того же года! 
е1зе 
\Уаг1апЕ3 {Даты отличаются годами} 


ела 
{беё питЬегз_оЁ аау$} 


ЭТОМ фрагменте используется способ связи вспомогательных процедур 


УАВТАМТ2 и УАВТАМТЗ с основной процедурой через глобальные пере— 
менные, которыми являются параметры обращения к основной процедуре. 
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Вспомогательные процедуры удобнее всего реализовать на основе циклов 
ИНТЕГЕ: 


Ргоседиге Уаг1апЕ2; 
{Подсчет количества дней в месяцах, разделяющих обе даты } 
уах 
пп : Тобедег; 
Бедап {Уаг1апЕЁ2} 


п := 10; 
мВ11е пп < п @& 
Беда п 
Чауз := Чауз$ + $512е оЁ Мопёв [пм]; 


1Е (пи = 2) апа (у0 моа 4 = 0) «еп 
1пс (Чау$); 


зис (пм) 
епа 
еп; {Уаг1апЕ2} 
(------------------- } 


Ргосеиге \Уаг1апЕЗ3; 
{Подсчет количества дней в месяцах и годах, разделяющих обе 
даты } 
уаг 
пи, уу : Тп&едег; 
Ъедап {Уаг1апЕЁЗ3} 


пм := 00 +.1; 
мр11е пи <= 12 ао [Учитываем остаток года рождения:} 
Бед1п 


Чауз := Чау$+$12е_оЁ Мопей [пм]; 
1 (пм = 2) ата (у0 тоа 4 = 0) ЕЪел 
1пс (Чау$); 
1пс (пт) 
епа; 
уу := У0 +1; 
\В11е уу < у 4о [Прибавляем разницу лет:} 
Бед1п 
Чау$ := Чауз + 365; 
1Е уу моа 4 = 0 &Ъеп 
1пс (аауз); 


1пс (уу) 
епа; 
пт = 1; 
мЬ11е пм < п 9о [(ПрРибавляем начало текущего года:; 
Беда 
Чауз := Чауз + $17е_оЕ Мопев [пм]; 


1Е (у тоа 4 = 0) ата (пп = 2) &Ъел 
1пс (Чауз); 
1пс (пм) 
епа 


64 Глава 2 


епа; (Уаг1апЕ3З} 


В процедуре ЕТМОМАХМТМ осуществляется поиск критических дней, Т.е. 
ближайших к текущей дате дней, для которых все три биоритма достигают 
своего максимума и минимума. Предполагается, что биоритмы изменяются 
по законам синуса от количества прожитых дней с периодами Ть Три Т‚ 
соответственно для физической, эмоциональной и интеллектуальной ак— 
тивности человека. В программе приняты следующие периоды (в днях}: 


Те = 23.6884 
ТЕ 28.4261 
Т = 33.1638 


Самый простой алгоритм поиска заключается в том, чтобы вычислить 
значения сумм всех трех синусоид для текущего дня и для каждого из 
последующих дней на некотором заранее обусловленном интервале, на- 
пример, в пределах месяца. Сопоставив результаты расчетов для каждого 
дня, нетрудно определить критические дни: 


Рргосеацке Е1паМахМ1пт (уаг Я9п1п, пах: Тп®едег; 
| Чауз: Тпфедег); 


{Поиск критических дней} 


сопзе 
ТЕ = 2*3.1416/23.6884; {Период физической активности} 
ТЕ = 2*3.1416/28.4261; {Период эмоциональной активности} 
ТТ = 2*3.1416/33.1638; {Период интеллектуальной активности} 
ТМТЕВУАТЬ = 30; {Интервал прогноза} | 
уах 
МТП, {Накапливает минимум биоритмов } 
пах, | {Накапливает максимум биоритмов} 
х : геат; {Текущее значение биоритмов} 
1 : Тпеедег; 
Ъедзп {Г1паМахМ1п} 
пах := $11 (Чауз*ТЕ) +511 (Чау$*ТЕ) +511 (Чауз*ТТ); 
и1п := тах; (Начальное значение минимума и максимума равно 
значению биоритмов для текущего дня} 
Ят1п := АЧау$; 
Чтах := аау$; 
Бог 1 := 0 Ео ТМТЕВУАГ ао 
Бедлп 


х := э1п ( (Чауз+1)*ТЕ) + 51п ( (4ау$+1) *ТЕ) + 
$11 ((Яауз+1)*ТТ); 
3Е х > пах &Беп 


Ьед1п 

пах :=х; 

тах := Чауз + 1 
еп 


е1зе 3Ё х < шп %&Ъеп 
Бедап 
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ела; /РГ1паМахМ1п} 


При разработке алгоритма процедуры ИВТТЕРАТЕ$, с помощью которой 
на экран выводится результат работы программы, учтем, что основные 
сложности будут связаны с определением новой даты по начальной дате и 
количеству прошедших дней. Этот расчет будет повторяться дважды — для 
даты пика и даты спада биоритмов, поэтому его следует вынести в от- 
дельную процедуру ИВТТЕРАТЕ$. Кроме того, вряд ли Вы откажетесь от 
возможности вывода на экран дополнительной информации о том, сколько 
полных дней, часов, минут и секунд разделяют дату рождения человека и 
текущую дату. Однако реализация этого вывода не столь проста, как это 
может показаться на первый взгляд. Дело в том, что диапазон возможных 
значений данных типа ТМТЕСЕВ составляет от —32768 ло + 32767. Средняя 
продолжительность жизни человека — около 70 лет, т.е. 25550 дней. Это 
значение еще можно представить в переменной типа ТМТЕСЕВ, однако 
часы, минуты и тем более секунды средней продолжительности жизни 
далеко превышают этот диапазон. Чтобы ‘получить ВЫВОД достоверных 
данных, необходимо расширить диапазон значений целых чисел. Для этого 
в Турбо Паскале предусмотрен специальный тип данных ТОМСТМТ 
(«длинный» целый), имеющий диапазон значений от -— 2147483648 до 
+ 2147483647 (см. гл. 4). Поэтому в. процедуре ИВТТЕРАТЕ$ следует пре— 
дусмотреть вспомогательную переменную этого типа, присвоить ей зна— 
чение переменной РАУ$ и уже затем использовать «длинную» переменную 
для вычисления (и вывода) часов, минут, секунд. В результате начальный 
вариант процедуры ИВТТЕРАТЕ$ может быть таким: 


Ргоседиге Иг1ератез (аи1п,атах, Чауз :. Тпкедех) ; 

{Определение и вывод дат критических дней. 
Вывод дополнительной информации о количестве 
прожитых дней, часов, минут и секунд } 


ргоседиге МЕ ераке (Еехе : Е па; а : Тпеедег); 

Определение даты для дня ПО от момента рождения. В глобальных 
переменных Я, ти у имеется текущая дата, в переменной ПАУ: - 
количество дней, прошедших от момента рождения до текущей 
даты. И | | 

Выводится сообщение ТЕХТ и найденная дата в` `Формате 
ДД-МЕС-ГГГГ] 

Ъед1п {ИгтЕераёе} 

епа; {Иг1ЕераЕе)} 


\гах | | 
Топарауз: ТопаТпе; {"Длинная" целая переменная для часов, 
минут и секунд } 
деадап {Иг1ЕераЁез} | 


3—1411 
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Топарауз := Чау$; 

И:1СеГл ('Прошло: ',ГопаПауз,' дней, ',1опарау$*24, 
' часов, ', ШопаПауз*24*60,' минут, \', 
Топ9рау$*24*60*60,' секунд'); 

И:1Еерафе ('Наименее благоприятный день: ',@ат1п); 

Иг1серате ('Наиболее благоприятный день: ',атах) 


еп; {Иг1ЕераЕез} 
Реализация процедуры ИВТТЕЛРАТЕ не вызывает особых сложностей: 


Ргосеаике Мг1Серафе (фехе: $г1па; Ча: Шпеедег); 
соп5е 
Мамез_оЕ Мопейез : акгхау [1..12] оЕЁ З+еапа [3] = 
('янв', 'фев','мар','апр','мая','июн!, 
'июл', 'авг','сен','окт','ноя'!,'дек'); 
уаг 
90, м0, уд, ааа : Тпбедег; 
Бед1п {Иг1ЕераЕе} 


90 := а; 
м0 := м; 
УО := у; 


Чая := Чауз; 
иВ11е ааа<>аа @ао 
Ьед1п 
1пс (40); {Наращиваем число} 
1Е (у0 поа 4 <> 0) апа (490 > $12е_оЕЁ МопЕП [п0]) ох 
(уУ0 поа 4=0) апа (90=30) +Беп 
Беда п {Корректируем месяц} 
90 := 1, 
тис (по); 
1Е п0О = 
редап 
шо := 1; 
1пс (у0) 
епа 
епа; 
1пс (ааа) 
епа; 
Их1 с е!Гл (кехе,а0,'-',Мамез_оЕ МопЕпез$ [п0],'-',у0) 
епа; [Иг1тЕераёе} 


Собрав воедино отдельные части, получим полныи текст программы 
(прил.5.2), предназначенной для определения биоритмов. 


13 ЕВеп {Корректируем год} 


2.7.3. Игра ним 


Ним — одна из самых старых и увлекательных математических игр. Аля 
игры в ним необходим партнер (в ним играют вдвоем), стол и набор 
фишек. В качестве фишек обычно используются камешки или монетки. В 
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наиболее известном варианте нима 12 фишек раскладываются в три ряда 
так, как показано на рис. 2.3, 
Правила нима просты. Игроки по очереди 
забирают одну или несколько фишек из 
любого ряда. Не разрешается за один ход 
брать фишки из нескольких рядов. Выиг— 
рывает тот, кто возьмет последнюю фишку 
Рис.2.3. Фишки, расположенные (фишки). 
для игры в ним по схеме 3—4—5 Если Вы сыграете несколько партий в 
ним, то скоро заметите, что существует 
некоторая оптимальная последовательность 
ходов, которая гарантирует победу, если только Вы начинаете игру и 
первым ходом берете две фишки из первого ряда. Любой другой ход даст 
шанс Вашему сопернику, который в этом случае наверняка победит, если, 
в свою очередь, воспользуется оптимальной стратегией. 

Полный анализ игры с обобщением на любое число рядов с любым 
числом фишек в каждом ряду впервые опубликовал в 1901 г. профессор 
математики из Гарвардского университета Чарльз Л.Бутон, который и 
назвал игру «ним» от устаревшей формы английских глаголов «стянуть», 
«украсть». Открытая им оптимальная стратегия основана на двоичной 
системе счисления и довольно проста. Каждую комбинацию фишек Бутон 
назвал либо опасной, либо безопасной: если позиция, созлавшаяся после 
очередного хода игрока, гарантирует ему победу, она называется безо — 
пасной, если такой гарантии нет — опасной. Бутон строго доказал, что 
любую опасную позицию всегда можно превратить в безопасную нужным 
ходом. Наоборот, если перед очередным ходом игрока уже сложилась 
безопасная позиция, то любой его ход превращает позицию в опасную. 
Таким образом, оптимальная стратегия состоит в том, чтобы каждым ходом 
опасную позицию превращать в безопасную и заставлять противника 
«портить» ее. Использование оптимальной стратегии гарантирует победу 
игроку только тогда, когда он открывает партию и начальная позиция 
фишек опасна или он делает второй ход, а начальная позиция безопасна. 

Чтобы определить опасна позиция или безопасна, нужно количество 
фишек в каждом ряду записать в двоичной системе счисления. Если сумма 
чисел в каждом столбце (разряде) равна нулю или четна, позиция безо -— 
пасна. Если же сумма нечетна хотя бы в одном разряде, то позиция опасна. 
Например, для начальной позиции по схеме 3—4-— 5 получим: 


Десятичная запись количества ДАвоичная запись количества 
фишек 
3 011 
4 100 
5 101 
Сумма по разрядам 212 


Сумма цифр в среднем столбце равна 1 — нечетному числу, что сви— 
детельствует об опасности этой позиции. Поэтому первый игрок может 
сделать ее безопасной для себя, если он возьмет две фишки из первого 
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ряда. В результате в первом ряду остается только 1 фишка (двоичное число 
также 1), и сумма чисел в среднем столбце изменится на ноль. 

В привычной нам десятичной системе счисления емкость каждого 
разряда равна 10, а для записи значений разряда используются цифры от 0 
до 9. В двоичной системе счисления емкость каждого разряда равна 2, а из 
всех цифр используются только 0 и 1. В этой системе число записывается 
в виде суммы степеней двойки и при переходе от одного разряда к со— 
седнему левому вес разряда увеличивается в 2 раза. Если нужно записать 
число 2 в двоичной системе, следует действовать точно так же, как при 
записи числа 10 в десятичной системе: записать ноль в первом (младшем) 
разряде и единицу — слева от него, т.е. 10 в двоичной системе означает 2 в 
десятичной системе. Точно так же 100 в лвоичной системе означает 4 в 
десятичной, 1000 — Зит.л. 

Для перевода любого целого положительного числа из десятичной 
системы в двоичную можно использовать прием последовательного де— 
ления числа на 2. Например, для перевода десятичного числа 11 в дво-— 
ичную систему используется такая цепочка делений: 

Если, начиная с последнего ре-— 
зультата, остатки от деления записать 
в обратном порядке, получим 1011 — 
это и есть двоичное представление 
десятичного числа 11. В этом легко 
убедиться, записав двоичное число 1011 как сумму степеней 2: 


1х23 +1х2? +1х2' +1=11 

Попробуем разработать программу, которая будет выполнять роль 
партнера в игре, причем это будет весьма опасный противник, так как он 
будет «знать» оптимальную стратегию и умело ею пользоваться. 

Представим себе на минутку, что Вы уже создали программу и начи— 
наете работу с ней. Как организовать удобное взаимодействие с про- 
граммой? Конечно, возможно простейшее решение: Вы предварительно 
раскладываете на столе монетки, по запросу программы вводите в нее Ваш 
ход, затем читаете на экране ход программы, делаете нужные изменения в 
раскладке монет и т.д. Вряд ли Вас удовлетворит такая программа. Горёздо 
эффектнее имитировать на экране игровое поле с фишками и своесб— 
разное табло игры, в котором сообщается об очередных ходах противни— 
ков. Однако использованные ранее средства вывода данных (процедуры 
ИВТТЕ и ИВТТЕГМ) недостаточны для этих целей, ведь с их помощью нельзя 
указать конкретное место на экране, куда нужно поместить выводимую 
информацию. Вывод этими процедурами всегда начинается с той позиции 
на экране, которую в данный момент занимает курсор. Следовательно, для 
вывода текста в нужное место экрана требуется перед обращением к эгим 
процедурам изменить положение курсора. Для этих целей служит про 
цедура СОТОХУ, которая хотя и является стандартной, но располагается в 
отдельной библиотеке (модуле) с именем САТ. Подробнее о модулях мы 
поговорим в гл.9, а сейчас просто учтем, что процедуры и функции из 
дополнительных библиотек становятся доступны в программе, если в самом 
зе начале объявить об их использовании. Так, указание об использовании 
библиотеки СЕТ делается таким образом: 
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95ез$ СВТ; 


После такого указания программе становятся доступны дополнительные 
процедуры и функции, с помощью которых можно организовать гибкое 
управление текстовым экраном, в том числе процедура СОТОХУ, пере- 
мещающая курсор в произвольное место на экране. 

Теперь попробуем составить алгоритм главной программы. В про- 
стейшем виде он таков: 


Озез$ СВКТ; {Подключение библиотеки дополнительных 
процедур и функций для управления экраном} 


уаг 
ех1*: Воо1еап; {Признак окончания работы} 
Ьед1п 
{Подготовить экран к работе} 
гереа* 


{Ввести, проконтролировать и отобразить ход игрока} 
{Найти и отобразить ход программы} 
11611] ех1е 

епа. 


В этом алгоритме выделяются три главных действия и организуется 
цикл, который будет выполняться до тех пор, пока где-то в программе 
переменной ЕХТТ (выход) не будет присвоено значение ТВОЕ. 

Вначале экран подготавливается к работе: формируется игровое поле с 
фишками и выводится информация о правилах игры. Как уже говорилось, 
ним позволяет играть с произвольным количеством фишек. Разумно ввести 
в программу возможность которая бы позволила пользователю самому 
указывать число рядов и количество фишек в рядах, т.е. настраивать 
программу на нужную раскладку фишек. Можно несколько модифици — 
ровать главную программу, чтобы предусмотреть эту возможность: 


Озез СКТ; {Подключение библиотеки дополнительных 
процедур и функций для управления экраном} 


: Воо1еап; {Признак окончания работы} 
срапде : Воо1еап; {Признак изменения условий игры} 
ааяанннен------------------ } 

Ргоседцге Ргераге; 

{Готовит экран к игре} 

Бедлп (Ргераге} 

епа; (Ргераге} 

еееенеенен------------------ } 

Ргосе4иге СеЕР1ауехМоуе; 

{Получает, контролирует и отображает ход игрока} 
Ъедлп {СеЕР1ауегМоуе} 

епа; (сеЕР1ауегМоуе} 

“>. а а в о о в а с с с а ав вьь } 


ргосеасге ЗееОмпетгМоуе; 
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{Находит и отображает очередной ход программы} 
Бед1п {5еЕОипегМоуе} 
еп; {5еЕОипегМоуе } 


Ьед1п {Главная программа} 
{Подготовить начальную расстановку фишек} 


гереа® {Цикл изменения условий игры} 
Ргераге; {Подготовить экран} 
гереае {Игровой цикл} 
СееР1ауетхМоуе; {Получить ход пользователя} 
1Е поё (ех1Е ог срапае) Беп 
беЕОмипетгМоуе {Определить собственный ход} 


41811 ех1Е ог спапде 
и1611 ех1е 
епа. 


В этом варианте главная программа содержит два вложенных друг в 
друга цикла Вереа*...Ип+11: внутренний цикл управляет игрой, внешний 
отвечает за изменение условий игры. Оба цикла управляются двумя ло— 
гическими переменными, которые являются глобальными для трех ос-— 
новных процедур РКЕРАКЕ, СЕТРТАУЕВМОУЕ, ЭЕТОИМЕКМОУЕ и, следо-— 
вательно, могут изменяться внутри этих процедур. 

Теперь настал момент подумать о том, каким способом в программе _ 
будет храниться и использоваться информация о текущем состоянии игры. 
Судя по всему, нам понадобятся хотя бы две переменные: в одной, назовем 
ее МКОМ, будет содержаться число рядов фишек, в другой (№01) — ко- 
личество фишек в каждом ряду. Переменная МВОМ содержит одно целое 
положительное число, поэтому ее тип должен быть ТМТЕСЕВ. В переменной 
МСОТ должно быть не менее МВОМ целых чисел, т.е. ее тип — это массив 
целых чисел. Поскольку в программе предусмотрена возможность изме -— 
нения условий игры самим игроком, переменная МКОМ может меняться от 
партии к партии. В соответствии с этим должна была бы меняться и длина 
массива МСОЬ. Однако в Турбо Паскале нельзя использовать массивы, 
длина которых меняется динамически, т.е. в процессе работы программы. 
Эта длина должна определяться статически (на этапе компиляции) и не 
может меняться в работающей программе. Значит, понадобится массив 
достаточно большой длины, чтобы его хватило на все случаи. На экране 
одновременно можно отобразить максимум 25 строк по 80 символов в 
каждой строке. Однако использовать все строчки экрана как возможные 
ряды фишек вряд ли целесообразно: во— первых, сама игра при болышом 
количестве рядов становится неинтересной, так как игрок не сможет 
проанализировать в уме все варианты ходов; во—вторых, на экране не 
останется места для вывода другой информации. Будем считать, что 
максимальное количество рядов фишек не должно превышать 14. Укажем 
это константой МАХКОЙ — теперь, если Вы захотите назначить друтое 
максимальное количество рядов, понадобится изменить значение зтой 
константы и перекомпилировать программу. Именно таким способом 
программам придается дополнительная гибкость: Вы сосредоточиваете в 
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нескольких константах параметры, которые выбраны Вами произвольно и 
которые Вы или кто-то другой, возможно, захочет изменить. Все раз— 
мерности массивов или другие особенности программной реализации 
следует определять через эти константы, тогда процедура переделки про — 
граммы предельно упростится. 

С учетом сказанного назначим следующие глобальные константы и 
переменные: 


соп$е 
МАХКОЙ = 14; {Максимальное количество рядов} 
МАХСОГ = 20; {Максимальное количество фишек в ряду) 
фуре 
Со1Туре = аххау [1..МАХВОЙ] оЕ Тпфедег; 
уаг 
ех1Е : Воо1еап; {Признак окончания работы} 
спапае: Воо1еап; {Признак изменения условий игры} 
пгом : Тпведег; {Количество рядов} 
псо1 : Со1Туре; {Максимальное колич-во фишек по рядам} 
со] : Со1Туре; {Текущее количество фишек по рядам} 


Константа МАХСОГ, не участвует в формировании массивов, она будет 
использоваться для контроля горизонтальных размеров игрового поля. 
Поэтому она, а также пять переменных сделаны глобальными. Если счи— 
тать что начальная раскладка фишек соответствует схеме 3—4—5, то 
можно написать такой окончательный вариант главной программы: | 


О5ез СВТ; {Подключение библиотеки дополнительных 
процедур и функций для управления экраном} 


соп$® 
МАХВСОМ = 14; {Максимальное количество рядов] 
МАХСОБГ = 20; {Максимальное количество фишек в ряду} 
фуре | 
‚Со1Туре = акхау [1..МАХВОЙМ] оЕ Тпбедег; 
зах | 
ех1Е : Воо1еап; {Признак окончания работы} 
спапае: Воо1еап; {Признак изменения условий игры) 
пгом : Тмбедег; {Количество рядов} 
псо1 : Со1Туре; {Максимальное колич-во фишек по рядам} 
со1 : Со1Туре; {Текущее количество фишек по рядам} 


Ргоседаге Ргераге; 

‘Готовит экран к игре} 

ред1ап {Ргераге} 

ела; {Ргераге} 

еананнннна-н------------- } 

Ргосе4аицке СееР]ауегМоуе; | 

‘Получает, контролирует и отображает ход игрока} 
Бедап {сбеЕР1ауегМоуе } 

епа; {сСеЕР1ауегМоуе } 
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Ргоседике ЗееОмпегМоте; 

{Находит и отображает очередной ход программы} 
Ъед1п {5еЕОипегМоте } 

епа; {5еЕОипегМоуе} 


еее -+-+----- } 
Бедап {Главная программа} 
ПЕОМ := 3; {Готовим игру... } 
псо1[1] := 3; { на поле из трех } 
псо1[2] := 4; { рядов фишек } 
псо1[3] := 5; { по схеме 3-4-5.} 
гереае {Цикл изменения условий игры} 
Ргераге; {Подготовить экран} 
гереа® {Игровой цикл} 
СееР1ауегМохе; {Получить ход пользователя} 
1Е поЕ (ех1Е ог сКапае) +Ъеп 
ЗеЕОмпегМохуе {Определить собетвенный ход} 


91811 ех1е ог спапде 
_ 41811 ех16 
епа. 

Приступим к конструированию процедуры РВЕРАВЕ. В ходе ее работы 
формируется значение переменной СО, соответствующее начальной 
раскладке фишек, и выводится информация о правилах игры. Чтобы было 
понятнее дальнейшее описание программной реализации, на рис. 2.4 
показан вид экрана в начальном состоянии игры. 

Процедура начинает свою работу с очистки экрана от имеющейея на 
нем информации. Это достигается обращением к станлартной процедуре 
без параметров СЪВ$СВ. Затем выводятся три строчки с названием игры и 
кратким описанием ее правил. Кроме того, слева и справа на экране 
формируются заголовки для двух колонок цифр, в которых затем будут 
отображаться номер ряда (слева) и текущее количество фишек в ряду 
(справа). Эта информация поможет игроку сообщить программе свой ‹од. 
Аля размещения информации на нужных участках экрана используется 
процедура СОтТохУу(Х,У), с помощью которой курсор перемещается 
нужным образом. Параметры Х и У этой процедуры задают новые коор— 
динаты курсора. Начало координат соответствует точке (1,1) и размещается 
в левом верхнем углу экрана, поэтому горизонтальная координата увели — 
чивается слева направо, а вертикальная — сверху вниз. 
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Вы можете взять любое число фишек из любого ряда. 
Выигрывает тот, кто возьмет последнюю фишку. 


Кол-во фишек 


4 
5 


Введите Ваш ход в формате РЯД КОЛИЧ (например, 2 3 - взять из 2 ряда 3 фишки) 
или введите В В для выхода из игры; -1 8 для настройки игры 
Ваш ход. 


Рис.2.4. Вид экрана в начале игры ним 


Ргосеаиге Ргераге; 
{Подготовка данных и экрана к игре} 


соп$% 

Неааег0 = 'ИИГРА НИМ!; 

Неааег]1 = 'Вы можете взять любое число фишек из любого ряда.!; 
Неаетг2 = 'Выигрывает тот, кто возьмет последнюю фишку.!; 
Неаег3 = 'Номер ряда!; 

Неааекг4А = 'Количество фишек!; 

уаг 


1 : Тпёведег; 
Бед1п {Ргераге} 
С1:5сг; {Очищаем экран] 
{Выводим строки заголовка:} 
СофохУ ( (80-ГепаЕВ (Неааег0)) ау 2,1); 
Му1ее (Неааег0); 
СофохУ ( (80-ГепаеН (Неадег1)) ау 2,2); 
Мг1хе (Неааег1); 
СобохУ ( (80-ЦепдаЕВ (Неадег2)) ау 2,3); 
И:1$е1п (Неааег2); 
Иг1ее (Неааег3); 
СофохУ (80-ГепаЕП (Неааег4),4); 
Иг16е (Неа4ех4); 
{Готовим начальную раскладку: } 
Бог 1 := 1 о пгом ао 
со1[1] := псо1 [1] 
епЯ; {Ргераге} 
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Для вывода верхних строк строго посередине экрана используется за — 
дание горизонтальной координаты курсора для процедуры СокохУу как 
половины от разницы между полной длиной экрана (80 позиций) и Алиной 
выводимой строки (определяется с помощью функции ТЕМСТН). 

В процедуре СеёР1ауехМоуе осуществляются ввод, контроль и ото— 
бражение на экране очередного хода игрока. Предварительно нужно 
показать игроку текущее состояние игрового поля. Поскольку поле будет 
обновляться как минимум дважды (после хода игрока и после хода про— 
граммы), действия, связанные с изображением поля на экране, следует 
вынести в отдельную процедуру. Назовем ее 5ВомЕ1е14А и займемся ее 
реализацией. 

Судя по всему, нам понадобится организовать цикл; в ходе цикла для 
каждого ряда игрового поля будет выведена строка, в левой части которой 
указывается номер ряда, в правой — текущее количество фишек в нем, а 
посередине выводятся символы, имитирующие фишки. . В принципе, можно 
выбрать любой символ ПК для обозначения фишки, например, Х или О. Я 
предпочел воспользоваться символом псевдографики с кодом 220: этот 
символ представляет собой небольшой квадратик и легко ассоциируется с 
фишкой. 


Ргосе4иге ЗПпомЕ1е1а; 
{ Отображает на экране текущее состояние игрового поля } 
соп$Е 


ЕТЗН = #220; {Символ-указатель фишки} 
ХО = 4; {Левая колонка номеров рядов} 
Х1 = 72; {Правая колонка количества фишек} 
Хх = 20; {Левый край игрового поля} 
уагх 
1,) : Тпеедег; 
Бед1п {5поиЁЕ1е]а} 
Бог 1 := 1 60 пгом ао 
Бед1п 
СоЕоХУ (Х0,1+4); 
Мите (1); {Номер ряда} 
СобохХУ (Х1,1+4); | 
Мите (со1[1]:2); {Количество фишек в ряду} 
Бог ) := 1 о псо1[1] @о {Вывод ряда фищек:} 
Ьед1п 


СобохХУ (Х+2*],1+4); 

1Е [1] ЕЪедл 
Му1Ее (ЕТЗН) 

е1зе 
Му16е('.') 

епа 
епа 
опа; {5роиР1е1а} 
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Символы ЕТЗН (квадратики) выводятся через одну позицию, чтобы не 
сливались на экране. В те позиции, в которых ранее стояли уже снятые с 
поля фишки, выводится точка. 

Теперь вернемся к процедуре СЕТРЪАУЕВМОУЕ. При вводе любого сче-— 
редного хода игрок должен задать два целых числа Х] и Х2. Первое из них 
указывает номер ряда, а второе — количество фишек, которые игрок хочет 
забрать из этого ряда. Программа должна проконтролировать правильность 
задания этих чисел: Х]1 должно указывать непустой ряд, Х2 не может 
превышать количество фишек в этом ряду. Кроме того, мы должны ус- 
ловиться о двух особых случаях: | 

е пользователь болыше не хочет играть и дает команду завершить 

работу программы; 

е пользователь хочет изменить условия игры. 

Пусть ввод числа Х1=0 означает команду выхода из программы, а Х1= — 
1 — команду изменения условий игры. Тогда можно написать такой на 


чальный вариант процедуры: 


Ргосеаиге СееР1ауегМоте; 
{Получает, контролирует и отображает ход игрока} 


уаг 
соггесе1у : Воо1еап; {Признак правильности сделанного хода} 


х1,х2 : ТрЕедег; {Вводимый ход} 
Редап {СеЕР]ауегМоуе} 
{Показываем начальное состояние игрового поля} 


ЗПомЕ1те1а; 
{Сообщаем игроку правила ввода хода} 
гереа®* | | 
{Приглашаем игрока ввести ход 
ВеааГл (х1,х2); {Вводим очередной ход} 
ех1 := х1=0; {Контроль команды выхода} 
спапае := х1=-1; {Контроль команды изменения} 


1Е поЕе (ех1Е ог срапае) ЕВеп 
{Проверить правильность хода и установить нужное значение 
переменной СОККЕСТГУ. Если ход правильный, сделать нужные 
изменения в раскладке фишек и показать поле. } 
е1зе 
соггес®1у := гие {Случай ЕХТТ или СНАМСЕ } 
ипе11 соггес®1у; 
3-Е свапае ЕЪеп 
{ Изменить условия игры } 
еп; {сбеЕР1ауехМоуе } 


В этом варианте в процедуре СекР1ауегМоте нет описания процедуры 
ЗНОМЕТЕШО. Сделано это не случайно: процедура ЗпомЕ1е1а может по- 
надобиться. также и при реализации процедуры 5$еЕОмпегМоуе, поэтэму 
она должна быть глобальной по отношению и к Се%*Р1аует’Моуе, и к 
ЗефОмипегМоте, Т.е. ее описание должно в тексте программы предшест— 
вовать описаниям двух использующих ее процедур. 
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Действия 
{ Сообщить игроку правила ввода хода }, 
{ Пригласить игрока ввести ход 1 


{Проверить правильность хода и установить нужное значение 
переменной СоггесЕ1у. Если ход правильный, сделать нужные 
изменения в раскладке фишек и показать поле. } 


не очень сложны в реализации, поэтому их можно осуществить непо — 
средственно в теле процедуры СЕТРТАУЕВМОУЕ. Иное дело — изменение 
условий игры. Это действие полезно реализовать в отдельной процедуре 
СЕТСНАМСЕ. С учетом этого второй вариант процедуры СЕТРГАУЕВКМОУЕ 
примет такой вид: 


Ргосеацге Се {Р]ауегМоуе; 
{Получает, контролирует и отображает ход игрока} 


соп$е 
Ц 


ТЕХТТ1 = 'Введите Ваш ход в формате РЯД КОЛИЧ !; 
ТЕХТО1= ' (например, 2 3 - взять из 2 ряда 3 фишки) !; 
ТЕХТ2 = 'или введите 0 0 для выхода из игры; !; 
ТЕХТО2= '-1 0 для настройки игры!; 
ТЕХТЗ = 'Ваш ход: '; 
У = 20; {Номер строки для вывода сообщений} 
уаг | 
соггесЕ1у : Воо1еап; {Признак правильности сделанного хода} 
х1,х2 : Тплёедег; {Вводимый ход} 


{------------------- } 
Ргосеаике СееСпапде; 
{Устанавливает новую настройку игры (количество рядов и 
количество фишек в каждом ряду} 
Бед1п {сбеЕСрапде} 
епа; {СеЕСрапде} 
(------------------- } 
Бед1п {сСееР1ауетМохе } 
ЗВомЕ1е1а; {Показываем начальное состояние поля} 
{Сообщить игроку правила ввода хода:} 
СовохУ ( (80-ТепдЕй (ТЕХТ1+ТЕХТО1)) ау 2,у); 
Иг16е (ТЕХТ1+ТЕХТОо1); 
СосохУ ( (80-ГепдаеЕв (ТЕХТ2+ТЕХТО2)) азу 2,у+1); 
Иг1 Ее (ТЕХТ2+ТЕХТО2); 
гереае 
{Пригласить игрока ввести ход:} 
СофохУ (1,У+2); 
Иг16е (ТЕХТЗ); {Выводим приглашение и 
стираем предыдущий ход} 


СоЕохУ (МПегехХ-16,У+2); {Курсор влево на 16 позиций} 
геаа1пт (х1,х2); {Вводим очередной ход} 
ех1*. := х1=0; {Контроль команды выхода} 


спапае := х1=-1; {Контроль команды изменения} 
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18 поЕ (ех1Е ог срапае) +Веп 
Ъед1п 
соггесЕ1у := (х1 > 0) ара (х1 <= пгом) апа 
(х2 <= со1[х1]) апа (х2 > 0); 
1Е соггес®1у Беп 


Бедап {Ход правильный; } 
со1[х1] := со1[х1]-х2; {Изменяем раскладку фишек} 
ЗПомР1е1а {Показываем поле} 

епа 

е1 зе 
мг1 се (#7) {Ход неправильный: дать звуковой сигнал} 
епа 
е1 зе 


соггесе]1у := гие {Случай ЕХТТ или СНАМСЕ} 
ипе11 соггесЕ1у; 
1Е сВапае %Веп 
сееСпапае 
епЯ; {СеЕР1ауегМохе } 


Обратите внимание: константа 
ТЕХТЗ = 'Ваш ход: '; 


имеет длинный «хвост» из пробелов (их 17), поэтому после вывода этого 
`приглашения курсор возвращается влево на 16 позиций оператором 


СосохУ (ИПегехХ-16,У+2); {курсор влево на 16 позиций} 


(функция МНЕВЕХ возвращает текущую горизонтальную координату кур-— 
сора, а функция ИНЕВЕУ — его вертикальную координату). Сделано это для 
того, чтобы в случае, если игрок ввел неверный ход и программа повторяет 
вывод приглашения, пробелы в константе ТЕХТЗ затерли бы строку пре-— 
дыдущего ввода. 

Чтобы завершить создание процедуры СЕТРТАУЕБМОУЕ, нужно спро-— 
ектировать процедуру СЕТСНАМСЕ, в которой осуществляется изменение 
условий игры. Я привожу текст этой процедуры без пояснений и при- 
тлашаю Вас самостоятельно разобраться в том, как она работает: 


Ргосеацге сСееСпапае; 
гУстанавливает новую настройку игры (количество рядов и 
количество фишек в каждом ряду} 


соп5® 
{1 =НАСТРОЙКА ИГРЫ!; 
$2 =' (ввод количества рядов и количества '+ 
'фишек в каждом ряду) '; 
тах 


соггес®1у : Воо1еап; 
1 : Тпеедег; 

Ъедап {СеЕСрапае} 
С1:$сг; 
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ини 


СоохУ ( (80-Гепаен (+1)) ах 2,1); 
Мите (61); 

СоЕоХУ ( (80-ГепаеН ({2)) ах 2,2); 
Мх1е (+2); 

гереае 


СобохУ (1,3); 


М:1Ее ('Введите количество рядов (максимум ', 


МАХВОН, '): '); 
СосоХУ (ИРегех-6,ИМВеге\у); 
ВеааГл (пгом); 
соггесе1у := (пгом <= МАХВОМ) ап (пгом > 1); 
1Е поЕ соггес®1у %+Веп 
мг1е (#7) 


4111 соггес+1у; 


Еог 


1 := 1 о пком ао 


гереае 


СобохУ (1,1+3); 
Му1Ее(' ряд ',1,', количество фишек (максимум ', 
МАХСОГ, ') : '); 

СобохУ (ТегеХх-6, Веге\у); 

ВеааГл (псо1[1]); 

соггесе1у := (псо1[1] <= МАХСОГЬ) ап@ (псо1[1] >20); 

1Е поЕ соггес®1у &Веп | 
мг1е (#7) 


зпЕ1Ъ соггесЕ1у 


епа; 


{сСеЕСВапае] 


Переходим к конструированию процедуры ЗЕТОММЕВМОУЕ, в которой 
программа должна проконтролировать текущую ситуацию на игровом поле 
и выбрать собственный ход. Работа процедуры начинается с подсчета 
числа непустых рядов. В зависимости от этого подсчета реализуются 


следующие действия: 


если все ряды пусты, значит предыдущим ходом игрок забрал по-— 
следнюю фишку и он победил; нужно поздравить его с победой, 
усложнить игру и предложить сыграть еще раз; 

если есть только один непустой ряд, то очередной ход программы 
очевиден — забрать все фишки, что означает победу машины: со— 
общить об этом и предложить сыграть еще раз; 

если осталось два или более непустых ряда, выбрать собственный ход 
на основе оптимальной стратегии. | 


Начальный вариант процедуры: 


Ргоседиге ЗееОмпегхМохе; 
‘Находит и отображает очередной ход программы} 


КапсЕтоп СпескЕ1е1аА : Тпеедег; | 
‘Проверяет состояния игры. Возвращает 0, если нет ни одной _ 
’ Фишки (победа игрока), 1 - есть один ряд (победа машины) 
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и - количество непустых рядов в остальных случаях}. 
Ъед1п {СБескР1е1а)} 
еп; {СрескГ1е]1а} 


Ргоседиге Р]1ауегУ1с®огу; 

{Поздравить игрока с победой и усложнить игру} 
Ъед1п [{Р]ауегУ1сЕогу} 

епа; {Р]ауегкУ1сЕохгу} 


Ргосе4иге ОмпУ1скоку; 
{Победа машины} 
Бедап {ОшпУ1сЕогу} 
епЯ; —{ОипУ1сЕогу} 


Ргоседиге СпоозеМоуе; 
{Выбор очередного хода} 
Ъед1п {СПоозеМоуе} 

еп; {СПпоо5еМоуе?} 


(------------------- } 
Бедап (5еЕОипегМоуе?} 
сазе СпескЕ1е1А оЕ {Проверяем количество непустых рядов} 
О : Р1ауекУ1с®оку; {Все ряды пусты - победа игрока} 
1 : ОмпУ1своку; {Один непустой ряд - победа машины} 
е1зе 
Споо5еМоуе; {Выбираем очередной ход} 


еп; {са5е} 
еп; (беЕО0ипегхМоуе?]} 


Функция СНЕСКЕТЕЬО и процедуры РТАУЕВУТСТОКУ и ОММУТСТОВУ 
достаточно просты и их текст помещается без каких —либо пояснений в 
окончательный вариант программы (см. прил.5.3). Отмечу лишь, что в 
случае победы игрока нет смысла повторять партию заново с той же самой 
раскладкой фишек. Поэтому игра усложняется: в исходную раскладку 
добавляется еще по одной фишке в каждый ряд. 

В процедуре СНООЗЕМОУЕ анализируется позиция и выбирается оче— 
редной ход программы. Описание оптимальной стратегии уже приводилось 
выше. Действия программы заключаются в поиске первого слева 
(старшего) двоичного разряда, для которого сумма чисел нечетная. Если 
такой разряд не обнаружен, то текущая позиция безопасна для игрока, а 
значит любой ход программы сделает ее опасной. В этом случае для про-— 
траммы не существует оптимального выбора и она лишь убирает одну 
фишку из любого непустого ряда. Такая тактика означает пассивное 
ожидание ошибки игрока. 

Если обнаружен разряд Е с нечетной суммой, программа приступает к 
реализации оптимальной стратегии и тогла игрок обречен на поражение. 
Аля выбора ряда, из которого следует взять фишки, программа просмат— 
ривает последовательно все ряды и отыскивает тот ряд ] количество 
(фишек в котором (в двоичном представлении) дает единицу в разряде Г. 
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Значение этого разряда для количества фишек в ряду } заменяется нулем. 
Затем программа продолжает подсчет суммы для оставшихся младших 
разрядов. Если в каком —либо из них вновь обнаружена нечетность, зна— 
чение этого разряда для количества фишек в ряду } инвертируется, т.е. 0 
заменяется на 1, а 1 на 0. папример, если двоичные представления числа 
фишек и четности сумм таковы: 


число фишек в ряду ]: 01001 
четность сумм: .... 01011 


(единицей. указаны разряды с нечетными суммами), то в результате этой 
операции получим: 


число фишек в ряду }: 00010 
четность сумм: _ 00000 
Таким образом, в исходном состоянии в ряду | было 1001 = 9 фишек, 
безопасная позиция требует, чтобы в ряду осталось 0010 = 2 фишки, 


следовательно, из него нужно забрать 9 — 2 = 7 фишек. 

Окончательный вариант программы представлен в прил.5. 3. Попробуйте 
разобраться в ее деталях самостоятельно. 

В программной реализации алгоритма широко используется то об-— 
стоятельство, что Ваш компьютер, как и все остальные вычислительные 
машины, работает с числами, представленными в двоичной системе 
счисления. Поэтому для получения двоичного представления числа в 
процедуре ВТТЕГОВМ оно проверяется на четность. с помощью стандартной 
функции 010, затем сдвигается вправо на один двоичный разряд (операция 
ЗНВ), вновь осуществляется проверка на четность и т.д. до тех пор, пока не 
булут проверены все разряды. Максимальное число двоичных разрядов, 
достаточное для двоичного представления количества. _ фишек в ряду 
МАХСОТ = 63, задается константой ВТТ=6б. — 

Для получения суммы двоичных разрядов в процедуре Е СНООЗЕМОМЕ 
используется суммирование разрядов по модулю 2 с помощью операции 
ХОК. Такое суммирование дает 0, если количество единиц четное или равно 
нулю, и | — если нечетное. В этой же процедуре для инверсии двоичеого 
разряда применяется оператор. 


Е п61е[1] = 1 ЕЪел | о 
псЬ1* [71,1] := ога (псь1[),1]=0); {Инверсия разрядов}, 


в котором используется соглашение о внутреннем представлении логи- 
ческих величин в Турбо Паскале: 0 соответствует ГАЦЗЕ, а 1 — ТВОЕ. 
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ЭЛЕМЕНТЫ ЯЗЫКА 


3.1. АЛФАВИТ 


Алфавит языка Турбо Паскаль включает буквы, цифры, шестнадцате — 
ричные цифры, специальные символы, пробелы и зарезервированные 
слова. 

Буквы — это буквы латинского алфавита от а до р иотА до 4, а также 
знак подчеркивания _ (код АЗСИ 95). В Турбо Паскале нет различия между 
прописными и строчными буквами алфавита, если только они не входят в 
символьные и строковые выражения. 

Цифры -— арабские цифры от 0 до 9. 

Каждая шестнадцатеричная цифра имеет значение от 0 до 15. Первые 
10 значений обозначаются арабскими цифрами 0...9, остальные шесть — 
латинскими буквами А...Ё или а...1. 

Специальные символы Турбо Паскаля — это символы 


+ -* =, 1; <>] (){}^@$# 
К специальным символам относятся также следующие пары символов: 
<> «<= >= := (* *) ( . 5 ) 


В программе эти пары символов нельзя разделять пробелами, если они 
используются как знаки операций отношения или ограничители коммен— 
тария. Символы (. и.) могут употребляться соответственно вместо [и ]. 

Особое место в алфавите языка занимают пробелы, к которым отно — 
сятся любые символы АЗСИ в диапазоне кодов от 0 до 32. Эти символы 
рассматриваются как ограничители идентификаторов, констант, чисел, 
зарезервированных слов. Несколько следующих друг за другом пробелов 
считаются одним пробелом (последнее не относится к строковым кон- 
стантам). 

В Турбо Паскале имеются следующие зарезервированные слова: 


апа епа 111. Вх 
азм Е11е по зЕг1па 
аггау ох оь3есе реп 
Ьед1п Еипсе1оп оЕ Фо 
сазе дофо ох фуре 
сопзЕ 1Е раскеа 111 
сопзЕгасеок 1тр1етепеа*1оп ргосеаиге мп 
аезегасеог 1п ргодгам изез 
Ау 1п011ле хгесога уаг 
ао 1п$егхЕасе гереа®е м1 1е 
аомпЕо 1аЪез зее ме 


е1 зе тоа 851 хог 
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Зарезервированные слова не могут использоваться в качестве иден-— 
тификаторов. 

Стандартные директивы первоначально связаны с некоторыми стан-— 
дартными объявлениями в программе. К ним относятся: 


аьзо1аее Еах пеах 
аззетЬ1ех Еогмага рх1хаее 
ехЕегпа1 1п6еггир® \1г6иа1 


Как и зарезервированные слова, стандартные директивы в окне ре— 
дактора Турбо Паскаля выделяются цветом, тем не менее Вы можете пе— 
реопределить любую стандартную директиву, Т.е. объявить одноименный 
идентификатор. Стандартные директивы РВТУАТЕ и УТВТОАТ действуют 
только в пределах объявления объектов. | 


3.2. ИДЕНТИФИКАТОРЫ 


Идентификаторы в Турбо Паскале — это имена констант, переменных, 
меток, типов, объектов, процедур, функций, модулей, программ и полей в 
записях. Идентификаторы могут иметь произвольную длину, но’ значащими 
(уникальными в области определения) являются только первые 63 символа. 

Идентификатор всегла начинается буквой, за которой могут следовать 
буквы и цифры. Напомню, что буквой считается также символ подчер— 
кивания, поэтому идентификатор может начинаться этим символом и даже 
состоять только из одного или нескольких символов подчеркивания. 
Пробелы и специальные символы алфавита не могут входить в иденти— 
фикатор. 

Примеры правильных идентификаторов: 


а 
АГРНА 
МуРгодагамТВезРгодгам 
Чафе_27_зер_39 
ехфегпа1 

_фека 


Примеры неправильных идентификаторов: 


1Ргодгам {начинается цифрой} 

Б1оскК#1 {содержит специальный символ} 
Му РгозЗ {содержит пробел} 

поа {зарезервированное слово} 


3.3. КОНСТАНТЫ 


В качестве констант в Турбо Паскале могут использоваться целые, 
вещественные и шестнадцатеричные числа, логические константы, сим — 
волы, строки символов, конструкторы множеств и признак неопреде— 
ленного указателя МТГ. 

Целые числа записываются со знаком или без него по обычным пра— 
вилам и могут иметь значение от —2147483648 до +2147483647. Следует 
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учесть, что, если целочисленная константа выходит за указанные границы, 
компилятор дает сообщение об ошибке. Такие константы должны запи- 
сываться с десятичной точкой, т.е. определяться как вещественные числа. 
Вещественные числа записываются со знаком или без него с исполь-— 
зованием десятичной точки и/или экспоненциальной части. Экспонен-— 
циальная часть начинается символом е или ЕЁ ‚, за которым могут следовать 
знаки «+» или «—» и десятичный порядок. Символ е (Ё) означает деся— 
тичный порядок и имеет смысл «умножить на 10 в степени». Например, 


3.14Е5 - 3.14 умножить на 10 в степени 5; 
-17е-2 - минус 17 умножить на 10 в степени минус 2. 


Если в записи вещественного числа присутствует десятичная точка, 
перед точкой и за ней должно быть хотя бы по одной цифре. Если ис- 
пользуется символ экспоненциальной части е (Ё), за ним должна следовать 
хотя бы одна цифра десятичного порядка. 

Шестнадицатеричное число состоит из шестнадцатеричных цифр, ко- 
торым предшествует знак доллара $ (код 36 в А$СП. Диапазон шестна— 
дцатеричных чисел — от $00000000 до ЗЕЕЕЕЕЕЕЕ. 

Логическая константа — это либо слово ГАТЗЕ (ложь), либо слово ТВОЕ 
(истина). , 

Символьная константа — это любой символ ПК, заключенный в апо- 
строфы: 
| '12' - символ 2; 

'Ф' - символ $Ф. 


Если необходимо записать собственно символ апострофа, он удваи— 
вается: | 


'''' — символ ' (апостроф). 


Допускается использование записи символа путем указания его внут 
ренмего кода, которому предшествует символ # (код 35), например: 


#97 - символ а; 
#90 - символ 7; 
‚ #39 - символ !; 
#13 - символ СВ. 


Строковая константа — любая последовательность символов (кроме 
символа СК — возврат каретки), заключенная в апострофы. Если в строке 
нужно указать сам символ апострофа, он удваивается, например: 


'Это - строка символов!; 
'Траё''$ зЕхг1па". 


Строка символов может быть пустой, т.е. не иметь никаких символов в 
обрамляющих ее апострофах. Строку можно составлять из кодов нужных 
символов с предшествующими каждому коду символами #, например, 
строка #83#121#1091#98#11#108 эквивалентна строке 'бупро1'. 

Наконец, в строке можно чередовать части, записанные в обрамляющих 
апострофах, с частями, записанными кодами. Таким способом можно 


84 Глава 3 


вставлять в строки любые управляющие символы, в том числе и символ СВ 
(код 13), например: 


#7 'Ошибка | '#13' Нажмите. любую клавишу ...'#7 . 


Конструктор множества — список элементов множества, обрамленный 
квадратными скобками, например: 


24.321 - | 
[211е, гед] 


В отличие от стандартного Паскаля, в Турбо Паскале разрешается в 
объявлении констант использовать произвольные выражения, операндами 
которых могут быть ранее объявленные нетипизированные константы, 
имена типов и объектов, а также следующие функции от них: 


аЪз 10 — рег зиар 
сЬг оаа ‚ тоцпа Ехапс 
1 ога. — $12е0Е 
1епаЕп. ргеа | .5а сс 
’Например: 
соп5Е 
_ МахВеа1 = Махтпе @4у 312е0Е (теа1); 
МитСВагз = оха('2') = ога (' а!) +1; 
110 = 2.302585092994; 
1108. =1/ 1110;. - 


3.4. ВЫРАЖЕНИЯ ` 


Основными элементами, из которых конструируется исполняемая часть 
программы, являются константы, переменные и обращения к функциям. 
Кажлый из этих элементов характеризуется своим значением и принад— 
лежит к какому — либо типу данных. С помощью знаков операций и скобок 
из них можно составлять выражения, которые фактически представляют 
собой правила получения новых значений. | 

Частным случаем выражения может быть просто одиночный элемент, 
т.е. константа, переменная или обращение к функции. Значение такого 
выражения имеет, естественно, тот же тил, что и сам элемент. В более. 
общем случае выражение состоит из нескольких элементов (операндов} и 
знаков операций, а тип. его значения определяется типом операндов и 
видом примененных к ним операций. о 

Примеры выражений: 


У 
21 


(а + ъ} х с 

$1 (Е) 
а>2 ^^ ` о 
„оф Е1ад апа (а = Ъ) 
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МТЬ 
(1, 3..1] * зеё1 


3.5. ОПЕРАЦИИ 
В Турбо Паскале определены следующие операции: 


унарные поЕ, @; 

мультипликативные *, /, 41%, мо, апа, 3№1, зВг; 
аллитивные +, -, ог, хог; 

отношения =, <>, <, >, <=, >=, 41. 


Приоритет операций убывает в указанном порядке, т.е. наивысшим 
приоритетом обладают унарные операции, низшим — ‚операции отноше — 
ния. Порядок выполнения нескольких операций равного приоритета ус— 
танавливается компилятором из условия оптимизации кода программы и 
не обязательно слева направо. При исчислении логических выражений 
операции равного приоритета всегда вычисляются слева направо, причем 
будут вычисляться все или только достаточные операции в зависимости от 
установленной в среде Турбо Паскаля опции ОРПОМ$/СОМРШЕЕ/ 
СОМРГЕЕТЕ ВООГЕАМ ЕТАГ: при установленном значении этой опции 
вычисляются все операции отношения, при неустановленном — только те, 
которые достаточны для получения результата. 

Это обстоятельство необходимо учитывать при использовании операций 
отношения с функциями, в которых изменяются глобальные переменные 
или параметры, передаваемые по имени, например: 


РипсЕ1топ Ааат(уахг х: Тпеедег): Тпеедег; 
Бед1п {даат} 
1пс(х); 
АаатТ := х 
епа {дааг}; 
уаг 
а, : Тпфедег; 
Ьед1п {та1п} 
31Е (а > Ъ) ок (Ааат(а) > 100) «ел Ь :=а; 


При выполнении этого фрагмента значение переменной А будет за-— 
висеть от настройки опции: если опция активизирована, значение А всегла 
наращивается на 1, если не активизирована — только в случае А <= В. 

Правила использования операций с операндами различного типа при-— 
водятся в табл. 3.1. 


Таблица 3.1 


Любой. целый 
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Г уже |  Любойщеый  [ Наименьший целый _ 
[| тж | Любой вещественный | —  Ежееа | 
[ па | Остаток отделения — | Тож | Тож 
Г - | Вычиане _ | Любой целый | Наименыший целый | 
Г - [Тож —  [ Любой вещественный | —  Ежбеваеа _ — 


Равно Любой простой или Логический 
строковый 
Не равно То же То же 


При действиях с вещественным типом одним из операндов может быть 
значение любого целого типа. Результат операций имеет указанный в 
таблице тип ЕХТЕМОЕР только для установленного в среде Турбо Паскаля 
режима генерации кода, рассчитанного на арифметический сопроцессор 
или на его эмуляцию (см. прил.1). Если этот режим не установлен, ре 
зультат будет иметь значение типа ВЕЛЬ. 

Унарная операция @ применяется к операнду любого типа и возвращает 
результат типа РОТМТЕВ (см. гл.б), в котором содержится адрес операнда. 
Пусть например, задано описание 


фуре 
ТиоСраг = аггау [1..2] оЕЁ саг; 
уах 
Тре : 1п6едег; 
ТиоСрахгРег : ^ТмоСВаг; 
Тогда оператор 
ТиоСракРЕх := @Тпф; 


приведет к тому, что в ТмоСвахРЕг будет храниться адрес целочисленной 
переменной ТМТ, которая может теперь интерпретироваться как сово— 
купность двух символов. Поэтому возможен, например, такой оператор: 


3Е ТиосСрагРЕг^ [1] = 'С' Бер ... 


Если операция @ применяется к процедуре, функции или методу в 
объекте, ее результатом будет адрес точки входа в эту процедуру 
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(функцию, метод). Этот адрес можно использовать только в подпрограмме, 
написанной на ассемблере, или в фрагментах ТМЬТМЕ. 
В Турбо Паскале определены следующие логические операции: 


поЕ - логическое НЕ; 

ап - логическое И; 

ог - логическое ИЛИ; 
хог - исключительное ИЛИ. 


Логические операции применимы к операндам целого и логического 
типов. Если операнды — целые числа, то результат логической операции 
есть тоже целое число, биты которого (двоичные разряды) формируются 
из битов операндов по правилам, указанным в табл. 3.2. 


Таблица 3.2 


Логические операции над данными типа ПУТЕСЕВ 
(поразрялно) 


ПЕ ОЕ ПОХ ОО ОЕ ОЕ ЕО 


К логическим же в Турбо Паскале обычно относятся и две сдвиговые 
операции над целыми числами: 


1 351 5) — сдвиг содержимого { на ] разрядов влево; освободившиеся 
младшие разряды заполняются нулями; 
1 $5: 5) — сдвиг содержимого 1 на ] разрядов вправо; освободившиеся 


старшие разряды заполняются нулями. 
В этих операциях {и ] — выражения любого целого типа. 
С помощью программы примера 3.1 можно вывести на экран результат 
применения логических операций к двум целым числам. 


Пример 3.1 
{Программа вводит два целых числа и печатает результат приме- 
нения к ним логических операций. Для выхода из программы вве- 
сти СЕг1-2 и нажать ЕпёЕег} 
уаг 
п,м : 1п6едег; 
Беда 
мВ11е по ЕОЕГ ао 
Беда 
Иг1 ве ('п,м = '); 
ВеааГл (п,м); 
Митсе!п (' поЕ= ', поЕ п,'! ', ПО п); 
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Му1$бе!1л(' апа= ',п ара п); 


Мите! (' ох = "',п ох п); 

Иг1ееГп (' хог= ',п хог м); 

Музее! п (' з51= ',п $51 п); 

Их1т6е!п ('  эзрг= ',п $Вг п) 
епа 


епа. 


В программе организуется ввод двух произвольных целых чисел и 
печать результата применения к ним всех логических операций. Для вы- 
хода из программы следует нажать СН1-2 и Ешег. 

Логические операции над логическими данными дают результат ло— 
гического типа по правилам, указанным в табл. 3.3. 


Таблица 3.3 


Логические операции над данными типа Воо]еап 


[те | - | Ра1ве — 

Е ЕО ОЕ О О 
_[Еа1зе | Ра1зе | _- — | Еа1зе | [а1ве | Ра1зе _ 
[_Еа1зе _| Те |[ - [| Ра1зе | Те | Тке 
[ тхуе | 2Еа1зе | _- | Еа1зе | Тке | Тке 
[те | те |Б- | те | Те | га1зе__ 


Операция отношения ТМ применяется к двум операндам. Первым 
(левым) операндом должно быть выражение любого порядкового типа, 
вторым — множество, состоящее из элементов того же типа, или иден— 
тификатор множественного типа. Операция дает ТКОЕ, если левый операнд 
принадлежит множеству, например: 


уаг 
с: спаг; 
фуре 
191% = зеЕ оЁ '0'..'9'; . 
Бед1п 
1Е с 1п 91916 ЕВеп....... 


3.6. СТРУКТУРА ПРОГРАММЫ 


Структура любой программной единицы (программы, процедуры или 
функции) должна быть такой: 


<Объявление программной единицы> 
{Раздел описаний] 

ВЕСТМ 

{Раздел исполняемых операторов} 

ЕМО <символ конца программной единицы> 
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Здесь <Объявление программной единицы> — заголовок программы, 
процедуры или функции; заголовок программы можно опускать 
без каких—либо последствий для программы; для процедур и 
функций наличие заголовка обязательно; 
<символ конца программной единицы> — символ «.» для про- 
граммы или символ «;» — для процедуры и функции. 


Любой из двух разделов программной единицы — раздел описаний или 
исполняемых операторов, или оба одновременно могут быть пустыми, т.е. 
не содержать никаких описаний или исполняемых операторов. 

В разделе описаний должны содержаться описания всех идентифика— 
торов, используемых в разделе исполняемых операторов. Исключением 
являются идентификаторы, определенные в интерфейсных частях про— 
граммных модулей (библиотек), а также глобальные для процедуры или 
функции идентификаторы (см. гл. 8). Если программная единица исполь — 
зует идентификатор из интерфейсной части какого —либо модуля (см. гл. 
9), в начале программы в предложении 95Е$ необходимо указать имя этого 
модуля. Последнее не относится к идентификаторам, определенным в 
стандартном модуле ЗУЗТЕМ, т.е. имя этого модуля в предложении 95Е$ 
указывать не нужно. Более того, модуль ЗУЗТЕМ считается предварительно 
объявленным, поэтому объявление 


Озез ЗузЕепм; 


компилятор расценит как попытку двойного объявления модуля ЗУЗТЕМ и 
даст соответствующее сообщение об ошибке. 

В разделе описаний объявляются идентификаторы типов, объектов, 
констант, переменных, а также метки, процедуры и функции. Описанию 
типов и объектов должно предшествовать зарезервированное слово ТУРЕ, 
описанию констант — СОМ$ЗТ, переменных — УАВ и меток — ГАВЕЁБ на— 
пример: 


уре 
019Туре = зе оЕЁ '0'..'9!; 
ЗЕгТуре = $6х1па [40]; 
сопзЕ 
№ = 100; 
ЕР$ = 1е-9; 
уаг 
х,у : геа1; 
$5Е : оЕеТуре; 
1аЪе1. 
151, 152; 


В отличие от стандартного Паскаля разделы ТУРЕ, СОМЗТ, УАВ, ТАВЕГ, 
могут следовать друг за другом в любом порядке и встречаться в разделе 
описаний сколько угодно раз. | 

Описание процедуры или функции заключается в указании заголовка 
этой процедуры (функции) и ее тела (подробнее см. в гл. 8). 

Структура программных библиотек (модулей) описана в г^.9. 


Глава 4 


ТИПЫ ДАННЫХ 


Любые данные, т.е. константы, переменные, значения функций или 
выражения, в Турбо Паскале характеризуются своими типами. Тип оп- 
ределяет множество допустимых значений, которые может иметь тот или 
иной объект, а также множество допустимых операций, которые приме— 
нимы к нему. Кроме того, тип определяет также и формат внутреннего 
представления данных в памяти ПК. 

Турбо Паскаль характеризуется разветвленной структурой типов 
данных (рис.4.1). 


Простые Порядковые 


Вещественные 


Структурированные Массивы Сиыволбвный 


Перечисляемый 


Строки Множества Тип-диапазон 


Процедурные Файлы 


Объекты 


Рис.4.1. Структура типов данных 


В Турбо Паскале предусмотрен механизм создания новых типов данных, 
благодаря чему общее количество типов, используемых в программе, 
может быть сколь угодно большим. 

В этой главе приводится подробное описание всех типов, за исключе — 
нием файлов и указателей, которые рассматриваются в следующих двух 
главах, а также процедурных типов, которые рассматриваются в гл.8, и 
объектов (гл.10). 
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4.1. ПРОСТЫЕ ТИПЫ 


К простым типам относятся порядковые и вещественные типы. 

Порядковые типы отличаются тем, что каждый из них имеет конечное 
число возможных значений. Эти значения можно определенным образом 
упорядочить (отсюда — название типов) и, следовательно, с каждым из них 
можно сопоставить некоторое целое число — порядковый номер значения. 

Вещественные типы, строго говоря, тоже имеют конечное число зна— 
чений, которое определяется форматом внутреннего представления ве— 
щественного числа. Однако количество возможных значений вещест— 
венных типов настолько велико, что сопоставить с каждым из них целое 
число (его номер) не представляется возможным. 


4.1.1. Порядковые типы 


К порядковым типам относятся (см. рис.4.1) целые, логический, сим — 
вольный, перечисляемый и тип -— диапазон. К любому из них применима 
функция ОКБ(Х) которая возвращает порядковый номер значения вы-— 
ражения Х. Аля целых типов функция ОКО(Х) возвращает само значение 
Х, т.е. ОКО(Х) = Х для Х, принадлежащего любому целому типу. Приме-— 
нение ОКБ(Х) к логическому, символьному и перечисляемому типам дает 
положительное целое число в диапазоне от 0 до 1 (логический тип), от 0 ло 
255 (символьный), от 0 до 65535 (перечисляемый). Тип -— диапазон сохраняет 
все свойства базового порядкового типа, поэтому результат применения к 
нему функции ОКП(Х) зависит от свойств этого типа. 

К, порядковым типам можно также применять функции: 

РВЕШО(Х) — возвращает предыдущее значение порядкового типа 
(значение, которое соответствует порядковому номеру ОКО(Х)- 1), т.е. 


ОВО (РВЕО (Х)) = ОВО (Х) - 1; 


59СС (Х) — возвращает следующее значение порядкового типа, которое 
соответствует порядковому номеру ОКГ(Х) +1, т.е. 


ОВО ($9СС (Х)) = ОВО(Х) + 1. 


Например, если в программе определена переменная 


уаг 
с : спаг; 
Бед1п 
С о — 15'. 
епа. 


то функция РКЕБ(С) вернет значение '4', а функция 5ИСС(С)} — значение 
'6'. 

Если представить себе любой порядковый тип как упорядоченное 
множество значений, возрастающих слева направо и занимающих на чи -— 
словой оси некоторый отрезок, то функция РКЕО(Х) не определена для 
левого, а ЗИСС(Х) — для правого конца этого отрезка. 

Целые типы. Диапазон возможных значений целых типов зависит от их 
внутреннего представления, которое может занимать один, два или четыре 
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байта. В табл. 4.1 приводится название целых типов, длина их внутреннего 
представления в байтах и диапазон возможных значений, 


Таблица 4.1 


Целые типы 
И 
байт | 


-128...+127 
[ГопатиЕ | 4 | -2 147 483 648...+2 147 483 647 _ 


При использовании процедур и функций с целочисленными парамет— 
рами следует руководствоваться «вложенностью» типов, Т.е. везде, где 
может использоваться УОКО, допускается использование ВУТЕ (но не 
наоборот), в ГОМСИМУТ «входит» ПМУТЕСЕК, который, в свою очередь, 
включает в себя 5НОКИМТ. 

Перечень процедур и функций, применимых к целочисленным типам, 
приведен в табл.4.2. Буквами Ь, $, м, 1, 1 обозначены выражения соответ — 
ственно типа ВУТЕ, ЗНОКИМТ, ИОЕО, ПМТЕСЕК и ГОМИМТ, х - выра-— 
жение любого из этих типов; буквы УБ, у$, ум’, И, У[, ух обозначают пере— 
менные соответствующих типов. В квадратных скобках указывается не— 
обязательный параметр. 


Таблица 4.2 


Стандартные процедуры и функции, применимые 
к целым типам 


И аьз (хо Возвращает модуль х 
сВх (Ъ) Возвращает символ по его коду 


ес (ух[,1]) НИ Уменьшает значение ух на 1, а при 
отсутствии 1 - на 1 
О ИИ Увеличивает значение ух на 1, а 
при отсутствии 1 - на 1 


То же 
_ 1) | = ^^ [Возвращает младший байт аргумента. 
м То же 


ода (1) Возвращает Тгце, если аргумент - 
нечетное число 
ООС как у параметра 
^ равномерно распределенное в диа- 
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ООАЯ пазоне 0... (м-1) 
— = | воззеащает коадрат артумнте = 
ООО ООО 


При действиях с целыми числами тип результата будет соответствовать 
типу операндов, а если операнды относятся к различным целым типам, — 
типу того операнда, который имеет максимальную мощность (максималь — 
ный диапазон значений). Возможное переполнение результата никак не 
контролируется, что может привести к недоразумениям, например: 


уаг 
а : зпеедег; 
х, у : геай; 


Бедап И 
а := 321767; {Максимально. возможное значение типа 
| ТМТЕСЕВ} | 
х := а+2; | {Переполнение при вычислении 
этого выражения!} 
у := топят (8) +2; {Переполнения нет после приведения 


__ переменной к. более ‚мощному типу). 
_ Ист беГл (х:10:0, у: 10: 0) _ 
епа. | 


В результате прогона программы получим. 
-32767 °— 32769 


Логический тип. Значениями логического типа может быть одна из 
предварительно объявленных констант РАЁФЕ (ложь) или ТКОЕ (истина). _ 
Для них справедливы правила: 

ога (Ёа1зе) = 0; 

ога (&гае) — 
Га1зе < +гце; 

5асс (Еа1зе) = $хчае; 
ргеа(Егие) ‘= Ёа15е. 


| 
СН 
`о “о 


Поскольку логический тип. относится к порядковым типам, его можно‘ 
использовать в операторе счетного типа, например: 


уаг = 
1 : Воо1еап; 

Ьед1п | - 
Бог 1 := Еа]15е о Тгие @о .... 


Символьный тип. Значением символьного типа является множество всех. 
символов ПК. Каждому символу приписывается целое число в диапазоне 
0...255. Это число служит кодом внутреннего представления символа, его . 
возвращает функция ОКО. о 

Аля кодировки используется. код АСИ (Атепсап Запаага Соае ЮГ 
тпюЮгтаНоп Шегсвапде -— ‘американский стандартный код для обмена. 
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информацией). Это 7—битный код, т.е. с его помощью можно закоди— 
ровать лишь 128 символов в диапазоне от 0 до 127. В то же время в 8— 
битном байте, отведенном для хранения символа в Турбо Паскале, можно 
закодировать в два раза больше символов в диапазоне от 0 до 255. Первая 
половина символов ПК с кодами 0...127 соответствует стандарту АСИ 
(табл. 4.3). Вторая половина символов с кодами 128...255 не ограничена 
жесткими рамками стандарта и может меняться на ПК разных типов (в 
прил.2 приведены некоторые распространенные варианты кодировки этих 
СИМВОЛОВ). 


Таблица 4.3 


Кодировка символов в соответствии со стандартом АЗСП 


[30 [6 > | ^^ 1 126 | 
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СО ОСЗ ПО ЗА ОЕ ИО: ЗИ МООИ ОЕ ИИ МООИ ЗОН 


Символы с кодами 0...31 относятся к служебным кодам. Если эти коды 
используются в символьном тексте программы, они считаются пробелами. 
При использовании их в операциях ввода— вывода они могут иметь сле— 
дующее самостоятельное значение: | 


ВЕТ 7 ЗВОНОК; вывод На экран этого символа сопровождается зву- 
ковым сигналом 


НТ Горизонтальная табуляция; при выводе на экран смещает 
рсор в позицию, кра о 8, плюс 1 (9, 17, 25 ит.д.) 


Е 10 Перевод строки, при выводе его на экран все последующие 


символы будут выводиться, начиная с той же позиции, но на 
ощей строке 


УТ Вертикальная табуляция; при выводе на экран заменяется 
специальным знаком 

т [рзаела ра зв сольные 
при выводе на экран заменяется специальным знаком 


Возврат каретки; вводится нажатием на клавишу Ещег (при 
вводе с помощью КЕАД или КЕАРЕМ означает команду «Ввод» и 
в буфер ввода не помещается; при выводе означает команду 
«Продолжить вывод с начала текущей строки») 


26 Конец файла; вводится с клавиатуры нажатием СШ--7; при 
‚ выводе заменяется специальным знаком 


Конец работы; вводится с клавиатуры нажатием на клавишу 


СВ 


Е$С; при выводе заменяется специальным знаком 


К типу СНАК применимы операции отношения, а также встроенные 
функции: 

СНЕ(В) — функция типа СНАК; преобразует выражение В типа ВУТЕ в 
символ и возвращает его своим значением; 

ОРСАЗЕ(СН) — функция типа СНАК; возвращает прописную букву, если 
СН — строчная латинская буква, в противном случае возвращает сам 
символ СН, например: 


уаг 
с1,Сс2: спаг; 

ред1п 
с1 := ОрСазе('$'); 
с2 := ОрСазе('ф'); 
Их сел (с1,' ',С2) 

епа. 


Так как функция ОРСАЗЕ не обрабатывает кириллицу, в результате 
прогона этой программы на экран будет выдано 


5 Фф 


Перечисляемый тип. Перечисляемый тип задается перечислением тех 
значений, которые он может получать. Каждое значение именуется не-— 
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которым идентификатором и располагается в списке, обрамленном 
круглыми скобками, например: 


фуре 
со10г5$ = (геа, мр1ее, Ъ1ае); 


Применение перечисляемых типов делает программы нагляднее. Если, 
например, в программе используются данные, связанные с месяцами года, 
то такой фрагмент программы: 


фуре 

ТипМесяц= (янв, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек); 
умах 

месяц : ТипМесяц; 
Бед1п 


1Е месяц = авг ®Ъеп Иг1ееГл ('Хорошо бы поехать к морю!'); 


ела. 


был бы, согласитесь, очень наглядным. Увы! В Турбо Паскале нельзя ис— 
пользовать кириллицу в идентификаторах, поэтому мы вынуждены писать 
так: | | 


фуре | 

ТуреМойЕП= (] ап, Еею, маг, ау, Зап, 31, аца, зер, ос+, поу,аес); 
уагх 

попеН: ТуреМопеВ; Е 
Бед1п | 


1Е попЕП = ацд ед Иг1ее!л ('Хорошо бы поехать к морю!'); 


епа. 


Соответствие между значениями перечисляемого типа и порядковыми 
номерами этих значений устанавливается порядком перечисления: первое 
значение в списке получает порядковый номер 0, второе — 1 и Т.А. 
Максимальная мощность перечисляемого типа составляет 65536 значений, 
поэтому фактически перечисляемый тип задает некоторое подмножество 
целого типа И’ОКО и может рассматриваться как компактное объявление 
сразу группы целочисленных констант со значениями 0, 1 ит.д. 

Использование перечисляемых типов повышает надежность программ 
благодаря возможности контроля тех значений, которые получают соот— 
ветствующие переменные. Пусть, например, заданы такие перечисляемые 
типы: 


фуре 
со10ог5$ = (Ъ1]аск, геа, мЬ1*е); 
огаепа]= (опе, мо, %Пгее); 
Дау$ = (топаау, *цезаау, меапездау); 
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С точки зрения мощности и внутреннего представления все три типа 
эквивалентны: 


ога (Ю1асКк) =0, ... ‚, ога (м1 е) =2, 
ога (опе)=0, ... ‚, ога (%Ъгее) =2, 
ога (попаау) =0, ... ‚, ога (меапезадау)=2. 


Однако, если определены переменные 


уаг 
со] : Ссо10:$; 
пий : огаепа1; 


Дау : Чауз; 
то допустимы операторы 
| со1 := Б1аск; 
пом :=. асс (мо); 
Чау := ргеа (+щезаау); 
но недопустимы 
со1 := опе; 
ау := Б1аск; 


Как уже упоминалось между значениями перечисляемого типа и 
множеством целых чисел существует однозначное соответствие, зада— 
ваемое функцией ОЮП(Х). В Турбо Паскале допускается и обратное пре -— 
образование: любое выражение типа И’ОКР можно преобразовать в зна— 
чение перечисляемого типа, если только значение целочисленного вы— 
ражения ‘не превышает мощности перечисляемого типа. Такое преобра— 
зование достигается применением автоматически объявляемой функции с 
именем перечисляемого типа (см. п. 4.4). Например, для рассмотренного 
выше объявления типов эквивалентны следующие присваивания: 


со] 


:= опе; 
со1 := со10г$ (0); 
Разумеется, присваивание 
со1 := 0; 


будет недопустимым. 
Переменные любого перечисляемого типа можно объявлять без пред— 
варительного описания этого типа, например: 


уаг 
` со1: (51асКк, мН16е, агееп); 


Тип-диапазон. Тип -— диапазон есть подмножество своего базового типа, 
в качестве которого может выступать любой порядковый тип, кроме ти-— 
па — диапазона. и | 

Тип- диапазон задается границами своих значений внутри базового 
гипа: 


<мин.знач.>. .<макс.знач.> 
Здесь <мин.знач.> — минимальное значение типа — диапазона; 


1—1411 
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<макс.знач.> — максимальное его значение. 


Например: 
фуре 
9191 = '0'..'9'; 
9192 = 48 .. 57; 


Тип-лдиапазон необязательно описывать в разделе ТУРЕ, а можно 
указывать непосредственно при объявлении переменной, например: 


уаг 
Чате : 1..31; 
мопев: 1..12; 
ТсВЕ : 'А'..'01';. 


При определении типа- диапазона нужно руководствоваться сле- 
дующими правилами: 


е два символа «.» рассматриваются как один символ, поэтому между 
ними недопустимы пробелы; 


е Левая граница диапазона не должна превышать его правую границу. 

Тип- диапазон наследует все свойства своего базового типа, но с ог- 
раничениями, связанными с его меньшей мощностью. В частности, если 
определена переменная 


фуре 
Дау$ = (по, ба, ме, сп, Ех, за, 54); 
ИееКЕпа за .. $4; 

уагх 
м : МеекКЕпа; 

Ред1п 


то ОЮО(И/) вернет значение 5 ‚ в то время как РКЕШБ(\/) приведет к ошибке. 
В стандартную библиотеку Турбо Паскаля включены две функции, 
поддерживающие работу с типами — диапазонами: 
ШСН()Х) -— возвращает максимальное значение типа- диапазона, к 
которому принадлежит переменная Х; 
ГО\У/Х) —возвращает минимальное значение типа — диапазона. 
Следующая короткая программа выведет на экран строку 


-32768...327167 
уаг К: Тпкедег; 
Бед1п 
Иг1ЕеГл (ом (К),’...’,Нзарй (К) ) 
епа. 


Типы данных 99 


4.1.2. Вещественные типы 


В отличие от порядковых типов, значения которых всегда сопостав — 
ляются с рядом целых чисел и, следовательно, представляются в ПК аб-— 
солютно точно, значения вещественных типов определяют произвольное 
число лишь с некоторой конечной точностью, зависящей от внутреннего 
формата вещественного числа. 


Таблица 4.4 


Количество 
значащих цифр 


Диапазон десятичного 
порядка 


11...12 -39...+38 
15...16 -324...+308 
19...20 -4951...+4932 
19...20 -2*10°”+1...+2*°?-1 


Как видно из табл.?, вещественное число в Турбо Паскале занимает от 4 
ло 10 смежных байт и имеет следующую структуру в памяти ПК: 


АЗ ОЗ ООО ООО 


Здесь $ — знаковый разряд числа; е — экспоненциальная часть; со— 
лержит двоичный порядок; ш — мантисса числа. 

Мантисса т имеет длину от 23 (для ЭПМОГЕ) до 63 (для ЕХТЕМОЕО) 
лвоичных разрядов, что и обеспечивает точность 7...8 для 5ПМОТЕ и 19...20 
лля ЕХТЕМРЕР десятичных цифр. Десятичная точка (запятая) подразу— 
мевается перед левым (старшим) разрядом мантиссы, но при действиях с 
числом ее положение сдвигается влево или вправо в соответствии с дво— 
ичным порядком числа, хранящимся в экспоненциальной части, поэтому 
лействия над вещественными числами называют арифметикой с пла- 
вающей точкой (запятой). 

Как видим, Турбо Паскаль характеризуется богатой гаммой вещест— 
венных типов, однако доступ к типам $ИУСТЕ, РООЧВЕЕ и ЕХТЕМРЕР 
возможен только при особых режимах компиляции. Дело в том, что эти 
гипы рассчитаны на аппаратную поддержку арифметики с плавающей 
гочкой и для их эффективного использования в состав ПК должен входить 
зрифметический сопроцессор. Компилятор Турбо Паскаля позволяет 
создавать программы, работающие на любых ПК (с сопроцессором или без 
него} и использующие любые вещественные типы. Необходимая для этого 
настройка компилятора описана в прил.1. В процессе запуска Турбо 
Паскаль проверяет состав аппаратных средств и выявляет наличие или 
отсутствие сопроцессора. 

В некоторых случаях бывает необходимо отключить автоконтроль. Для 
этого перед запуском Турбо Паскаля следует дать такую команду ДОС: 


зеёе 87=М 


Название 


Команда 
зеЕ 87=У 
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напротив, включает автоконтроль — эта команда активна по умолчанию. 
Отметим, что арифметический сопроцессор всегда обрабатывает числа в 
формате ЕХТЕМРЕРО, а три других вещественных типа в этом случае по— 
лучаются простым усечением результатов до нужных размеров и при- 
меняются в основном для экономии памяти. 
Например, если «машинное эпсилон» (см. пример 2.6 в гл.2) вычисляется 
с помощью такой йрограммы: 


{?М+,Е+} 
фуре 
Веа1Туре = геа1: 
уаг 
ерз11оп : Веа1Туре; 
Бедап 
ер$11оп := 1; 
имБ11е 1+ерз11о0оп/2 > 1 ао 
. ерз11оп := ерз11оп/2; 
`- Иг1 ел (ерз11оп) 
В ела. 


то независимо от объявления типа ВЕАГТУРЕ (он может быть МСТ, 
КЕАГ. РООВГЕ или ЕХТЕМОЕР) на печать будет выдан результат 


1.08420217248550Е-0019 


что соответствует типу ЕХТЕМРЕР. Происходит это по той причине, что 
все операнды вещественного выражения 1 + ер$11оп/2 в операторе 
И/НЦЕ, перед вычислением автоматически преобразуются к типу 
ЕХТЕМОЕО. Чтобы получить правильный результат (например, для типа 
ВЕАГТУРЕ = ВЕАГ он будет 9.09494701772928Е-0013), программу не- 
обходимо изменить следующим образом: 


{$№+,Е+} 
фуре 
Веа1Туре = геа1; 
уаг 
ер$11оп, ер$1 : Веа1Туре; 
Бед1п 
ер$11оп := 1; 
гереа* 
ерз11оп := ерз11о0п/2; 
ерз1 := 1 + ер$11о0п 


ипЕ11 ер51 = 1; 
Иг1сеГл (2*ер$11оп) 
епа. 


Следует учесть, что тип КЕАГ оптимизирован для работы без сопро — 
цессора. Если Ваш ПК оснащен сопроцессором, использование типа КЕАЁ 
приведет к дополнительным затратам времени на преобразование ВЕАЕ к 


ЕХТЕМОЕР. Поэтому_никогда не используйте КЕАГ на ПК _с сопроцессором, 


т.к. дополнительные затраты времени на преобразование ТИПОВ МОГУТ 
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свести на нет все преимущества сопроцессора. При разработке программ, 
критичных ко времени счета, следует заменять его типами ЗПУСЕЕ или 
ДООВГЕ: по сравнению с типом КЕАГ скорость вычислений на машинах с 
сопроцессором в этом случае увеличивается в 2...3 раза. Если в ПК нет 
арифметического сопроцессора, скорость обработки данных всех веще- 
ственных типов приблизительно одинакова. 

Особое положение в Турбо Паскале занимает тип СОМР, который 
трактуется как вещественное число без экспоненциальной и дробной 
частей. Фактически, СОМР — это «болышое» целое число со.знаком, со— 
храняющее 19...20 значащих десятичных цифр (во внутреннем представ — 
‚лении СОМР занимает 8 смежных байт). В то же время в выражениях 
СОМР полностью совместим с любыми другими вещественными типами: 
над ним определены все вещественные операции, он может использоваться 
как аргумент математических функций и т.д. Наиболее подходящей об— 
ластью применения типа СОМР являются бухгалтерские расчеты: де- 
нежные суммы выражаются в копейках или центах и действия над ними 
сводятся к операциям с достаточно длинными целыми числами. 

Для работы с вещественными данными могут использоваться встро— 
енные математические функции, представленные в табл. 2.5. В этой таб — 
лице КЕАГ означает любой вещественный тип, ПУТЕСЕК -— любой целый 
ТИП. 


Таблица __2.5 


Стандартные математические функции Турбо Паскаля — 
Обращение | Тип па- Тип ре- Примечание 
раметра | зультата 


аб$ (х) геа1, Тип аргу- Модуль аргумента 
ПИ 
ЕТ ОБИ ОБИ МОИ 
[1х | ^^“ | [ ^ [| [[__ Логарифм натуральный _ — 
ПО ПО ООО п = 3.141592653.. 


ВКапаом “ Псевдослучайное число, равномерно 
распределенное в диапазоне 0...[1] 
Вапаом (х 1п$едех 1пхедег Псевдослучайное целое число, равно — 
мерно распределенное в диапазоне | 
0...(х— 1) 
Вапаом12е  ^ о | Инициация генератора псевдослучайных : 
чисел 
з1п (х) теа] Синус, угол в радианах 


вах (к) Квадрат аргумента 
как [о Корень квадратный 
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4.2. СТРУКТУРИРОВАННЫЕ ТИПЫ. 


Любой из структурированных типов (а в Турбо Паскале их четыре: 
массивы, записи, множества и файлы) характеризуется множественностью 
образующих этот тип элементов, т.е. переменная или константа структу— 
рированного типа всегда имеет несколько компонентов. Каждый компо— 
нент, в свою очередь, может принадлежать структурированному типу, что 
позволяет говорить о возможной вложенности типов. В Турбо Паскале 
допускается произвольная глубина вложенности типов, однако суммарная 
длина любого из них во внутреннем представлении не должна превышать 
65520 байт. | 

В целях совместимости со стандартным Паскалем в Турбо Паскале 
разрешается перед описанием структурированного типа ставить заре— 
зервированное слово РАСКЕО, предписывающее компилятору, по воз— 
можности, экономить память, отводимую под объекты структурированного 
типа; но компилятор фактически игнорирует это указание: «упаковка» 
данных в Турбо Паскале осуществляется автоматически везде, где это 
ВОЗМОЖНО. 


4.2.1. Массивы 


Массивы в Турбо Паскале во многом схожи с аналогичными типами 
данных в других языках программирования. Отличительная особенность 
массивов заключается в том, что все их компоненты суть данные одного 
типа (возможно, структурированного). Эти компоненты можно легко 
упорядочить и обеспечить доступ к любому из них простым указанием его 
порядкового номера, например: 


фуре 
Я9191Е = агхау [0..9] оЕ спаг; 
пафг1х = агхау [рубе] оЕЁ $1п91е; 
уаг | 
т : пабх1х; 
Я : @а191; 
1 : 1пеедег; 
Беда 
п[17] := ога (а[1-1])/10; 
епа. 


Описание типа массива задается слелующим образом: 
<имя типа> = АВВАУ [ <сп.инд.типов> | ОЕ <тип> 


Здесь <имя типа> -— правильный идентификатор; 
АКВРАУ, ОЕ — зарезервированные слова (массив, из}; 
<сп.инд.типов> — список из одного или нескольких индексных 
типов, разделенных запятыми; квадратные скобки, обрам — 
ляющие список, — требование синтаксиса; 
<тип> — любой тип Турбо Паскаля. 


Типы данных —_ 103 


В качестве индексных типов в Турбо Паскале можно использовать 
любые порядковые типы, кроме ГОМСИ\МТ и типов — диапазонов с базовым 
типом СГОМОСМ\Т. 

Определить переменную как массив можно и непосредственно при 
описании этой переменной, без предварительного описания типа массива, 
например: 


уаг 
а,ю : аггау [1..10] оЕЁ геа1; 


Обычно в качестве индексного типа используется тип- диапазон, в 
котором задаются границы изменения индексов. Так как тип <тип>, 
идущий за словом ОЕ, — любой тип Турбо Паскаля, то он может быть, в 
частности, и другим массивом, например: 


фуре 
паЕ = аггау [0..5] оЕЁ аггау [-2..2] оЕЁ агхау [сПпаг] оЕ Буее; 


Такую запись можно заменить более компактной: 


фуре 
паЕ = аххау [0..5,-2..2,сраг] о Буе; 


Глубина вложенности структурированных Типов вообще, а следова— 
тельно, и массивов — произвольная, поэтому количество элементов в 
списке индексных типов (размерность массива) не ограничено, однако 
суммарная длина внутреннего представления любого массива, как уже 
говорилось, не может быть больше 65520 байт. В памяти ПК элементы 
массива следуют друг за другом так, что при переходе от младших адресов 
к старшим наиболее быстро меняется самый правый индекс массива. Если, 
например, 


уаг 
а : акгау [1..2,1..2] оЕ Бусе; 
Ъед1п 
’ а[1,1]:=1; 
а[2,1]:=2; 
а[1,2]:=3; 
а[2,2]:=4; 
епа. 


_то в памяти последовательно друг за другом будут расположены байты со 
_ значениями 1, 3, 2, 4. Это обстоятельство может оказаться важным при 
использовании стандартной процедуры копирования памяти МОУЕ. 

В Турбо Паскале можно одним оператором присваивания передать все 
элементы одного массива другому массиву того же типа, например: 


уаг 
а,р : аххау [1..5] оЕЁ $1п91е; 
Ьед1п 


а := Ь; 
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епа. 


После этого присваивания все пять элементов массива А получат те же 


значения, что и в массиве В. Олнако над массивами не определены опе— 
рации отношения. Нельзя, например, записать 


3 а = Ь епт... 


Сравнить два массива можно поэлементно, например: 


уах 
а, : а’ххау [1..5] оЕЁ $11п91е; 
еач : Воо1еап; 
1 : рубе; 
ЪБед1п 
еа := %тае; 
Бог 1 := 1 0 5 9 
1Е а[1] <> 6[1] ЕЪВеп 
еч := Га1$е; 
1Е еа Вел 
епа. 


4.2.2. Записи 
Запись — это структура данных, состоящая из фиксированного числа 
компонентов, называемых полями записи. В отличие от массива, компо- 


ненты (поля) записи могут быть различного типа. Чтобы можно было 
ссылаться на тот или иной компонент записи, поля именуются. 
Структура объявления типа записи такова: 


<имя типа> = ВЕСОВО <сп.полей> ЕМО 


Здесь <имя типа> — правильный идентификатор; 
ВЕСОВО, ЕМОР — зарезервированные слова (запись конец); 


<сп.полей> -— список полей; представляет собой последова— 
тельность разделов записи, между которыми ставится точка с 
запятой. 


Каждый раздел записи состоит из одного или нескольких идентифи — 


каторов полей, отделяемых друг от друга запятыми. За илентификатором 


(илентификаторами) ставится двоеточие и описание типа поля (полей), 
например: 


фуре 
В1хспрау = хесогха 
Чау,мопЕП : ру%е; 
уеагх : мога 


епа; 
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уаг 
а, р : В1кЕВаау; 


В этом примере тип ВАТНРАУ (день рождения) есть запись с полями 
РАУ, МОМТН и УБАК (день, месяц и год}; переменные А и В содержат за— 


писи типа ВГАТНЛАУ. 
Как и в массиве, значения переменных типа записи можно присваивать 


другим переменным того же типа, например 


К каждому из компонентов записи можно получить доступ, если ис— 
пользовать составное имя, т.е. указать имя переменной, затем точку и имя 
поля: 

а.Чау := 27; 
Ь.уеаг := 1939; 


Для вложенных полей приходится продолжать уточнения. 


фуре 
В1х&ПРау = гесоха 
ау, мопЕВ: Буве; 
уеаг : мога 
епа; 
уах — 
с : хесоха 
паме : зехапд; 
Ьа : В1гЕПрау 
епа; 
Бед1п 
1Е с.Ба.уеаг = 1939 фВеп ... 
епа. 
Чтобы упростить доступ к полям записи, используется оператор при-— 


соединения ИЛТН: 
ИТТН <переменная> БО <оператор> 


Здесь ИТТН, РО — ключевые слова (с, делать); 
<переменная> — имя переменной типа запись за которым, 


возможно, следует список вложенных полей; 
<оператор> — любой оператор Турбо Паскаля. 


Например: 
м1 ЕВ с.Ба ао попЕВ := 9; 


Это эквивалентно | 
УТЕВ с ао м1 Ь Ба ао попЕв := 9; 


ИЛИ 
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м1ЕВ с,Ба ао попЕВ := 9; 
ИЛИ 
с.Ба.мопЕВ := 9; 


Турбо Паскаль разрешает использовать записи с так называемыми 
вариантными полями, например: 


фуре 
Когма = хгесога 
Мате: $%га4па; 
сазе Буее оЕЁ 
0: (В1:6РР1асе: з&хапа [40]1); 
1: (СоапЕгу $Етапа [20]; 


ЕпекуРоге : $&х1п9 [20]; 
Епёкура*е : 1..31; 
Ех1ЕРафе : 1..31) 


епа; 


В этом примере тип ЕОЕМА определяет запись с одним фиксированным 
полем МАМЕ и вариантной частью, которая задается предложением САЗЕ... 
ОЕ. Вариантная часть состоит из нескольких вариантов (в примере — из 
двух вариантов: 0 и 1). Каждый вариант определяется константой выбора, 
за которой следует двоеточие и список полей, заключенный в круглые 
скобки. В любой записи может быть только одна вариантная часть, и, если 
она есть, она должна располагаться за всеми фиксированными полями. 

Замечательной особенностью вариантной части является то обстоя— 
тельство, что все заданные в ней варианты «накладываются» друг на друга, 
т.е. каждому из них выделяется одна и та же область памяти. Это от 
крывает дополнительные возможности преобразования типов, например: 


уаг 
пеп4 : хесоха 
сазе Буке оЁ 


О : (Ъу : агкау [0..3] оЕ Бу*ее); 
1 : (мо : агхау [0..1] оЕЁ мога); 
2 : (10 : 10па11®); 

епа; 


В этом примере запись МЁМ4 имеет три варианта, каждый из которых 
занимает в памяти один и тот же участок из 4 байт. В зависимости от того, 
к какому полю записи мы обращаемся в программе, этот участок может 
рассматриваться как массив из 4 байт (поле ВУ), массив из двух целых 
типа И’ОКО (поле И’О}) или, наконец, как одно целое число типа ГОМСИМУТ 
(поле ГО). Например, этой записи можно сначала присвоить значение как 
длинному целому, а затем проанализировать результат по байтам или 
словам: 
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хр: руЕе; 
х1: ГопаТпе; 
ред1п 


1 п ао 
Ьед1п 
1о := Ехапс (2*ру*х); ‚ 
1ЁЕ ио[1] = 0 Бел 
1Е Ру[1] = 0 еп 


хЬ := х[0] 
е1зе 
х := мо[0] 
е] зе 
х] := 10 
епа; 
епа. 


Предложение САЗЕ... ОЕ, открывающее вариантную часть, внешне 
похоже на соответствующий оператор выбора, но на самом деле лишь 
играет роль своеобразного служебного слова, обозначающего начало ва— 
риантной части. Именно поэтому в конце вариантной части не следует 
ставить ЕМО как пару к САЗЕ... ОЕ. (Поскольку вариантная часть — всегда 
последняя в записи, за ней все же стоит ЕМО, но лишь как пара к 
КЕСОКО). Ключ выбора в предложении САЗЕ... ОЕ фактически игнори — 
руется компилятором: единственное требование, предъявляемое к нему 
Турбо Паскалем, состоит в том, чтобы ключ определял некоторый стан— 
дартный или предварительно объявленный порядковый тип. Причем сам 
этот тип никак не влияет ни на количество следующих ниже вариантных 
полей, ни даже на характер констант выбора. В стандартном Паскале в 
качестве ключа выбора необходимо указывать некоторую переменную 
порядкового типа, причем в исполняемой части программы можно при-— 
сваивать значение этой переменной и таким образом влиять на выбор 
полей. В Турбо Паскале также можно в поле ключа выбора указывать 
переменную порядкового типа и даже присваивать ей в программе зна— 
чение, что однако не влияет на выбор поля: значения констант выбора в 
Турбо Паскале могут быть произвольными, в том числе повторяющимися, 
например: 


хес1 = хесога 
руЕе; 
мога; 


о’ м 


гес2 = гесога 
с : 1опа1п*; 
сазе х : Буке оЁ 
1 : (а : мока); 
2 : (е : гесога 
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сазе Воо]еап оЁ 


3 : (Е : гес1); 
3 : (94: 5$11п41е); 
"3: (с : мога) 
епа) 
епа; 
уах 
г : гес2; 
Бед1п 
г.х := 255; 


1Е г.е.д = 0 еп 
Иу1се!л ('0.К.!) 
е1 зе 
Музее! (г.е.а) 
ела. 


В этом примере предложение 
сазе Воо1еап о 


в записи, определяемой в поле ЕЁ, объявляет ключом выбора логический 
тип, который, как известно, имеет лишь два значения — ТКОЕ и РАГЗЕ. 
Константы же выбора следующих далее вариантов не только содержат 
совершенно не свойственные этому типу значения, но и две из них по- 
вторяются, а общее количество вариантов — три, а не два, как следовало 
бы ожидать. 

Имена полей должны быть уникальными в пределах той записи, где они 
объявлены, однако, если записи содержат поля -— записи, т.е. вложены одна 
в другую, имена могут повторяться на разных уровнях вложенности (см. 
поле С в последнем примере). 


4.2.3. Множества 


Множества — это наборы однотипных логически связанных друг с 
другом объектов. Характер связей между объектами лишь подразумевается 
программистом и никак не контролируется Турбо Паскалем. Количество 
элементов, входящих в множество, может меняться в пределах от 0 до 256 
(множество, не содержащее элементов, называется пустым). Именно не— 
постоянством количества своих элементов множества отличаются от 
массивов и записей. 

Два множества считаются эквивалентными тогда и только тогда, когда 
все их элементы одинаковы, причем порядок следования элементов в 
множестве безразличен. Если все элементы одного множества входят 
также и в другое, говорят о включении первого множества во второе. 
Пустое множество включается в любое другое. 

Пример определения и задания множеств: 


фуре 
91а91ЕСраг зеЕ о '0' 


..19!; 
9191 = зеЕ оЁ 0..9; 
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уаг 
$1,52,53 : а1а1ЕСВаг; 
54,55,56 : 1916; 
Бед1п 
$1 := ['1', '2', '3']; 
52 += ['3', '2', '1']; 
$3 := ['2', !'3!]; 
54 := [0..3, 6]; 
$5 := [4, 5]; 
56 := [3..9]; 
епа. 


В этом примере множества 51 и 52 эквивалентны, а множество 53 
включено в 52 , но не эквивалентно ему. 
Описание типа множества имеет вид: 


<имя типа> = $ЗЕТ ОЕ <баз.тип> 


_ Здесь <имя типа> -— правильный идентификатор; 


ЗЕТ, ОЕ — зарезервированные слова (множество, из); 

<баз.тип> — базовый тип элементов множества, в качестве 
которого может использоваться любой порядковый тип, кроме 
И’ОЮО, ШМТЕСЕК, ГОМСМ\Т. 


Для задания множества используется так называемый конструктор 
множества: список спецификаций элементов множества, отделяемых друг 
от друга запятыми; список обрамляется квадратными скобками (см. пре— 
длыдущий пример). Спецификациями элементов могут быть константы или 
выражения базового типа, а также — ‘тип -— диапазон того же базового ти— 


па. 


Над множествами определены следующие операции: 


* 


пересечение множеств; результат содержит элементы, общие для 
обоих множеств; например, 54*$6 содержит [3], $4*$5 — пустое 
множество (см. выше}; 
объединение множеств; результат содержит элементы первого 
множества, дополненные недостающими элементами из второго 
множества: | 
54+55 содержит [0,1,2,3,4,5,6]; 
55+56 содержит [3,4,5,6,7,8,9]; 
разность множеств; результат содержит элементы из первого 
множества, которые не принадлежат второму: 
56-55 содержит [3,6,7,8, 9]; 
54-55 содержит [0,1,2,3,6]; 
проверка эквивалентности; возвращает ТКОЁ, если оба множества 
эквивалентны; 
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_<> проверка неэквивалентности; возвращает ТВОЕ, если оба мно- 
жества неэквивалентны; 


< = проверка вхождения; возвращает ТКОЕЁ, если первое множество 
включено во второе; 


>= проверка вхождения; возвращает ТКИОЕ, если второе множество 
включено в первое; 


ПМ проверка принадлежности; в этой бинарной операции первый 
элемент — выражение, а второй — множество одного и того же 
типа; возвращает ТКОЕ ‚, если выражение имеет значение, при 
надлежащее множеству: 

3 &п 56 возвращает ТВОЕ; 
2*2 1п $1 возвращает ГАЪЗЕ. 


Дополнительно к этим операциям можно использовать две процедуры. 


ПУСГОРЕ -— включает новый элемент во множество. Обращение к 
процедуре: 


ТМСЬОРЕ (5$, Т) 


Здесь 5 — множество, состоящее из элементов базового типа Т5еВа$е; 
ТГ — элемент типа ТФевВазе, который необходимо включить во 
множество. 


ЕХСГОРЕ — исключает элемент из множества. Обращение: 
ЕХСЬОРЕ ($,Т) 


Параметры обращения — такие же, как у процедуры ПУСГОПЕ. 

В отличие от операций + и —, реализующих аналогичные действия над 
двумя множествами, процедуры оптимизированы для работы с одиноч— 
ными элементами множества и поэтому отличаются высокой скоростью 
выполнения. 

В примере 4.1, иллюстрирующем приемы работы с множествами, реа— 
лизуется алгоритм выделения из первой сотни натуральных чисел всех 
простых чисел. В его основе лежит прием, известный под названием 
«решето Эратосфена». В соответствии с этим алгоритмом вначале фор— 
мируется множество ВЕС/ИМ\$ЕТ, состоящее из всех целых чисел в диана — 
зоне от 2 ло М. В множество РЕПМЕЕ$ФЕТ (оно будет содержать искомые 
простые числа) помещается 1. Затем циклически повторяются следующие 
действия: 

® взять из ВЕСП\УЗЕТ первое входящее в него число МЕХТ и поместить 

его в РЮАЛМЕКЗФЕТ; 

® удалить из ВЕСМ\5ЕТ число МЕХТ и все другие числа, кратные ему, 

т.е. 2*МЕХТ, 3*МЕХТ и т.лА. 

Цикл повторяется до тех пор, пока множество ВЕСПМ\М5ЕТ не станет 
пустым. 

Эту программу нельзя использовать для произвольного № так как в 
любом множестве не может быть больше 256 элементов. 
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Пример 4.1 
Ргодгам Рг1иег пипюегз_ Чефес*; 


{Выделение всех простых чисел из первых М целых} 
соп$е 

М = 255; (Количество элементов исходного множества} 
фуре 

ЗеЕОЕМипрег = зеё оЕЁ 1..М; 


уаг 
п1, пехе,1 : мога; {Вспомогательные переменные} 
Ведтпбеф, {Исходное множество} 
Рг1мегбее : Зе оЕМапьег; {Множество простых чисел} 
Ьед1п 
Веач1пбее := [2..М№]; {Создаем исходное множество} 
Рхлмегбее:= [1]; {Первое простое число} 
пехе = 2; {Следующее простое число} 
мЬ11е Вед1пбее <> [] ао {Начало основного цикла} 
Ъед1п 
п] := пехе; {11-число, кратное очередному простому (пехЕ)} 


{Цикл удаления из исходного множества непростых чисел:} 
В11е п1 <= М ао 


Бед1п 

Ехс1аде (Вез1п5ее,п1); 

п1 := 101+пех® {Следующее кратное} 
епа; {Конец цикла удаления} 


Трс1аае (Ру1лпегбее, пех®); 
{Получаем следующее простое, которое есть первое 
невычеркнутое из исходного множества} 
гереаЕ 
1пс (пехф) 
10611 (пехЕ 1п Вед1пбее) ок (пехё > №) 
епа; {Конец основного цикла} 
{Выводим результат:} 


Бог 1 := 1 в М @ 
1Е 1 1п Ру1лмегбее +Веп Иг1%е(1:8); 
М1 еп 
ЕЮО. 


Перед тем как закончить рассмотрение множеств полезно провести 
небольшой эксперимент. Измените описание типа 5ЕТОЕМОМВЕК сле-— 
дующим образом: 


фуре 
ЗееоЕМитрег = зе о 1..1; 


и еще раз запустите программу из предыдущего примера. На экран будет 
выведено 
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Множества Вез1п5е* и Рг1пегбеЕ состоят теперь из одного элемента, а 
программа сумела поместить в них не менее семи! 

Секрет этого прост: внутреннее устройство множества такозс, что 
каждому его элементу ставится в соответствие один двоичный разряд 
(один бит}; если элемент включен во множество, соответствующий разряд 
имеет значение 1, в противном случае — 0. Минимальной единицей памяти 
является один байт, содержащий 8 бит. Компилятор выделил множествам 
по одному байту, в результате мощность каждого из них стала равна 8 
элементов. Максимальная мощность множества — 256 элементов. Для 
таких множеств компилятор выделяет по 16 смежных байт. 

И еще один эксперимент: измените диапазон базового типа на 1..256. 
Хотя мощность этого типа составляет 256 элементов, при попытке ком -— 
пиляции программы компилятор сообщит: 


Еггог 23: беЕ Базе Еуре оцЕ оЕЁ гапае. 
(Ошибка 23: Базовый тип множества выходит за допустимые 
границы. } 


Компилятор разрешает использовать в качестве базового типа цело— 
численный тип-— диапазон с минимальной границей 0 и максимальной 255 
или любой перечисляемый тип не более чем с 256 элементами 
(максимальная мощность перечисляемого типа — 65536 элементов). 


4.3. СТРОКИ 


Тип 5ТЕИМА (строка) в Турбо Паскале широко используется для об— 
работки текстов. Он во многом похож на одномерный массив символов 
АВКАУ [0..№М] ОЕ СНАК, однако, в отличие от последнего, количество 
символов в строке-—переменной может меняться от 0 до № где М - 
максимальное количество символов в строке. Значение М№ определяется 
объявлением типа 5ТЕПМС [М] и может быть любой константой поряд— 
кового типа, но не больше 255. Турбо Паскаль разрешает не указывать М, 
в этом случае длина строки принимается максимально возможной, а 
именно №М=255. | 

Строка в Турбо Паскале трактуется как цепочка символов. К любому 
символу в строке можно обратиться точно так же, как к элементу одно-— 
мерного массива ААКАУ [0..М] ОЕ СНАЕ, например: 


уаг 5е : $Ег1пд; 
Бед1п о 

1Е $5Е[5] = 'А' Вер... 
епа. 


Самый первый байт в строке имеет индекс 0 и содержит текущую 
длину строки. Первый значащий символ строки занимает второй байт и 
имеет индекс 1. Над длиной строки можно осуществлять необходимые 
действия и таким способом изменять длину. Например, удалить из строки 
все ведомые пробелы можно следующим образом: 


уаг 
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5Е : 56119; 


1 ; Вубе; 
Ьед1п 
1 := 079(5%[0]); {1 - текущая длина строки} 
м\р11е (1 <> 0) ава ($5#[1] = ' ') &@ 
Бед1п 
аес (1); 
$е[0] := сПк (1) 
епа; 
епа 


Значение ОКО(5Н0]) ‚ т.е. текущую длину строки, можно получить и с 
помощью функции ГЕМСТН($й), например: 


у\р11е (ТепоаЕр($6)<>0) апа (5+ [Фепаей ($8)]=' ') ао 
$Е[0]) := срх (БепаерВ ($8) -1) 


К строкам можно применять операцию «-» — сцепление, например: 
Е := 'а’т '6'; 
56 := 56 + 'с'; [(5Е содержит "абс"} 
Если Алина сцепленной строки превысит максимально допустимую 


длину № то «лишние» символы отбрасываются. Следующая программа, 
например, напечатает символ 1: 


\ах 
$: $з6г1па [1]; 
Бед1п 
$56:='123!; 
Иг1ееГл (5%) 
ела. 


Все остальные действия над строками и символами реализуются с 
помощью описываемых ниже стандартных процедур и функций. 


СОМСАТ (51 [,52, ... ,5м]) -— функция типа 5ТЕПМА; возвращает 
строку, представляющую собой сцепление строк- параметров 51, 52, ... , 
М. 

СОРУ (5Т, _ТМРЕХ, СООМТ) — функция типа 5ТАПУС; копирует из 
строки 5Т СОИМТ символов, начиная с символа с номером ПУРЕХ. 


РЕГЕТЕ (5Т, ТМРЕХ, СООМТ) — процедура; удаляет СОИМТ символов из 
строки $Т, начиная с символа с номером ШМОЕХ. 


ТМ5ЕВТ (50В$5Т, $5Т, ТМОЕХ) — процедура; вставляет подстроку 50ВЗТ 
в строку 51, начиная с символа с номером ПУРЕХ. 


“ тЕметн(5т) функция типа ИМТЕСЕК; возвращает длину строки $Т. 
и 


„7“ 
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РО$ (50В5Т, 5Т) — функция типа ПУТЕСЕК; отыскивает в строке $5Т 
первое вхождение подстроки 50ВЗТ и возвращает номер позиции, с ко- 
торой она начинается; если подстрока не найдена, возвращается ноль. 


5ТВ(Х [:ИТроТнН [:РЕСТМАТЪТЗ]], $5Т) — процедура; преобразует число 
Х любого вещественного или целого типов в строку символов 5Т так, как 
это делает процедура И’ЕТЕЁМ\У перед выводом; параметры ИУПОТН и 
РЕС1МАГ5, если они присутствуют, задают формат преобразования: И/ОТН. 
определяет общую ширину поля, выделенного под соответствующее сим — 
вольное представление вещественного или целого числа Х, а РЕС1МА [5 — 
количество символов в дробной части (этот параметр имеет смысл только в 
том случае, когла Х — вещественное число). 


УАТ (5Т, Х, СОБЕ) — процедура; преобразует строку символов 5Т во 
внутреннее представление целой или вещественной переменной Х, которое 
определяется типом этой переменной; параметр СОРЕ содержит ноль, если 
преобразование прошло успешно, и тогда в Х помещается результат 
преобразования, в противном случае он содержит номер позиции в строке 
5Т, где обнаружен ошибочный символ, и в этом случае содержимое Х не 
меняется; в строке 5Т могут быть ведущие пробелы, однако ведомые 
пробелы недопустимы; например, обращение ха1 (' 123',К,1) пройдет 
успешно: К получит значений 123, в Г будет помещен 0, в то время как 
обращение та1 ('123 ',К,1) будет ошибочным: значение К не изме- 
нится, а [Г будет содержать 4. 


ОРСАЗЕ (СН) — функция типа СНАК; возвращает для символьного 
выражения СН, которое должно представлять собой строчную латинскую 
букву, соответствующую заглавную букву; если значением СН является 
любой другой символ (в том числе строчная буква русского алфавита), 
функция возвращает его без преобразования. 


Примеры: 


уаг 
х : геа]1; 
у : 1п6едет; 
52,51: $&егапа; 


ред1п 
$5Е := сопсаф('12','345!); {строка $ЁЕ содержит 12345} 
$51 := сору (56,3, ЪепаеВ (5%) -2); {5Е1 содержит 345} 
1пзег® ('-', $1,2); {строка $Е1 содержит 3-45} 
Че1ефе ($5&,роз('2',5е),3); {строка $Ё содержит 15} 
Ех (р1:6:2,56); {строка $Ё содержит 3.14} 
\а1 ('3,1415',х,у); | {у содержит 2, х остался 

без изменения} 

епа. 

Операции отношения =, <>, >, <, >=, <= выполняются над двумя 


строками посимвольно, слева направо с учетом внутренней кодировки 
символов (см. табл.4.1 и прил.2). Если одна строка меньше другой по дли— 
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не, недостающие символы короткой строки заменяются значением СНК(д) 


Следующие операции отношения дадут значение ТВОЕ: 


т х\ 1 


"А! > 1 
"Тагро! < "'ТагБо Разса\' 
'Паскаль' > 'ТагБо Разса1" 


4.4. СОВМЕСТИМОСТЬ И ПРЕОБРАЗОВАНИЕ ТИПОВ 


Как уже неоднократно отмечалось, Турбо Паскаль — это типизиро — 
ванный язык. Он построен на основе строгого соблюдения концепции 
типов, в соответствии с которой все применяемые в языке операции оп- 
ределены только над операндами совместимых типов. При обсуждении 
операций над вещественными данными мы уже затрагивали проблему 
совместимости вещественных и целых типов. Аналогичные проблемы 
возникают при операциях над строками разной длины, строками и сим- 
°волами и т.д. Ниже приводится более полное определение совместимости 
ТИПОВ. 

Два типа считаются совместимыми, если: 
оба они есть один и тот же тип; 
оба вещественные; 
оба целые; 
один тип есть тип — диапазон второго типа; 
оба являются типами — диапазонами одного и того же базового типа; 


оба являются множествами, составленными из элементов одного и 
того же базового типа; 

е оба являются упакованными строками (определены с предшест-— 
вующим словом РАСКЕО)} одинаковой максимальной длины; 


» Один ТИП есть тип-— строка, а другой — тип-строка, упакованная 
строка или символ; 

е Один ТИП есть любой указатель а другой — нетипизированный 
указатель; 


® один ТИП есть указатель на объект, а другой — указатель на родст— 
венный ему объект; 

е оба есть процедурные типы с одинаковыми типом результата (для 
типа — функции), количеством параметров и типом взаимно соот-— 
ветствующих параметров. 

Совместимость типов приобретает особое значение в операторах 
присваивания. Пусть Т1 — тип переменной, а Т2 — тип выражения, т.е. 
выполняется присваивание Т1 := Т2. Это присваивание возможно в сле- 
дующих случаях: | 

® Т1и Т2 есть один и тот же тип и этот тип не относится к файлам или 
массивам файлов, или записям, содержащим поля-— файлы, или 
массивам таких записей; 
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е ТПГ и Т2 являются совместимыми порядковыми типами и значение Т2 

лежит в диапазоне возможных значений 11; 
ео ТГ! и Т2 являются вещественными типами и значение Т2 лежит в 

диапазоне возможных значений Т1,; | 
Т1 -— вещественный тип и Г2 — целый тип; 

Т1 — строка и Т2 — символ; 

Т1 -— строка и Г2 — упакованная строка; 

ТТ и Т2 — совместимые упакованные строки; 

Т1 и Т2 — совместимые множества и все члены Т2 принадлежат 
множеству возможных значений 11; 

Т1 и Т2 — совместимые указатели; 

Т1 и Т2 — совместимые процедурные типы; 

Т1 — объект и Т2 — его потомок. 

программе данные одного типа могут преобразовываться в данные 
другого типа. Такое преобразование может быть явным или неявным. 

При явном преобразовании типов используются вызовы специальных 
функций преобразования, аргументы которых принадлежат одному типу, а 
значение — другому. Таковыми являются уже рассмотренные функции 
ОКО, ТКОМС, КОЦМО, СНЕ. В гл. 6 описывается функция РТК, преобра— 
зующая четырехбайтный целочисленный аргумент к типу- указателю. | 

В Турбо Паскале может использоваться и более общий механизм 
преобразования типов, согласно которому преобразование достигается 
применением идентификатора (имени) стандартного типа или типа, оп— 
ределенного пользователем, как идентификатора функции преобразования 
к выражению преобразуемого типа (так называемое автоопределенное 
преобразование типов). Например, допустимы слелдующие вызовы функ- 
ций: 


су Ф # Ф 


фуре 
Мутуре = (а, Ь, с, а); 
Мутуре (2) 
1пседег ('Р') 
ро1пфехг (1оп91п® (а) + $ЕЕ) 
спа’ (127 моа с) 
Бусе (К) 


При автоопределенном преобразовании типа выражения может про— 
изойти изменение длины его внутреннего представления (длина может 
увеличиться или уменьшиться). 

В Турбо Паскале определен еще один явный способ преобразования 
данных: в ту область памяти, которую занимает переменная некоторого 
типа, можно поместить значение выражения другого типа, если только 
длина внутреннего представления вновь размещаемого значения в точ- 
ности равна длине внутреннего представления переменной. С этой целью 
вновь используется автоопределенная функция преобразования типов, но 
уже в левой части оператора присваивания: 
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фуре 
ЬуЕ = акгау [1..2] оЕ Буке; 
11$ = агхау [1..2] оЕЁ 1пеедег; 
гес = гесогха 
х, у : 1пбедег 


епа; 

уаг 

УБуЕ : РУуЕ; 

У1пе : 1106; 

угес : гес; 
Ъедап 

БУЕ (118 [1]) [2] := 0; 

1106 (угес) [1] := 256 
епа. 


Неявное преобразование ТИПОВ ВОЗМОЖНО ТОЛЬКО В АВУХ СЛУчаях. 


е в выражениях, составленных из вещественных и целочисленных 
переменных, последние автоматически преобразуются к вещест- 
венному типу, и все выражение в целом приобретает вещественный 
тип; 

е одна и та`же область памяти попеременно трактуется как содер — 
жащая данные то одного, то другого типа (совмещение в памяти 
данных разного типа). 

Совмещение данных в памяти может произойти при использовании 
записей с вариантными полями (см. 4.2.2), типизированных указателей, 
содержащих одинаковый адрес (см. гл. 6), а также при явном размещении 
данных разного типа по одному и тому же абсолютному адресу. Для 
размещения переменной по нужному абсолютному адресу она описывается 
с последующей стандартной директивой АВЗОГОТЕ, за которой поме-— 
щается либо абсолютный адрес, либо идентификатор ранее определенной 
переменной. Абсолютный адрес указывается парой чисел типа И’ОКО. 
разделенных двоеточием; первое число трактуется как сегмент, второе — 
как смещение адреса (см. гл. 6). Например: 


р : Буке аБзо1а%е $0000:50055; 
м : ГопаТпе аБзо1Таее 128:0; 


Если за словом АВЗОГОИТЕ указан идентификатор ранее определенной 
переменной, то происходит совмещение в памяти данных разного типа, 
причем первые байты внутреннего представления этих данных будут 
располагаться по одному и тому же абсолютному адресу, например: 


уах 
х : геа]1; 
у : агхау [1..3] оЕ 1пеедег аБ5о1афе х; 


В этом примере переменные Х и У будут размещены, начиная с одного 
и того же абсолютного адреса. Таким образом, одну и ту же область 
памяти длиной 6 байт, а следовательно, и размещенные в этой области 
данные теперь можно рассматривать как данные либо типа КЕАГ, либо как 
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массив из трех данных типа ПУТЕСЕК. Например, следующая программа 
выдаст на экран содержимое первых двух байт внутреннего представления 


вещественного числа л = 3.1415 в виде целого числа: 


уаг 
х : геа1; 
у : аггау [1..3] о 1п%едег аЪзо1ае х; 


Бедлп 

х := р]; 

Мх1 ел (у[1]) 
ела. 


На экран будет выдан результат 8578. 

Неявные преобразования типов могут служить источником труднооб — 
наруживаемых ошибок в программе, поэтому везде, где это возможно, 
следует избегать их. 
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ФАЙЛЫ 


Под файлом понимается либо именованная область внешней памяти ПК 
(жесткого диска, гибкой дискеты, электронного «виртуального» диска), 
либо логическое устройство — потенциальный источник или приемник 
информации. 

Любой файл имеет три характерные особенности. Во-первых, у него 
есть имя, что дает возможность программе работать одновременно с не-— 
сколькими файлами. Во-вторых, он содержит компоненты одного типа. 
Типом компонентов может быть любой тип Турбо Паскаля, кроме файлов. 
Иными словами, нельзя создать «файл файлов». В-третьих, длина вновь. 
создаваемого файла никак не оговаривается при его объявлении и огра— 
ничивается только емкостью устройств внешней памяти. 

Файловый тип или переменную файлового типа можно задать одним из 
трех способов: 


<имя> = ЕТЬЕ ОЕ <тип>; 
<имя> ТЕХТ; 
<имя> = ЕТЬЕ; 


Здесь <имя> — имя файлового типа (правильный идентификатор); 
ЕТТЕ, ОГ — зарезервированные слова (файл, из); 
ТЕХТ -— имя стандартного типа текстовых файлов; 
<тип> — любой тип Турбо Паскаля, кроме файлов. 


Например: 


фуре 
ргоаисЕ = гесогка 
паме зЕг1па; 
соае мога; 
СОЗЕ сотр 
ела; 
фех+80 
уаг 
Е1 
2 
ЕЗ 
Е4 
Е5 


В зависимости от способа объявления можно выделить три вида файлов: 
® типизированные файлы (задаются предложением ЕП.Е ОЕ...); 

е текстовые файлы (определяются типом ТЕХТ} 

е нетипизированные файлы (определяются типом ЕП.Е). 


#11е оЁ зег?па [80]; 


#11е оЕЁЕ сраг; 
фехс; 

#11е; 

фех*80; 

{11е оЁ ргоаисе; 
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В наших примерах ЕЁ1, ЁЕ4 и Е5 — типизированные файлы, Ё2 — тек- 
стовый файл, ЕЗ3 — нетипизированный файл. Вид файла, вообще говоря, 
определяет способ хранения информации в файле. Однако в Турбо 
Паскале нет средств контроля вида ранее созланных файлов. При объяв — 
лении уже существующих файлов программист должен сам следить за 
соответствием вида объявления характеру файла. 


54. ДОСТУП К ФАЙЛАМ 


Любой программе доступны два предварительно объявленных файла со 
стандартными файловыми переменными: ПУРИТ — для чтения данных с 
клавиатуры и ОПОТРИТ — для вывода на экран. Стандартный Паскаль 
требует обязательного упоминания этих файлов в заголовке программы, 
например, так: 


РКОСВАМ МапеоЕРгкодгат (1пра*, опёрае); 


В Турбо Паскале это необязательно, вот почему заголовок программы 
можно опускать. 

Любые другие файлы, а также логические устройства становятся дос — 
тупны программе только после выполнения особой процедуры открытия 
файла (логического устройства). Эта процедура заключается в связывании 
ранее объявленной файловой переменной с именем существующего или 
вновь создаваемого файла, а также в указании направления обмена ин- 
формацией: чтение из файла или запись в него. 

Файловая переменная связывается с именем файла в результате об— 
ращения к стандартной процедуре А5$1СМ: 


АЗСТСМ (<ф.п.>, <имя файла или л.у.>); 


Здесь <ф.п.> — файловая переменная (правильный идентификатор, 
объявленный в программе как переменная файлового 
типа); 


<имя файла или л.у.> — текстовое выражение, содержащее имя 
файла или логическое устройство. | 
Если имя файла задается в виде пустой строки, например, А551СМ(Е”), 
“о в зависимости от направления обмена данными файловая переменная 
связывается со стандартным файлом ПУРИТ или ООТРОТ. 


5.1.1. Имена файлов 


Имя файла — это любое выражение строкового типа, которое строится 

по правилам определения имен в М5 —РО5 (операционной системе ПК): 

е имя содержит до восьми разрешенных символов; разрешенные 
символы — это прописные и строчные латинские буквы, цифры и 
символы: 

Г@#$%^& () '-- _ 


е имя начинается с любого разрешенного символа, 
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е за именем может следовать расширение — послеловательность до 
трех разрешенных символов; расширение, если оно есть, отделяется 
от имени точкой. 

Перед именем может указываться так называемый путь к файлу: имя 
диска и/или имя текущего каталога и имена каталогов вышестоящих 
уровней. | 

Имя диска — это один из символов А...Х , после которого ставится 
двоеточие. Имена А: и В: относятся к дисковым накопителям на гибких 
дискетах, имена С:, Р: и т.д. — к жестким дискам. Эти имена могут от- 
носиться также к одному или нескольким виртуальным дискам, созданным 
в оперативной памяти ПК специальной командой УБ/5К в ходе выполнения 
файла автоустановки СОМЕГС.5У5 дисковой операционной системы. 

Если имя диска не указано, подразумевается устройство по умолчанию 
— то, которое было установлено в операционной системе перед началом 
работы программы. 

За именем диска может указываться имя каталога, содержащего файл. 
Если имени каталога предшествует обратная косая черта, то путь к файлу 
начинается из корневого каталога, если черты нет — из текущего каталога, 
установленного в системе по умолчанию. За именем каталога может сле— 
довать одно или несколько имен каталогов нижнего уровня. Каждому из 
них должна предшествовать обратная косая черта. Весь путь к файлу 
отделяется от имени файла обратной косой чертой. Максимальная длина 
имени вместе с путем — 79 символов, например: 


=. 


уаг 
Е1пр : %ехЕ; 
РодеЕ : #11е оЕ з&гапда; 
соп$Е 
пате 
Бед1п 
а$$1ап (Ё1пр, '123.Ча*'); 
а$31ап (Еоце, паме); 
епа. 


'с: \ 1х \ заба1х\оце. Ехе!; 


5.1.2. Логические устройства 


Стандартные аппаратные средства ПК, такие как клавиатура, экран 
дисплея, печатающее устройство (принтер) и коммуникационные каналы 
ввода — вывода, определяются в Турбо Паскале специальными именами, 
которые называются логическими устройствами. Все они в Турбо Паскале 
рассматриваются как потенциальные источники или приемники текстовой 
информации. | 

СОМ — логическое имя, которое определяет консоль — клавиатуру или 
экран дисплея. Турбо Паскаль устанавливает различие между этими фи-— 
зическими устройствами по направлению передачи данных: чтение данных 
возможно только с клавиатуры, а запись — только на экран. Таким об— 
разом, с помощью логического устройства СОМ нельзя, например, про— 
читать данные с экрана ПК, хотя такая аппаратная возможность сущест— 
вует. 
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Ввод с клавиатуры буферируется: символы по мере нажатия на клавиши 
помещаются в специальный строковый буфер, который передается про — 
грамме только после нажатия на клавишу Ещшег. Буферизация ввода 
обеспечивает возможность редактирования вводимой строки стандартными 
средствами ДОС. При вводе символов осуществляется их эхо-— повтор на 
экране ПК. В Турбо Паскале можно прочитать любой символ клавиатуры, 
в том числе и символ СК, вырабатываемый клавишей Ешег, сразу после 
нажатия на соответствующую клавишу без эхо — повтора. 

РЕМ — логическое имя принтера. Если к ПК подключено несколько 
принтеров, доступ к ним осуществляется по логическим именам ГРТ1, ЕРТ2 
и [РТЗ. Имена РКМ и ГРТ1 первоначально — синонимы. Средствами ДОС 
можно присвоить имя РЕМ любому другому логическому устройству, 
способному принимать информацию. 

Стандартный библиотечный модуль РЕПУТЕК, входящий в библиотеку 
ТОЕВО.ТРГ, объявляет имя файловой переменной Ё5Т и связывает его с 
логическим устройством ЁРТ1. Это дает возможность использовать простое 
обращение к принтеру. Например, программа 


Озез Ру1пфег; 
Бед1п 
МузсеГл (Ъ5Т, 'Привет, мир!') 
епа. 
выведет на принтер фразу «Привет, мир!», а все необходимые операции по 
открытию логического устройства выполнит библиотечный блок РАПУТЕК 
(подробности работы с модулями см. в г^. 9). 

АЦХ — логическое имя коммуникационного канала, который обычно 
используется для связи ПК с другими машинами. Коммуникационный 
канал может осуществлять и прием, и передачу данных, однако в про- 
грамме в каждый момент времени ему можно назначить только одну из 
этих функций. Как правило, в составе ПК. имеются два коммуникационных 
канала, которым даются имена логических устройств СОМ1 и СОМ2. 
Первоначально имена АЦХ и СОМ1 — синонимы. 

МОГ -— логическое имя «пустого» устройства. Это устройство чаще 
всего используется в отладочном режиме и трактуется как устройство — 
приемник информации неограниченной емкости. При обращении к МОГ 
как источнику информации выдается признак конца файла ЕОР. 

Связывание логического устройства с файловой переменной осущест — 
вляется процедурой А$51СМ, например: 


уагх 
Е1,Ео : %ехе; 
ред1п 
а$$1ап (ЁЕ1,'АПХ'); 
а$$1ап (Бо, 'ЬРТ2'); 
епа. 


Турбо Паскаль никогда не связывает имена логических устройств с 
дисковыми файлами, в этом смысле эти имена можно считать зарезер — 
вированными. Иными словами, нельзя, например, обратиться к дисковому 
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файлу с именем РКМ, так как Турбо Паскаль всегда интерпоетирует такой 
запрос как обращение к принтеру. 


5.1.3. Инициация файла 


Инициировать файл означает указать для этого файла направление 
передачи данных. В Турбо Паскале можно открыть файл для чтения, для 
записи информации, а также для чтения и записи одновременно. 

Для чтения файл инициируется с помощью стандартной процедуры 
КЕЗЕТ: 


ВЕЗЕТ (<ф.п.>); 


Здесь <ф.п.> -— файловая переменная, связанная ранее процедурой 
А5$51СМ с уже существующим файлом или логическим 
устройством — приемником информации. 

При выполнении этой процедуры дисковый файл или логическое уст— 
ройство подготавливается к чтению информации. В результате специальная 
переменная — указатель связанная с этим файлом, будет указывать на 
начало файла, т.е. на компонент с порядковым номером 0. 

Если делается попытка инициировать чтение из несуществующего 
файла или из логического устройства РЕМ\№М возникает ошибка периода 
исполнения, которая может быть сообщена программе ненулевым зна-— 
чением встроенной функции 1ОКЕЗОЕТ типа И’ОКО. Например, следующий 
фрагмент программы позволяет установить существует ли требуемый 
файл на диске: | 


уах 
Е: #11е оЕ саг; 

Бед1п 
азз1апт (ЕЁ, 'муЕ11е.да*'); 
{$1-} {Отключаем контроль ошибок ввода-вывода} 
гезек (Е); | 
{51+} {Включаем контроль ошибок ввода-вывода} 
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..... {Файл не существует} 

е]1зе 

..... (Файл существует} 
епа. 


В этом фрагменте с помощью директивы компилятора {$1-} отключается 
автоматический контроль ошибок ввода — вывода. Если этого не сделать, то 
отсутствие файла приведет к аварийному завершению программы. 

В Турбо Паскале разрешается обращаться к типизированным файлам, 
открытым процедурой КЕЗЕТ (т.е. для чтения информации}, с помощью 
процедуры И’ЮМТЕ (т.е. для записи информации). Такая возможность по— 
зволяет легко обновлять ранее созланные типизированные файлы и при 
необходимости расширять их. Аля текстовых файлов, открытых проце-— 
дурой КЕЗЕТ, нельзя использовать процедуру И/МТЕ или И’/МТЕЕМ. 

‚ Стандартная процедура 
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ВЕМВТТЕ (<ф.п.>) 


инициирует запись информации в файл или в логическое устройство, 
связанное ранее с файловой переменной <ф.п.>. Процедурой КЕУ/ЮТЕ 
нельзя инициировать запись информации в ранее существовавший дис— 
ковый файл: при выполнении этой процедуры старый файл уничтожается 
и никаких сообщений об этом в программу не передается. Новый файл 
подготавливается к приему информации и его указатель принимает зна— 
чение 0. 
Стандартная процедура 


АРРЕМО (<ф.п.>) 


инициирует запись в ранее существовавший текстовый файл для его 
расширения, при этом указатель файла устанавливается в его конец. 
Процедура АРРЕМО применима только к текстовым файлам, т.е. их фай -— 
ловая переменная должна иметь тип ТЕХТ (см. выше). Процедурой АРРЕМО 
нельзя инициировать запись в типизированный или нетипизированный 
файл. Если текстовый файл ранее уже был открыт с помощью КЕЗЕТ или 
КЕИ/ЮМТЕ, использование процедуры АРРЕМО приведет к закрытию этого 
файла и открытию его вновь, но уже для добавления записей. 


5.2. ПРОЦЕДУРЫ И ФУНКЦИИ АЛЯ РАБОТЫ С ФАЙЛАМИ 


Ниже описываются процедуры и функции, которые можно исполь- 
зовать с файлами любого вида. Специфика работы с типизированными, 
текстовыми и нетипизированными файлами рассматривается в следующих 
разделах. | 


Процедура С1озе. Закрывает файл, однако связь файловой переменной 
с именем файла, установленная ранее процедурой А55$1СМ, сохраняется. 


Формат обращения: 
СТОбЕ (<ф.п.>) 


При создании ново!:> или расширении старого файла процедура обес -— 
печивает сохранение в файле всех новых записей и регистрацию файла в 
каталоге. Функции процедуры СГО5Е выполняются автоматически по 
отношению ко всем открытым файлам при нормальном завершении 
программы. Поскольку связь файла с файловой переменной сохраняется, 
файл можно повторно открыть без дополнительного использования про-— 
цедуры А55$1СМ. 


Процедура ВЕМАМЕ. Переименовывает файл. Формат обращения: 
ВЕМАМЕ (<ф.п.>, <новое имя>) 


Здесь <новое имя> — строковое выражение, содержащее новое имя 
файла. 
Перед выполнением процедуры необходимо закрыть файл, если он 
ранее был открыт процедурами КЕЗЕТ, КЕИЙШТЕ или АРРЕМО. 


Процедура ЕВАЗЕ. Уничтожает файл. Формат обращения: 
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ЕВАЗСЕ (<ф.п.>) 


‚Перед. выполнением процедуры необходимо закрыть файл, если он 
ранее был открыт процедурами КЕЗЕТ, КЕ\М/МТЕ или АРРЕМО. | 

Следующий фрагмент программы показывает, как можно использовать 
процедуры КЕМАМЕ и СГО5Е при работе с файлами. Предположим, что 
требуется отредактировать файл, имя которого содержит переменная 
МАМЕ. Перед редактированием необходимо убедиться, что нужный файл 
имеется на диске, и переименовать его — заменить расширение этого 
файла на ВАК (страховочная копия). Если файл с таким расширением уже 
существует, его надо стереть. 
уаг | 

Ё1 : Еехе; {Исходный файл} 

Го : вехе; [Отредактированный файл} 

папе : ЗЕЕЗра; 

паме рак: $119; 

К,1: мога; 


{Получаем в пате Бак имя файла с расширением .ВАК:} 
К := роз('.', паме); | 
1Е К = О ЕЪеп 
К := 1ерд®П (папе) + 1; 
паме рак := сору(паме,1,К-1) + Бак; 
{Проверяем существование исходного файла:} 
аз$1ап (Ё1, папе); . 
{>1-} 
гезее (Е1); 
1Е ТОВКезо16 <> 0 ф4Веп 
Ва1*; {Завершаем программу: файла не существует} 
с1о5е (Е1); 
{Проверяем существование .ВАК-файла: } 
аз51дп (Ео, паме рак); 
хезеф (Ро); 


{51+} 
1Е ТОВези1е = 0 &Ъеп 
Бед1п {Файл „.ВАК существует: } 
с1о5е (Ёо); {Закрываем его} 
егазе (Го) {и уничтожаем} 
епа; 


{Проверки закончены, подготовка к работе:} 
гепаме (Ё1, паме_раКк); 
гезее (21); 
_аз$з1апт (Ео, паме); 
гемг1{е (Го); 
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епа. 
Обратите внимание: проверка на существование файла .ВАК в ланном. 
примере необходима, так как обращение 


гепапе (Ё1, паме рак); 
вызовет ошибку в случае, если такой файл существует. 


Процедура ЕТОЗН. Очищает внутренний буфер файла и, таким образом, 
гарантирует сохранность всех последних изменений файла на диске. 
Формат обращения: 


РОЗН (<ф.п.>) 


Любое обращение к файлу в Турбо Паскале осуществляется через 
некоторый буфер, что необходимо для согласования внутреннего пред— 
ставления файлового компонента (записи) с принятым в ДОС форматом 
хранения данных на диске. В ходе выполнения процедуры ЁРЁО$Н все 
новые записи будут действительно записаны на диск. Процедура игно— 
рируется, если файл был инициирован для чтения процедурой КЕЗЕТ. 


Функция ЕОГ (<ф.п.>): ВООТЕАМ. Логическая функция, тестирующая 


конец файла. Возвращает ТКОЕЁ, если файловый указатель стоит в конце 
файла. При записи это означает, что очередной компонент будет добавлен 
в конец файла, при чтении — что файл исчерпан. 


Процедура Снотв. Изменение текущего каталога. Формат обращения: 
СНОТВ (<путь>) 


Здесь <путь> — строковое выражение, содержащее путь к устанав — 
ливаемому по умолчанию каталогу. 


Процедура _СЕТОТВ. Позволяет определить имя текущего каталога 
(каталога по умолчанию). Формат обращения: 


СЕТОТК (<устройство>, <каталог>) 


Здесь <устройство> -— выражение типа И’ОКО , содержащее номер 
устройства: 0 — устройство по умолчанию, 1 — диск А, 2 -- 
диск В ит.д.; 


<каталог> — переменная типа 5ТЕИУО, в которо : возвращается 
путь к текущему каталогу на указанном диске. 


Процедура МКОТВ. Создает новый каталог на указанном диске. Формат 
обращения: 


МКОТВ (<каталог>у, 


Здесь <каталог> — выражение типа 5ТЕИМУС, задающее путь к катало — 
гу. Последним именем в пути, т.е. именем вновь создаваемого 
каталога не может быть имя уже существующего каталога. 


Процедура ВМОТБВ. Улаляет каталог. Формат обращения; 
ВМОТВ (<каталог>) 
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Улаляемый каталог должен быть пустым, т.е. не содержать файлов или 
имен каталогов нижнего уровня. 


Функция ТОВЕЗОЬТ: ИОВр. Возвращает условный признак последней 
операции ввода — вывода. 

Если операция завершилась успешно, функция возвращает ноль. Коды 
ошибочных операций ввода-вывода представлены в прил.3. Следует 
помнить, что ГОКЕЗОЕГТ становится доступной только при отключенном 
автоконтроле ошибок ввода-вывода. Директива компилятора {$[-} от- 
ключает, а директива {$1+} включает автоконтроль. Если автоконтроль 
отключен, а операция ввода — вывода привела к возникновению ошибки, 
устанавливается флаг ошибки и все послелующие обращения к вводу-—. 
выводу блокируются, пока не будет вызвана функция ГОКЕЗОГТ. 

Ряд полезных файловых процедур и функций становится доступным 
при использовании библиотечного модуля РО5.ТРИ, входящего в стан- 
дартную библиотеку ТОКВО.ТРЕ . Эти процедуры и функции указаны ни— 
же. Доступ к ним возможен только после объявления (5Е5 2О5$ в начале 
программы (подробнее о работе с модулями см. гл.9). 


Функция ОТЭКЕВЕЕ _(<диск>) : ТОМСТМТ. Возвращает объем в байтах 


свободного пространства на указанном диске. При обращении к функции 
выражение <диск> типа ВУТЕЁ определяет номер диска: 0 — устройство по 
умолчанию, 1 — диск А, 2 -— диск В и тд. Функция возвращает значение 
— 1, если указан номер несуществующего диска. 


Функция ОТ5К5Т2Е _(<диск>): ТОМСТМТ. Возвращает полный объем 


диска в байтах или —1 ‚ если указан номер несуществующего диска. 


Процедура ЕТМОЕТЬЗТ. Возвращает атрибуты первого из файлов, за— 
регистрированных в указанном каталоге. Формат обращения: 


ЕТМОЕТВСТ (<маска>, <атрибуты>, <имя>) 


Здесь <маска> — строковое выражение, содержащее маску файла; 
<атрибуты> — выражение типа ВУТЕ, содержащее уточнение к 


маске (атрибуты); 
<имя> — переменная типа ЗЕАКСНКЕС, в которой будет воз— 


вращено имя файла. 
При формировании маски файла используются следующие символы — 
заменители ДОС: 


* означает, `что на месте этого символа может стоять сколько Угодно 
_ (в том числе НОЛЬ) разрешенных символов имени или расширения 


фаила; 
? означает, что на месте этого символа может стоять один из раз-— 
решенных символов. 


Например: 
“.* выбирает все файлы из каталога; 
с*.. ® выбирает все файлы с именами, начинающимися на с 


(с1.раз, сс12345, с.аЕ и т.л.)}; 
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а?.Аае выбирает имена файлов типа ад.4аЁ а2.ааЁ и т.д. 
Маске может предшествовать путь. Например, команда 
с: \Я1хг\ за Ч1к\*.раз 


означает выбирать все файлы с расширением „.РА$ из каталога ЗОВГПГК, 
находящегося на диске С; каталог ОВО зарегистрирован в каталоге 
верхнего уровня ОГК, который, в свою очередь, входит в корневой каталог. 
Байт <атрибуты> содержит двоичные разряды (биты), уточняющие, к 
каким именно файлам разрешен доступ при обращении к процедуре 
РИУРНКЫТ . Вот как объявляются файловые ` атрибуты в модуле РО$.ТРИ: 


сопзе 
ВеаЯОп1у = $01; {только чтение} 
Нтааеп = $02; {скрытый файл} 
$узЕ11е = $04; {системный файл} 
Уо1име!Тр = $08; {идентификатор тома} 
21гесфогу = $10; {имя подкаталога} 
Агср1уе = 520; {архивный файл} 
АпуЕ11е = 5ЗЕ; {любой файл} 


Комбинацией бит в этом байте можно указывать самые разные вари -— 
анты, например $06 — выбирать все скрытые и/или системные файлы. | 

Результат работы процедуры РИУМРЕШЖЗТ возвращается в переменной 
типа ЗЕАКСНКЕС. Этот тип в модуле РО$.ТРИ определяется следующим 
образом: 


фуре 

беагсйВес = хесога 
г11] : агхгау [1..21] оЕ Буке; 
АБЕг : руЕе; | 
Т1ме : 101911; 
5172е : 1опд1пЕ; 
Маме : $6хапа [12] 

епа; 


Здесь АНг — атрибуты файла (см. выше}; 

Типе — время создания или последнего обновления файла; воз— 
вращается в упакованном формате; распаковать параметр 
можно процедурой ИМРАСКИМЕ (см.ниже}; 

512е — длина файла в байтах, 

Мате -— имя и расширение файла. 

Для распаковки параметра ТМЁ используется процедура 


ОМРАСКТТМЕ (Т1ме: ГопаТп&; маг Т:БабеТ1пе). 
В модуле РО5.ТРИ объявлен следующий тип РаеГПте: 


фуре 
РафеТ1ще = хесога 
уеаг : мога; {год в формате 19ХХ} 
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шопеВ: мога; {месяц 1..12} 
Чау : мога; {день 1..31} 
Воцг : мога; {час 0..23} 


п1п : мога; (минуты 0..59} 
зес : мога {секунды 0..59} 
епа; 


Результат обращения к процедуре ЕМОЕЕ$Т можно проконтролировать 
с помощью функции РОЗЕККОК типа И’ОКО, которая возвращает значе — 
ния: 


0 - нет ошибок; 
2 - не найден каталог; 
18 - каталог пуст (нет указанных файлов). 


Процедура ЕТМОМЕХТ. Возвращает имя следующего файла в каталоге. 
Формат обращения: 


ЕТМОМЕХТ (<сл.файл>) 


Здесь <сл.файл> -— запись типа ЗЕАКСНКЕС (см. выше), в которой 
возвращается информация о файле. 


Следующая простая программа иллюстрирует способ использования 
процедур ЕПУРЕЖ$Т и ЕПУОМЕХТ. Программа выводит на экран список 
всех РА5—файлов текущего каталога: 


`Озез 1035; 
уагх 
5: ЗеагспВес; 
Бедап 
Р1паЕ1 5 ('*.раз',АпуЕ11е, 5); 
мВ1]1е ПБозЕггког = 0 ао 
Беда п 
те 5 а 
Иг1 с еГл (№аме:12,5127е:12); 
Е1паМехе (5) 
епа 
епа. 


Процедура _СЕТЕТТМЕ. Возвращает время создания или последнего 
обновления файла. Формат обращения: 


СЕТЕТТМЕ (<ф.п.>, <время>) 


Здесь <время> — переменная типа ГОМСПУТ ‚ в которой возвращается 
время в упакованном формате. 


Процедура ЗЕТЕТТМЕ. Устанавливает новую дату создания или обнов — 
ления файла. Формат обращения: 


СЕТЕТТМЕ (<ф.п.>, <время>) 


Здесь <время> — время и дата в упакованном формате. 


5—1 411 
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Упаковать запись типа РАТЕТИМЕ в переменную типа ГОМСИУТ можно 
процедурой 
РАСКТТМЕ (уахг Т:рафеТ1ме; уахг Т1ме:ГопаТпе). 
(Описание типа ДАТЕТПМЕ см. выше). 


Процедура СЕТЕАТТВ. Позволяет получить атрибуты файла. Формат 
обращения: 


СЕТЕАТТВ (<ф.п.>, <атрибуты>) 


Здесь <атрибуты> — переменная типа У’ОКО, в младшем байте ко- 
торой возвращаются устанавливаемые атрибуты файла. 


Процедура ЗЕТЕАТТВ. Позволяет установить атрибуты файла. Формат 
обращения: 


СЕТЕАТТВ (<ф.п.>, <атрибуты>) 
Функция ЕЗЕАВСН: РАТНУТВ. Ищет файл в списке каталогов. Формат 


вызова: 
ЕЗЕАВСН (<имя>, <сп.каталогов>) 

Здесь <имя> — имя отыскиваемого файла (строковое выражение или 
переменная типа РАТН$ТК; имени может предшествовать 
путь}; 

<сп.каталогов> — список каталогов, в которых отыскивается 


файл (строковое выражение или переменная типа 5ТАПУС); 
имена каталогов разделяются точкой с запятой. 

Результат поиска возвращается функцией РФЕАКСН в виде строки типа 
РАТН$ТК. В строке содержится путь и имя файла, если поиск был ус- 
пешным, в противном случае возвращается пустая строка. 

Тип РАТН$ТВ в модуле РО$.ТРО объявлен следующим образом: 


фуре 
Раеп5Ег = 8.1149 [79]; 
Следует учесть, что поиск файла всегда начинается в текущем каталоге 
и только после этого продолжается в тех, что перечислены в - 
<сп.каталогов>. Если файл обнаружен, дальнейший поиск прекращается, 
даже если часть каталогов осталась непросмотренной. В частности, если 
файл зарегистрирован в текущем каталоге, он «заслонит» собой одно- 


именные файлы в других каталогах. 
Пусть, например, на диске имеется файл \5ОВЫК\МУРШЕ.РА5. Тогда в 


случае, если текущий каталог — корневой, обращение 
РЗЕАВСН ('МУЕТЬЕ,РАЗ','\$08В; \$ОВОТВ'’) 
вернет строку \5ИВОК\ МУРШЕ.РА$, а обращение 
ЕЗЕАВСН ('МУЕТЬЕ.РАЗ'!, '\50В') 
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вернет пустую строку. Однако, если текущим установлен каталог ЗИВГИК, 
то в обоих случаях вернется строка МУРШЕ.РА$ (если файл находится в 
текущем каталоге, в выходной строке путь к нему не указывается). 


Процедура ЕЗРЬТТ. «Расщепляет» имя файла, т.е. возвращает в качестве 
отдельных параметров путь к файлу, его имя и расширение. Формат об— 
ращения: 


ЕЭРЬТТ (<файл>, <путь>, <имя>, <расширение>) 


Здесь <файл> — строковое выражение, содержащее спецификацию 
файла (имя с расширением и, возможно, с предшествующим 
путем); 


<путь> — переменная типа ОИК$5ТА=5ТАПУС [67], в которой 
возвращается путь к файлу; 

<имя> — переменная типа МАМЕЗТК=$ТЕПУС [8], в которой 
возвращается имя файла; 

<расширение> — переменная типа ЕХТ5ТК=5ТЕИМСО [4], в ко- 
торой возвращается расширение с предшествующей ему 
точкой. 

Процедура не проверяет наличие на диске указанного файла. В качестве 
входного параметра может использоваться переменная типа РАТНЫТК. 


Функция ЕЕХРАМО: _РАТНУТВ. Дополняет файловое имя до полной 


спецификации, Т.е. с указанием устройства и пути. Формат вызова: 
ГЕХРАМО (<файл>) 


Здесь <файл> — строковое выражение или переменная типа РАТН$ТК. 

Функция не проверяет наличие указанного файла на диске, а просто 
дополняет имя файла недостающими параметрами — текущим устройством 
и путем к текущему каталогу. Результат возвращается в строке типа 
РАТН$ТЕК. 


5.3. ТЕКСТОВЫЕ ФАЙЛЫ 


Текстовые файлы связываются с файловыми переменными, принад— 
лежащими стандартному типу ТЕХТ. Текстовые файлы предназначены для 
хранения текстовой информации. Именно в такого типа файлах хранятся, 
например, исходные тексты программ. Компоненты (записи) текстового 
файла могут иметь переменную длину, что существенно влияет на ха-— 
рактер работы с ними. 

Текстовый файл трактуется в Турбо Паскале как совокупность строк 
переменной длины. Доступ к каждой строке возможен лишь последова— 
тельно, начиная с первой. При создании текстового файла в конце каждей 
записи (строки) ставится специальный признак ЕОЁМ (Епа ОЁ ШМ\№е - 
конец строки), а в конце всего файла — признак ЕОЕ (Епа ОЕ ЕЦе — конец 
файла). Эти признаки можно протестировать одноименными логическими 
функциями (см. ниже). При формировании текстовых файлов исполь— 
зуются следующие системные соглашения: 

ЕОГМ — последовательность кодов АСИ #13 (СК) и #10 (1); 
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ЕОЕР — код #26 стандарта А$СИ. 

Для доступа к записям применяются процедуры КЕАР, ВКЕАРГМ, И/ЮТЕ, 
И/ЮКТЕЕМ. Они отличаются возможностью обращения к ним с переменным 
числом фактических параметров, в качестве которых могут использоваться 
символы, строки и числа. Первым параметром в любой из перечисленных 
процедур может стоять файловая переменная. В этом случае осуществ — 
ляется обращение к дисковому файлу или логическому устройству, свя— 
занному с переменной процедурой А551СМ. Если файловая переменная не 
указана, происходит обращение к стандартным файлам ПМУРИТ и ООТРИТ. 


Процедура ВЕАР. Обеспечивает ввод символов, строк и чисел. Формат 
обращения: | 


ВЕАО (<ф.п.>,<сп.ввода>) или ВЕАО (<сп.ввода>) 


Здесь <сп.ввода> — список ввода: последовательность из одной или 
более переменных типа СНАК, 5ТЕПМС, а также любого целого или ве— 
щественного типа. 

При вводе переменных типа СНАК выполняется чтение одного символа 
из файла и присваивание считанного значения переменной. Если перед 
выполнением чтения указатель файла достиг конца очередной строки, то 
результатом чтения будет символ СК (АЗСП код #13), а если достигнут 
конец файла, то — символ ЕОР (код #26). При вводе с клавиатуры символ 
СК вводится при нажатии на клавишу ЕшЕег, а символ ЕОЁЕ — при одно- 
временном нажатии клавиш СТАГ ий. 

При вводе переменных типа 5ТЕИМС количество считанных процедурой 
и помещенных в строку символов равно максимальной длине строки, если 
только раньше не встретились символы СК или ЕОЕ. В этом случае сами 
символы СК и ЕОР в строку не помещаются. Если количество символов во 
входном потоке данных болыше максимальной длины строки, «лишние» 
символы до конца строки отбрасываются, а новое обращение к КЕАР 
возвращает пустую строку. Таким образом, процедура КЕАО не в со- 
стоянии прочесть последовательность строк: первая строка будет прочи— 
тана нормально, а все последующие окажутся пустыми. Для ввода после — 
довательности строк нужно использовать процедуру КЕАПГМ (см. ниже). 

При вводе числовых переменных процедура КЕАД вначале выделяет 
подстроку во входном потоке по следующему правилу: все ведущие 
пробелы, символы табуляции и маркеры конца строк ЕОЁМ пропускаются; 
после выделения первого значащего символа, наоборот, любой из пере— 
численных символов или символ ЕОЁ служат признаком конца подстроки. 
Выделенная таким образом подстрока затем рассматривается как сим— 
вольное представление числовой константы соответствующего типа и 
преобразуется во внутреннее представление, а полученное значение 
присваивается переменной. Если в подстроке был нарушен требуемый 
формат представления численной константы, возникает ошибка ввода— 
вывода. Если при пропуске ведущих пробелов встретился символ ВОРЁ, 
переменная получает значение 0. Отметим, что в Турбо Паскале не пре- 
лусмотрен ввод шестнадцатеричных констант. 
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При использовании процедуры КЕАР применительно к стандартному 
файлу ПУРОТ, т.е. при вводе с клавиатуры, символьные строки запоми — 
наются в буфере, который передается процедуре только после нажатия на 
клавишу Ешег. Это позволяет редактировать данные при их вводе. Для 
редактирования используются следующие клавиши: 

е БаскК5расе, СШ-Н, перевод курсора влево — стирают символ слева от 


курсора; 
е Перевод курсора вправо — восстанавливает символ за символом 
предыдущую строку ввода; 
е СШ-2 Ещег — завершает ввод по процедуре КЕАД; оставшиеся 


«лишние» символьные параметры принимают значение СНК(26), 
строки возвращаются пустыми, а численные переменные остаются 
без изменения. | 

Максимальная длина буфера ввода при работе с клавиатурой составляет 
127 символов. Ввод с клавиатуры по процедуре КЕАР сопровождается 
эхо — повтором вводимых символов на экране ПК. 

Процедура КЕАД прекрасно приспособлена к вводу чисел. При обра— 
щении к ней за вводом очередного целого или вещественного числа про— 
цедура «перескакивает» маркеры конца строк, т.е. фактически весь файл 
рассматривается ею как одна длинная строка, содержащая текстовое 
представление чисел. В сочетании с проверкой конца файла функцией ЕОЁ 
процедура КЕАР позволяет организовать простой ввод массивов данных, 
например, так: 


соп$Е 

М = 1000; {Максимальная длина ввода} 
уаг 

Е сехе; 


ш : ахгау [1..№] оЕЁ геа1; 
1 : зпеедег; 
Ъед1п 
аззтап (Е, 'ргоад.Ча®'); 
гезее (Е); 
1 := 1; 
\р11е поЕ ЕОЕР(ЁЕ) апа (1 <= М) @ 
Бед1п 
геаа (ЁЕ,п[1]); 
10с (1) 
. епа; 
с1о5е (Е); 


ера. 


Процедура ВЕАОТМ. Обеспечивает ввод символов, строк и чисел. Эта 
процедура идентична процедуре КЕАР за исключением того, что после’ 
считывания последней переменной оставшаяся часть строки до маркера 
ЕОГМ пропускается, поэтому следующее обращение к КЕАРЕМ или КЕАЙ 
начинается с первого символа новой строки. Кроме того, эту процелуру 
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можно вызвать без параметра <сп.ввода> (см. процедуру ЮЕАО), что 
приведет к пропуску всех символов текущей строки вплоть до ЕОГМ. 

Если процедура используется для чтения с клавиатуры, нажатие на 
клавипту Ещег отобразится на экране как последовательность СВ + [и 
курсор будет помещен в начало слелующей строки, в тс время как в 
процедуре КЕАР эхо—повтором клавиши Ещег является символ СА и 
курсор помещается в начало текущей строки. 


Процедура ИВТТЕ. Обеспечивает вывод информации в текстовый файл 
или передачу ее на логическое устройство. Формат обращения: 


ИВКТТЕ (<ф.п.>, <сп.вывода>) или ИВТТЕ (<сп.вывода>) 


Здесь <сп.вывода> — список вывода: последовательность из одного или 
более выражений типа СНАК, 5ТЕПМА, ВООГЕАМ, а также любого целого 
или вещественного типа. 

Файловая переменная <ф.п.>, если она указана, должна быть предва — 
рительно описана как переменная типа ТЕХТ и связана с именем файла 
или логическим устройством процедурой А551СМ. Если файловая пере— 
менная отсутствует, подразумевается вывод в стандартный файл ООТРОТ, 
который обычно связан с экраном ПК. 

Любой элемент списка вывода может иметь форму 


ОцсЕхрг [ : Мапитаей [: РесР1асез 1] 


Здесь ООТЕХРК — выводимое выражение; 

МИМУПОТН, РЕСРГАСЕ$ — выражения типа И’ОКО (квадратные 
скобки означают возможность отсутствия заключенных 
в них параметров). 

Подпараметр МИМИЛЬОТН, если он присутствует, указывает мини— 
мальную ширину поля, в которое будет записываться символьное пред— 
ставление значения ОПТЕХРК. Если символьное представление имеет 
меныпую длину, чем МИУИПЬОТН, оно будет дополнено слева пробелами, 
если — большую длину, то подпараметр МИМИЛЬОТН игнорируется и вы- 
водится необходимое число символов. 

Подпараметр РЕСРГАСЕ$ задает количество десятичных знаков в 
дробной части вещественного числа. Он может использоваться Только 
совместно с МИМИЛЬТН и только по отношению к выводимому выражению 
одного из вещественных типов. 

Если ширина поля вывода не указана, соответствующий параметр вы— 
водится вслед за предыдущим без какого —либо их разделения. 

Символы и строки передаются выводному файлу без изменений, но 
снабжаются велущими пробелами, если задана ширина поля вывода и эта 
ширина больше требуемой для вывода. 

При выводе логических выражений в зависимости от их значения 
выводятся строки ТКОЕ или ЕГАГЗЕ. (Ввод логических констант процеду — 
рами КЕАО или КЕАРЕМ не предусмотрен]. 

Вещественные числа выводятся в экспоненциальном формате, если не 
“казан подпараметр РЕСРГАСЕ$ ‚ в противном случае выбирается формат 
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представления числа с фиксированной точкой. Экспоненциальный формат 
представляет вещественное число в виде 


_З#. ЯН ЕНИИНННЬ НН, 


где: 
_ пробел; 
5 пробел для положительного и знак «—» для отрицательного чисел; 
+  десятичная цифра; 
Е символ десятичного основания; 


знак «+» или «—» в зависимости от знака десятичного порядка 
числа. 

Если подпараметр МИМИПОТН опущен, принимается его значение по 
умолчанию (23). Если МИМИЛЬТН меньше 10, считается, что он равен 10. 

Если подпараметр РЕСРГАСЕ$ равен нулю, ни дробная часть числа, ни 
десятичная точка не выводятся. При отрицательном значении РЕСРГАСЕ$ 
этот параметр игнорируется и число выводится в экспоненциальном 
формате с учетом МИМИЛЬТН. Если значение РЕСРГАСЕ$ больше 18, 
принимается значение 18. Следует учесть, что при указании подпараметра 
РЕСРГАСЕ$ вещественное число всегда будет выводиться в формате с 
фиксированной точкой и требуемым количеством знаков в дробной части, 
даже если значение подпараметра МИУИПОТН окажется недостаточным для 
размещения целой части: в этом случае значение МИМУИЛЬТН автомати — 
чески увеличивается. | 

При выводе на экран в случае, когда длина выводимой последователь — 
ности символов превышает ширину экрана или созданного на нем окна, 
«лишние» символы переносятся на следующую экранную строку. При 
заполнении экрана или окна его содержимое сдвигается вверх на одну 
строку. 


Процедура _иВТТЕТМ. Эта процедура полностью идентична процедуре 
УЕЮТЕ за исключением того, что выводимая строка символов завершается 


кодами СК и [Ё. При вызове ИМТЕШМУ можно опускать параметр 
<сп.вывода>: в этом случае в файл передается маркер ЕОЁМ, что при 
выводе на экран приведет к переводу курсора в начало следующей строки. 


Логическая функция ЕОТМ. Возвращает ТКОЕ, если во входном тек- 
стовом файле достигнут маркер конца строки. Формат обращения: 


ЕОЪЬМ (<ф.п.>) 


Если параметр <ф.п.> опущен, функция проверяет стандартный файл 
МРОТ. 

Существует некоторое отличие в работе функций ЕОЁМ и ЕОСЕ с дис- 
ковыми файлами и логическими устройствами. Дело в том, что для ло -= 
гического устройства невозможно предвидеть, каким будет результат 
чтения очередного символа. Поэтому при работе с логическим устройством 
функция ЕОЁМ возвращает ТКОЕ, если послелним считанным с устройства 
символом был ЕОЁМ или ЕОЁ, в то время как при чтении с диска ТКОЕ 
возвращается в случае, если следующим считываемым символом будет 
ПОЕМ или ЕОСЕ. Аналогичное различие наблюдается и в функции ЕОЁ; для 
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логического устройства ТКОЕ возвращается в случае, если последним 
символом был ЕОР, а при чтении с диска — если следующим считываемым 
символом будет ЕОЁР. Иными словами, функции тестируют соответст— 
вующие признаки для логического устройства после очередного чтения, а 
для файла — перед чтением. 


Логическая функция ЗЕЕКЕОГМ. Пропускает все пробелы и знаки та— 


буляции до маркера конца строки ЕОЁМ или до первого значащего символа 
и возвращает ТКОЕ, если маркер обнаружен. Формат обращения: 


ЗЕЕКЕОЬМ (<ф.п.>) 


Если параметр <ф.п.> опущен, функция проверяет стандартный файл 
ПУРОТ. 


Логическая функция ЗЕЕКЕОЕ. Пропускает все пробелы, знаки табу — 


ляции и маркеры конца строки ЕОЁМ до маркера конца файла или до 
первого значащего символа и возвращает ТВОЕ, если маркер обнаружен. 
Формат обращения: 


ЗЕЕКЕОЕ (<ф.п.>) 


Если параметр <ф.п.> опущен, функция проверяет стандартный файл 
МРОТ. | 

В следующем примере, иллюстрирующем работу с текстовым файлом, 
подсчитывается общее количество символов в файле и результат делится 


на 40000 — таким способом можно оценить объем рукописи в так на 
зываемых учетно — издательских листах: 
уагх 
Е: сехе; 
$: ЗЕтг1па; 
соп$6 
Зим: ГопаТпЕ = 0; {Здесь будет количество символов} 
Ъед1п 
Ихг16е ('Имя файла: '); {Запрашиваем...} 
Веаа1т ($); {и вводим имя файла} 
азз1апт (Ё,$5); 
Везе* (Е); {Открываем файл} 
у\р11е поЕ ЕОЕ(ЕЁЕ) ао {Подсчитываем...} 
Бед1п {количество...} 
Веаа!лп (Е, 5$); {символов...} 
1пс (5ам, ТепаеП($)) {в Файле} 
епа; 
С1о5е (ЕЁ); {Закрываем файл} 


Мхг1$еГл ('Объем = ',5ат/40000:6:2,' уч.изд.л.') 
епа. 
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5.4. ТИПИЗИРОВАННЫЕ ФАЙЛЫ 


Ллина любого компонента типизированного файла строго постоянна, 
что дает возможность организовать прямой доступ к каждому из них (Т.е. 
доступ к компоненту по его порядковому номеру). 

Перед первым обращением к процедурам ввода-вывода указатель 
файла стоит в его начале и указывает на первый компонент с номером 0. 
После каждого чтения или записи указатель сдвигается к следующему 
компоненту файла. Переменные в списках ввода-вывода должны иметь 
тот же тип, что и компоненты файла. Если этих переменных в списке 
несколько, указатель будет смещаться после каждой операции обмена 
данными между переменными и дисковым файлом. 


Процедура ВЕАР. Обеспечивает чтение очередных компонентов типи— 
зированного файла. Формат обращения: 


ВЕАО (<ф.п.>,<сп.ввода>) 


Здесь <сп.ввода> — список ввода, содержащий одну или более пере-— 
менных такого же типа, что и компоненты файла. 

Файловая переменная <ф.п.> должна быть объявлена предложением 
ЕП.Е ОЕ... и связана с именем файла процедурой А551СМ№. Файл необхо — 
димо открыть процедурой КЕЗЕТ. Если файл исчерпан, обращение к КЕАР 
вызовет ошибку ввода — вывода. 


Процедура ИВТТЕ. Используется для записи данных в типизированный 
файл. Формат обращения: 


ИВТТЕ (<ф.п.>,<сп.вывода>) 


Здесь <сп.вывода> — список вывода, содержащий одно или более 
выражений того же типа, что и компоненты файла. | 


Процедура ЗЕЕК. Смещает указатель файла к требуемому компоненту. 
Формат обращения: 


ЗЕЕК (<ф.п.>,<М компонента>) 


Здесь <М компонента> — выражение типа ГОМСИТ, указывающее 
номер компонента файла. 

Первый компонент файла имеет номер 0. Процедуру нельзя применять 
к текстовым файлам. 


Функция ЕТТЕЗТ2Е. Возвращает значение типа ГОМСГ\УТ, которое со-— 
держит количество компонентов файла. Формат обращения: 


ЕТЬЕЗТОЕ (<ф.п.>) 


Функцию нельзя использовать для текстовых файлов. Чтобы перемес— 
тить указатель в конец типизированного файла, можно написать: 


зеек (Е11еУаг, Е1]1е512е (Е11еУаг)); 


гле РПЕУАК — файловая переменная. 


Функция ЕТГЕРОЗ. Возвращает значение типа ГОМСИУТ, содержащее 
порядковый номер компонента файла, который будет обрабатываться 
следующей операцией ввода — вывода. Формат обращения: 


ЕТЬЕРО$ (<ф.п.>) 


Функцию нельзя использовать для текстовых файлов. Первый компо — 
нент файла имеет порядковый номер 0. 


5.5. НЕТИПИЗИРОВАННЫЕ ФАЙЛЫ 


Нетипизированные файлы объявляются как файловые переменные типа 
ЕШЕ и отличаются тем, что для них не указан тип компонентов. Отсутствие 
типа делает эти файлы, с одной стороны, совместимыми с любыми другими 
файлами, а с другой — позволяет организовать высокоскоростной обмен 
данными между диском и памятью. 

При инициации нетипизированного файла процедурами КЕЗЕТ или 
КЕУ/КТЕ можно указать длину записи нетипизированного файла в байтах. 
Например, так: 


уаг 
Е: #11е; 

Бед1п 
а5$51ап (Е, 'муЁЕ11е.Ча®'); 
гезе® (2,512); 


епа. 


Длина записи нетипизированного файла указывается вторым пара— 
метром при обращении к процедурам КЕЗЕТ или КЕМ’МГТЕ, в качестве 
которого может использоваться выражение типа И’ОРАШО. Если длина записи 
не указана, она принимается равной 128 байтам. 

Турбо Паскаль не накладывает каких—либо ограничений на длину 
записи нетипизированного файла, за исключением требования положи — 
тельности и ограничения максимальной длины 65535 байтами (емкость 
целого типа И/ОКО). Олнако для обеспечения максимальной скорости 
обмена данными следует задавать длину, которая была бы кратна длине 
физического сектора дискового носителя информации (512 байт). Более 
того, фактически пространство на диске выделяется любому файлу пор-— 
циями — кластерами, которые в зависимости от типа диска могут за— 
нимать 2 и более смежных секторов. Как правило, кластер может быть 
прочитан или записан за один оборот диска, поэтому наивысшую скорость 
обмена данными можно получить если указать длину записи, равную 
длине кластера. 

При работе с нетипизированными файлами могут применяться все 
процедуры и функции, доступные типизированным файлам, за исключе — 
нием КЕАД и И/ЫТЕ, которые заменяются соответственно высокоскоро — 
стными процедурами ВГОСККЕАР и ВГОСКИТТЕ . Аля вызова этих 
процедур используются следующие предложения: 
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ВТОСКВЕАР (<ф.п.>,<б6уф>,<[,<ММ>]) 
ВЬОСКИВТТЕ (<ф.п.>, <буф>, <[,<ММ>1) 


Здесь <буф> — буфер: имя переменной, которая будет участвовать в 
обмене данными с дисками; 
<)> -— количество записей, которые должны быть прочитаны 


или записаны за одно обращение к диску; 

<М№ММ> — необязательный параметр, содержащий при выходе из 
процедуры количество фактически обработанных запи— 
сей. 

За одно обращение к процедурам может быть передано до №КЕС$ байт, 
где КЕС5 — длина записи нетипизированного файла. Передача идет, на— 
чиная с первого байта переменной <буф>. Программист должен позабо — 
титься о том, чтобы длина внутреннего представления переменной <буф> 
была достаточной для размещения всех №КЕС$ байт при чтении инфор -— 
мации с диска. Если при чтении указана переменная <буф> недостаточной 
длины или если в процессе записи на диск не окажется нужного сво -— 
бодного пространства, возникнет ошибка ввода—вывода, которую можно 
заблокировать, указав необязательный параметр <ММ\> (переменная типа 
И’/ОКО). 

После завершения процедуры указатель смещается на <ММ> записей. 
Процедурами 5ЕЁК, ЕШЕРО$ и ЕШЕЗЕ можно обеспечить доступ к любой 
записи нетипизированного файла. 
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УКАЗАТЕЛИ И ДИНАМИЧЕСКАЯ ПАМЯТЬ 


6.1. ДИНАМИЧЕСКАЯ ПАМЯТЬ 


Все переменные, объявленные в программе, размещаются в одной не— 
прерывной области оперативной памяти, которая называется сегментом 
данных. Длина сегмента данных определяется архитектурой микропро— 
цессоров 80х86 и составляет 65536 байт, что может вызвать известные 
затруднения при обработке больших массивов данных. С другой стороны, 
объем памяти ПК (обычно не менее 640 Кбайт) достаточен для успешного 
решения залач с большой размерностью данных. Выходом из положения 
может служить использование так называемой динамической памяти. 

Динамическая память — это оперативная память ПК, предоставляемая 
программе при ее работе, за вычетом сегмента данных (64 Кбайт), стека 
(обычно 16 Кбайт) и собственно тела программы. Размер динамической 
памяти можно варьировать в широких пределах (см. прил.1). По умол- 
чанию этот размер определяется всей доступной памятью ПК и, как 
правило, составляет не менее 200...300 Кбайт. 

Динамическая память — это фактически единственная возможность 
обработки массивов данных большой размерности. Многие практические 
задачи трудно или невозможно решить без использования динамической 
памяти. Такая необходимость возникает, например, при разработке систем 
автоматизированного проектирования (САПР): размерность математиче — 
ских моделей, используемых в САПР, может значительно отличаться в 
разных проектах; статическое (т.е. на этапе разработки САПР) распреде -— 
ление памяти в этом случае, как правило, невозможно. Наконец, дина— 
мическая память широко используется для временного запоминания 
данных при работе с графическими и звуковыми средствами ПК. 

Динамическое размещение данных означает использование динами— 
ческой памяти непосредственно при работе программы. В отличие от этого 
статическое размещение осуществляется компилятором Турбо Паскаля в 
процессе компиляции программы. При динамическом размещении заранее 
не известны ни тип, ни количество размещаемых данных, к ним нельзя 
обращаться по именам, как к статическим переменным. 


6.2. АДРЕСА И УКАЗАТЕЛИ 


Оперативная память ПК представляет собой совокупность элемен— 
тарных ячеек для хранения информации — байтов, каждый из которых 
имеет собственный номер. Эти номера называются адресами, они по-— 
зволяют обращаться к любому байту памяти. 

_ Турбо Паскаль предоставляет в распоряжение программиста гибкое 
средство управления динамической памятью — так называемые указатели. 
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Указатель — это переменная, которая в качестве своего значения со— 
держит адрес байта памяти. 

В ПК адреса задаются совокупностью двух шестнадцатиразрядных слов, 
которые называются сегментом и смещением. Сегмент — это участок 
памяти, имеющий длину 65536 байт (64 Кбайт) и начинающийся с фи- 
зического адреса, кратного 16 (т.е. 0, 16, 32, 48 и т.д.). Смещение указывает, 
сколько байт от начала сегмента необходимо пропустить, чтобы обратиться 
к нужному адресу. 

Адресное пространство ПК составляет 1 Мбайт (речь идет о так на- 
зываемой стандартной памяти ПК; на современных компьютерах с про-— 
цессорами 80386 и выше адресное пространство составляет 4 Гбайт, однако 
в Турбо Паскале нет средств, поддерживающих работу с дополнительной 
памятью; при использовании среды ВоПапа Раса] "Ий ОБес!5 7.0 такая 
возможность имеется). Для адресации в пределах 1 Мбайта нужно 20 
двоичных разрядов, которые получаются из двух шестнадцатиразрядных 
слов (сегмента и смещения) следующим образом (рис.6.1): содержимое 
сегмента смещается влево на 4 разряда, освободившиеся правые разряды 
заполняются нулями, результат складывается с содержимым смещения. 


Сегмент [1514]13|12|11]101 3] 81 7] 6] 5] 4] 3] 2] 1] 0. 
+ 
Смещение [1514 |13|12М1]10] 3] 8| 7] 6] 5] 4| 3| 2| 110 


Ядрес — [19181716151 413121110] 3] 8[ 7| 6] 5] 4] 3] 2[ 1] 0 


Рис.6.1. Схема формирования адреса в ПК 


Фрагмент памяти в 16 байт называется параграфом, поэтому можно 
сказать, что сегмент адресует память с точностью до параграфа, а сме— 
щение — с точностью до байта. Каждому сегменту соответствует непре-— 
рывная и отдельно адресуемая область памяти. Сегменты могут следовать в 
памяти один за другим без промежутков или с некоторым интервалом, или, 
наконец, перекрывать друг друга. | 

Таким образом, по своей внутренней структуре любой указатель 
представляет собой совокупность двух слов (ланных типа И/ОКО), трак— 
туемых как сегмент и смещение. С помощью указателей можно размещать 
в динамической памяти любой из известных в Турбо Паскале типов 
данных. Лишь некоторые из них (ВУТЕ, СНАК, ЗНОЕКТШУТ, ВООТЕАМ) за- 
нимают во внутреннем представлении один байт, остальные — несколько 
смежных. Поэтому на самом деле указатель адресует лишь первый байт 
данных. 


6.3. ОБЪЯВЛЕНИЕ УКАЗАТЕЛЕЙ 


Как правило, в Турбо Паскале указатель связывается с некоторым 
типом данных. Такие указатели будем называть типизированными. Аля 
объявления типизированного указателя используется значок ^, который 
помещается перед соответствующим типом, например: 


уаг 
р : ^1п%едег; 
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р2 : ^геа1; 
фуре 
РегсопРо1п$ег = ^РегсопВесога; 
РегсопВесога = гхесога 
Мате : зЕк1па; 


дор : вхапа; 
МехЕ : РегсопРозлпЕег 
епа; 


Обратите внимание: при объявлении типа РегсопРой(ег мы сослались на 
тип РегсопКесога, который предварительно в программе объявлен не был. 
Как уже отмечалось, в Турбо Паскале последовательно проводится в жизнь 
принцип, в соответствии с которым перед использованием какого — либо 
идентификатора он должен быть описан. Исключение сделано только для 
указателей, которые могут ссылаться на еще не объявленный тип данных. 
Это исключение сделано не случайно. Динамическая память дает воз— 
можность реализовать широко используемую в некоторых программах 
организацию данных в виде списков. Каждый элемент списка имеет в 
своем составе указатель на соседний элемент (рис. 6.2), что обеспечивает 
возможность просмотра и коррекции списка. Если бы в Турбо Паскале не 
было этого исключения, реализация списков была бы значительно за 


труднена. 


2-й 
злемент 
списка 


Чказатель 


Рис.6.2. Списочная структура данных 


Последний 
элемент 
списка 


1-й 
элемент 
списка 


Указатель 


В Турбо Паскале можно объявлять указатель и не связывать его при 
этом с каким—либо конкретным типом данных. Для этого служит стан — 
дартный тип РОГУТЕК, например: 


\уаг 
р: ро1пеег; 


Указатели такого рода будем называть нетипизированными. Поскольку 
нетипизированные указатели не связаны с конкретным типом, с их по- 
мощью удобно динамически размещать данные, структура и тип которых 
меняются в ходе работы программы. 

Как уже говорилось, значениями указателей являются адреса пере— 
менных в памяти, поэтому следовало бы ожидать что значение одного 
указателя можно передавать другому. На самом деле это не совсем так. В 
Турбо Паскале можно передавать значения только между указателями, 
связанными с одним и тем же типом данных. Если, например, 
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уаг 
р1,р2: ^1п%едег; 
РЗ : ^геа1; 
рр : ролпеег; 
то присваивание 
р1 := р2; 
вполне допустимо, в то время как, 
р1 := РЗ; 


запрещено, поскольку Р1 и РЗ указывают на разные типы данных. Это 
ограничение, однако, не распространяется на нетипизированные указате — 
ли, поэтому мы могли бы записать 


и тем самым достичь нужного результата. 

Читатель вправе задать вопрос, стоило ли вводить ограничения и тут же 
давать средства для их обхода. Все дело в том, что любое ограничение, с 
одной стороны, вводится для повышения надежности программ, а с другой 
— уменьшает мощность языка, делает его менее пригодным для каких — то 
применений. В Турбо Паскале немногочисленные исключения в отно— 
шении типов данных придают языку необходимую гибкость, но их ис-— 
пользование требует от программиста дополнительных усилий и таким 
образом свидетельствует о вполне осознанном действии. 


6.4. ВЫДЕЛЕНИЕ И ОСВОБОЖДЕНИЕ ДИНАМИЧЕСКОЙ 
_ ПАМЯТИ 


Вся динамическая память в Турбо Паскале рассматривается как спло— 
шной массив байтов, который называется кучей. Физически куча распо — 
лагается в старших адресах сразу за областью памяти, которую занимает 
тело программы. 

Начало кучи хранится в стандартной переменной НЕАРОКС (рис. 6.3), 
конец — в переменной НЕАРЕМО. Текущую границу незанятой динами— 
ческой памяти указывает указатель НЕАРРТК. 

Память под любую динамически размещаемую переменную выделяется 
процедурой МЕУ/. Параметром обращения к этой процедуре является 
типизированный указатель. В результате обращения указатель приобретает 
значение, соответствующее динамическому адресу, начиная с которого 
можно разместить данные, например: 


уаг 
1, 5) : ^1пеедег; 
х ; ^геа1; 
Бед1п 
М№ем (1); 


епа. 
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системная Старшие адреса 


область 
НеарЕпд 


НеарРЕ 


Программа 


НеарОг9 
Системная 


область 
Младшие адреса 


Рис.6.3. Расположение кучи в памяти ПК 


После выполнения этого фрагмента указатель [ приобретет значение, 
которое перед этим имел указатель кучи НЕАРРТК, а сам НЕАРРТК уве— 
личит свое значение на 2, так как длина внутреннего представления типа 
ПМТЕСЕК, с которым связан указатель [, составляет 2 байта (на самом деле 
это не совсем так: память под любую переменную выделяется порциями, 
кратными 8 байтам — см. п.б.7). Оператор 


пем (г); 


вызовет еще раз смещение указателя НЕАРРТК, но теперь уже на 6 байт, 
потому что такова длина внутреннего представления типа КЕАГ. Анало— 
гичным образом выделяется память и для переменной любого другого типа. 
После того как указатель приобрел некоторое значение, т.е. стал ука— 
зывать на конкретный физический байт памяти, по этому адресу можно 
разместить любое значение соответствующего типа. Для этого сразу за 
указателем без каких — либо пробелов ставится значок ^, например: 


1^ := 2; (В область памяти 1 помещено значение 2} 
г^ := 2%*р:; {В область памяти г помещено значение 6.28} 


Таким образом, значение, на которое указывает указатель, т.е. собст— 
венно данные, размещенные в куче, обозначаются значком ^, который 
ставится сразу за указателем. Если за указателем нет значка ^, то имеется 
в виду адрес, по которому размещены данные. Имеет смысл еще раз за— 
думаться над только что сказанным: значением любого указателя является 
адрес, а чтобы указать, что речь идет не об адресе, а о тех данных, ко— 
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торые размещены по этому адресу, за указателем ставится ^. Если Вы 
четко уясните себе это, у Вас не будет проблем при работе с динамической 


памятью. 
Динамически размещенные данные можно использовать в любом месте 


программы, где это допустимо для констант и переменных соответст - 
вующего типа, например: 


г^ := заг(г^) + 1^ - 17; 


Разумеется, совершенно недопустим оператор 


^ 


г := заг(г^) + 1^ - 17; 


так как указателю К нельзя присвоить значение вещественного выраже- 
ния. Точно так же недопустим оператор 


г^ := заг (г); 


поскольку значением указателя К является адрес, и его (в отличие от того 
значения, которое размещено по этому адресу) нельзя возводить в квадрат. 
Ошибочным будет и такое присваивание. 


т^ := 1; 


так как вещественным данным, на которые указывает К, нельзя присвоить 
значение указателя (адрес). 

Динамическую память можно не только забирать из кучи, но и воз— 
вращать обратно. Для этого используется процедура О5РО5ЗЕ. Например, 
операторы 


Я15розе (г); 
415розе (1); 


вернут в кучу 8 байт, которые ранее были выделены указателям [и К (см. 
выше). 

Отметим, что процедура О/5РОЗЕ(РТЕ) не изменяет значения указателя 
РТК, а лишь возвращает в кучу память, ранее связанную с этим указателем. 
Однако повторное применение процедуры к свободному указателю при-— 
ведет к возникновению ошибки периода исполнения. Освободившийся 
указатель программист может пометить зарезервированным словом МП.. 
Помечен ли какой —либо указатель или нет, можно проверить следующим 
образом: 


соп$Е 
р: ^геа1 = МТЬ; 
Бед1п 
1Е р = №1. Вел 
пем(р); 
Я15розе (р); 
р := МТтЬ; 
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ела. 


Никакие другие операции сравнения над указателями не разрешены. 

Приведенный выше фрагмент иллюстрирует предпочтительный способ 
объявления указателя в виде типизированной константы (см. гл. 7) с од- 
новременным присвоением ему значения М№П.. Следует учесть, что на- 
чальное значение указателя (при его объявлении в разделе переменных) 
может быть произвольным. Использование указателей, которым не при- 
своено значение процедурой МЕУ\’ или другим способом, не контроли-— 
руется системой и может привести к непредсказуемым результатам. 

Чередование обращений к процедурам МЕ\/ и ОБРО5$Е обычно при- 
водит к «ячеистой» структуре памяти. Дело в том, что все операции с 
кучей выполняются под управлением особой подпрограммы, которая на— 
зывается администратором кучи. Она автоматически пристыковывается к 
Вашей программе компоновщиком Турбо Паскаля и ведет учет всех сво— 
бодных фрагментов в куче. При очередном обращении к процедуре МЕУ” 
эта подпрограмма отыскивает наименьший свободный фрагмент, в котором 
еще может разместиться требуемая переменная. Адрес начала найденного 
фрагмента возвращается в указателе, а сам фрагмент или его часть нужной 
длины помечается как занятая часть кучи. (Подробнее о работе админи — 
стратора кучи см. п.б.7). 

Другая возможность состоит в освобождении целого фрагмента кучи. С 
этой целью перед началом выделения динамической памяти текущее 
значение указателя НЕАРРТК запоминается в переменной - указателе с 
помощью процедуры МАКК. Теперь можно в любой момент освободить 
фрагмент кучи, начиная от того адреса, который запомнила процедура 
МАКК, и ло конца динамической памяти. Для этого используется проце — 
дура КЕГЕАЗЕ. Например: 


чуаг 
р,Р!1,Р2, 
р3З,рА,р5 : ^1п6едег; 
Бед1п 
пем (р1); 
пем (р2); 
пагк (р); 
пем (р3); 
пем (р4); 
пем (р5) 
ге1еазе (р); 
епа. 


В этом примере процедурой МАКАР) в указатель Р было помещено 
текущее значение НЕАРРТЕ, однако память под переменную не резерви — 
ровалась. Обращение КЕГЕАЗЕ(Р) освободило динамическую память от 
помеченного места до конца кучи. Рис.6.4 иллюстрирует механизм работы 
процедур МЕИ/Ь-ПО/5РО5Е и МБЕИ/-МАКК-КЕГЕАЗЕ для рассмотренного 
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примера и для случая, когда вместо оператора КЕГЕАЗЕ(Р) используется, 
например, ОФРО5Е( РЗ). 


в] 


Рис.6.4. Состояние динамической памяти: а) перед освобождением; 
6) после Г5ро$е(р3); в) после К@еа$е(р) 


Следует учесть что вызов КЕГЕАЗЕ уничтожает список свободных 
фрагментов в куче, созданных до этого процедурой О/5РО5Е, поэтому 
совместное использование обоих механизмов освобождения памяти в 
рамках одной программы не рекомендуется. 

Как уже отмечалось, параметром процедуры МЕУИ/ может быть только 
типизированный указатель. Аля работы с нетипизированными указателями 
используются процедуры: 


СЕТМЕМ (Р, $14Е) - резервирование памяти; 
ЕВЕЕМЕМ (Р, $512Е) - освобождение памяти. 


Здесь Р — нетипизированный указатель; 
512Е — размер в байтах требуемой или освобождаемой части ку— 
Чи. 

За одно обращение к куче процедурой СЕТМЕМ можно зарезервировать 
до 65521 байта динамической памяти. 

Использование процедур СЕТМЕМ-ЕКЕЕМЕМ, как и вообще вся работа 
с линамической памятью, требует особой осторожности и тщательного 
соблюдения простого правила: освобождать нужно ровно столько памяти, 
сколько ее было зарезервировано, и именно с того адреса, с которого она 
была зарезервирована. 

Нетрудно обнаружить что наличие нетипизированных указателей в 
Турбо Паскале (в стандартном Паскале их нет) открывает широкие воз— 
можности неявного преобразования типов. К сожалению, трудно обна— 
руживаемые ошибки в программе, связанные с некорректно используе — 
мыми обращениями к процедурам М№ЕУ/ и О15РОЗЕ, также могут привести 
к нежелательному преобразованию типов. В самом деле, пусть имеется 
программа: 
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уаг 
1,) : ^1п6едег; 
г : ^геа1; 


Бед1п 
пем (1); {1 := НеарОга; НеарРЁг := НеарОгд + 2} 
9 := 1; {7 := Неарога} 
7^ :=2; 
Я15розе (1); {НеарРЕг := Неарог9} 
пем (г); {г := НеарОга; НеарРЕг := Неарогоа + 6} 
г^ := р:; 
Иг1еГл (7^) { ?? }] 
ела. 


Что будет выведено на экран дисплея? Чтобы ответить на этот вопрос, 
проследим за значениями указателя НЕАРРТК. Перед исполнением про-— 
граммы этот указатель имел значение адреса начала кучи НЕАРОКС, ко- 
торое и было передано указателю Г а затем и Л. После выполнения 
Р15РО$Е(]) указатель кучи вновь приобрел значение НЕАРОКС, этот адрес 
передан указателю К в процедуре МЕИХК). После того как по адресу К 
разместилось вещественное число д=3.14159, первые 2 байта кучи ока-— 
зались заняты под часть внутреннего представления этого числа. В то же 
время ./ все еще сохраняет адрес НЕАРОКС, поэтому оператор И/ИМТЕЕМ(.”) 
будет рассматривать 2 байта числа л как внутреннее представление целого 
числа (ведь Л — это указатель на тип ПУТЕСЕК) и выведет 8578. 


6.5. ИСПОЛЬЗОВАНИЕ УКАЗАТЕЛЕЙ 


Подведем некоторые итоги. Итак, динамическая память составляет 
200...300 Кбайт или больше, ее начало хранится в переменной НЕАРОКС, а 
конец соответствует адресу переменной НЕАРЕМО. Текущий адрес сво-— 
бодного участка динамической памяти хранится в указателе НЕАРРТК. 

Посмотрим, как можно использовать динамическую память для раз— 
мещения крупных массивов данных. Пусть например, требуется обеспе — 
чить доступ к элементам прямоугольной матрицы 100х200 типа ЕХТЕМОЕРО. 
Для размещения такого массива требуется память 200000 байт (100*200*10). 

Казалось бы, эту проблему можно решить следующим образом: 


уах 
1,) : 1п6едег; 
РегАгг : аггау [1..100, 1..200] оЕ ^геа1; 
Бед1п 


ог 1 := 1 0 100 ао 
ог 1] := 1 ®0 200 ао 
пем (РЕгАгк[1,5]); 
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Теперь к любому элементу вновь созданного динамического массива 
можно обратиться по адресу, например: 


РЕГАхгх [1,1]^ := 0; 
1Е РЕегАгк[1,]*2]^ > 1 еп ...... 


Вспомним, однако, что длина внутреннего представления указателя 
составляет 4 байта, поэтому для размещения массива РТКАКК потребуется 
100*200*4 = 80000 байт, что превышает размер сегмента данных (65536 
байт), доступный, как уже отмечалось программе для статического раз— 
мещения данных. 

Выходом из положения могла бы послужить адресная арифметика, т.е. 
арифметика над указателями, потому что в этом случае можно было бы 
отказаться от создания массива указателей РТКАКК и вычислять адрес 
любого элемента прямоугольной матрицы непосредственно перед обра— 
щением к нему. Однако в Турбо Паскале над указателями не определены 
никакие операции, кроме операций присвоения и отношения. 

Тем не менее, решить указанную задачу все-таки можно. Как мы уже 
знаем, любой указатель состоит из двух слов типа И’ОКО, в которых 
хранятся сегмент и смещение. В Турбо Паскале определены две встро— 
енные функции типа И’ОКО, позволяющие получить содержимое этих слов: 

Э5ЕС(Х) — возвращает сегментную часть адреса; 

ОР$(Х) — возвращает смещение. 

Аргументом Х при обращении к этим функциям может служить любая 
переменная, в том числе и та, на которую указывает указатель. Например, 
если имеем 


то функция ЭЕС(Р) вернет сегментную часть адреса, по которому распо — 
лагается 4—байтный указатель Р, в то время как 5ЕС(Р^) — сегмент 6-— 
байтного участка кучи, в котором хранится число 3.14. 

С другой стороны, с помощью встроенной функции 


РТВ (5ЕС,ОЕ$: ИОВО): РОТМТЕВ о 


можно создать значение указателя, совместимое с указателями любого 
типа. Таким образом возможна Такая последовательность действий. 
Вначале процедурой СЕТМЕМ из кучи забираются несколько фрагментов 
подходящей длины (напомню, что за одно обращение к процедуре можно 
зарезервировать не более 65521 байт динамической памяти). Для рас- 
сматриваемого примера удобно резервировать фрагменты такой длины, 
чтобы в них могли, например, разместиться строки прямоугольной мат-— 
рицы, т.е. 200 * 10 = 2000 байт. Начало каждого фрагмента, Т.е. факти -— 
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чески начало размещения в памяти каждой строки, запоминается в мас- 
сиве РТЕ$ТК, состоящем из 100 указателей. Теперь для доступа к любому 
элементу строки нужно вычислить смещение этого элемента от начала 
строки и сформировать соответствующий указатель: 


уаг 
1,) : 1п6едег; 
РЕгЗег : аггау '[1..100] оЕЁ ро1пфег; 
рг : ^геа1; 
соп5Е 
512е0ЕВеа1 = 6; 
Бед1п 


Бог 1 := 1 0 100 @о 
СесМем (РЕгЗЕг[1],512е0ЕВеа1*200); 
{Обращение к элементу матрицы [1,7]} 
рг := рег (зед (РЕхЗег[1]^), 
оЁ$ (Рег5г [1]^)+(3-1) *51хе0ЕВеа1); 
1Е рг^ > 1 ЕВеп 


Поскольку оператор вычисления адреса РК := РТК... будет, судя по все 
му, использоваться в программе неоднократно, полезно ввести вспомо-— 
гательную функцию СЕТКЕ, возвращающую значение элемента матрицы, и 
процедуру РИТЕК, устанавливающую новое значение элемента (правила 
объявления процедур и функций изложены в г^. 8). Каждая из них, в свою 
очередь, обращается к функции АРОКК для вычисления адреса. В примере 
6.1 приводится программа, созлающая в памяти матрицу из МхМ слу- 
чайных чисел и вычисляющая их среднее значение. 


Пример 6.1 


соп$Е 
512е0ЕВеа1 = 6; {Длина переменной типа ВЕАГ)} 
№ = 100; {Количество столбцов} 
М = 200; {Количество строк} 
уаг 
1,) : 1п$едег; 
Регбек: акхау [1..№ оЕ ро1п%ег; 
З : геа1; 
фуре 
Веа1Ро1пЕ = ^геа1; 
=== } 


Гапсё1топ Ааагв(1,]: мога): Веа1Ро1пе; 
[По сегменту 1 и смещению 7] выдает адрес 
вещественной переменной} 
Ьед1п 
АЗахВ := рег (5еч9 (РЕг5®к[1]^), 
ОЕЗ$ (Рег г [1]^)+(3-1) *512е0ЕВеа1.) 
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епа (даагЮ}; 


РЕипсЕ1оп Сеев(1,7]: 1пЕедег): геа1; 
{Выдает значение вещественной переменной по сегменту 1 
и смещению 7 ее адреса} 
Бед1п 
Сеёв := АаагВ (1,7) ^ 
еп {сеЕК}; 


Ргосериге РокВ(1,] : 1п6едег; х: геа1); 
{Помещает в переменную, адрес которой имеет сегмент 1 
и смещение 7, вещественное значение х} 
Бед1п 
АаакВ (1,7)^ := х 
епа {РиЕК}; 


Ред1п {Ма1п} 
Бог 1 :=1 Фо М а 
Ьед1п 
СееМем (РЕ’гбЕу[1], М*$512е0ЕВеа1); 
ох ] := 1 ®0 М ао Рав (1, 7, Вапаом) 
епа; | 
5 := 0; 
Бог 1 := 1 &0 М 94 
Бог ) := 1 © М @ 
3 := $+ сбеёв (1,7); 
Иг1еето (3 / (М *М) : 12:10) 
епА (Марп}. 


В рассмотренном примере предполагается, что каждая строка раз— 
мещается в куче, начиная с границы параграфа, и смещение для каждого 
указателя РТКЗТК равно нулю. В действительности при последовательных 
обращениях к процедуре СЕТМЕМ начало очередного фрагмента следует 
сразу за концом предыдущего и может не попасть на границу сегмента. В 
результате, при размещении фрагментов максимальной длины (65521 байт) 
может возникнуть переполнение при вычислении смещения последнего 
байта. 


6.6. ПРОЦЕДУРЫ И ФУНКЦИИ ДЛЯ РАБОТЫ 
С ДИНАМИЧЕСКОЙ ПАМЯТЬЮ 


Ниже приводится описание как уже рассмотренных процедур и 
функций, так и некоторых других, которые могут оказаться полезными 
при обращении к динамической памяти. 


Функция АОГВ. Возвращает результат типа РОПМТЕК, в котором со-— 
держится адрес аргумента. Обращение: 


АБОВ (Х) 
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Здесь Х — любой объект программы (имя любой переменной, проце-— 
дуры, функции). Возвращаемый адрес совместим с указателем любого ти -— 
па. Отметим, что аналогичный результат возвращает операция @. 


Функция С5ЕС. Возвращает значение, хранящееся в регистре С5$ 
микропроцессора (в начале работы программы в регистре С5$ содержится 
сегмент начала кода программы). Обращение: | 


С5ЕС 
Результат возвращается в слове типа И’ОКО. 


Процедура РТ5РОЗЕ. Возвращает в кучу фрагмент динамической памя— 
ти, который ранее был зарезервирован за типизированным указателем. 
Обращение: 


ОТЗРОЗЕ (ТР) 


Здесь ТР — типизированный указатель. При повторном использовании 
процедуры применительно к уже освобожденному фрагменту возникает 
ошибка периода исполнения. При освобождении динамических объектов 
можно указывать вторым параметром обращения к ШО/БРОЗ$Е имя дест- 
‚руктора (подробнее см. гл.10). 


Функция _П5ЕС. Возвращает значение, хранящееся в регистре 05$ 
микропроцессора (в начале работы программы в регистре 2$ содержится 
сегмент начала ланных программы). Обращение: 


р5ЕС 
Результат возвращается в слове типа И/ОКО. 


Процедура ЕВЕЕМЕМ. Возвращает в кучу фрагмент динамической памя — 
ти, который ранее был зарезервирован за нетипизированным указателем. 


Обращение: 
ЕВЕЕМЕМ (Р, 5Т2Е ) 


Здесь Р — нетипизированный указатель; 
517Е — длина в байтах освобождаемого фрагмента. 
При повторном использовании процедуры применительно к уже ос- 
вобожденному фрагменту возникает ошибка периода исполнения. 


Процедура _СЕТМЕМ. Резервирует за нетипизированным указателем 
фрагмент динамической памяти требуемого размера. Обращение: 


СЕТМЕМ (Р, 5$Т125Е ) 


За одно обращение к процедуре можно зарезервировать не более 65521 
байтов динамической памяти. Если нет свободной памяти требуемого 
размера, возникает ошибка периода исполнения. Если память не фраг— 
ментирована, последовательные обращения к процедуре будут резерви — 
ровать последовательные участки памяти, так что начало следующего будет 
располагаться сразу за концом предыдущего. 
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Процедура _МАВК. Запоминает текущее значение указателя кучи 
НЕАРРТК. Обращение: 


МАВК ( РТВ ) 


Здесь РТК — указатель любого типа, в котором будет возвращено те-— 
кущее значение НЕАРРТКЕ. Используется совместно с процедурой КЕГЕА$Е 
для освобождения части кучи. 


Функция МАХАУАТГ. Возвращает размер в байтах наибольшего не-— 
прерывного участка кучи. Обращение: 


МАХАУАТЬ 


Результат имеет тип ГОМСИУТ. За один вызов процедуры МЕУ/’ или 
СЕТМЕМ нельзя зарезервировать памяти больше, чем значение, воз— 
вращаемое этой функцией. 


Функция МЕМАУАТТ. Возвращает размер в байтах общего свободного 
пространства кучи. Обращение: | 


МЕМАУАТЬ 
Результат имеет тип ГОМСМТ. 


Процедура МЕМ. Резервирует фрагмент кучи для размещения пере— 
менной. Обращение: 


МЕМ ( ТР ) 


Здесь ТР — типизированный указатель. 

За одно обращение к процедуре можно зарезервировать не более 65521 
байта динамической памяти. Если нет свободной памяти требуемого 
размера, возникает ошибка периода исполнения. Если память не фраг- 
ментирована, последовательные обращения к процедуре будут резерви -— 
ровать последовательные участки памяти, так что начало следующего будет 
располагаться сразу за концом предыдущего. 

Процедура М№МЕ\/ может вызываться как функция. В этом случае па-— 
раметром обращения к ней является тип переменной, размещаемой в куче, 
а функция М№МЕУ’/ возвращает значение типа указатель. Например: 


фуре 

РТпЕ =^1п%едег; 
уагх 

р: РТтЕ; 
Бед1п 


р := М№ем (РТпё); 


При размещении в динамической памяти объекта разрешается в ка-— 
честве второго параметра обращения к М№ЕУ/ указывать имя конструктора 
(см. гл.10). 
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Функция ОЕ5. Возвращает значение типа И/ОЮО, содержащее смещение 
адреса указанного объекта. Вызов: 


ОЕ (Х) 
Здесь Х — выражение любого типа или имя процедуры. 


Функция РТВ. Возвращает значение типа РОПУТЕК по заданному сег- 
менту 5ЕС и смещению ОР®. Вызов: 


РТВ ( 5ЕС, ОЕЗ ) 


Здесь 5ЕС — выражение типа И’ОКО, содержащее сегмент; 
ОЕ$ — выражение типа И/ОКО, содержащее смещение. 
Значение, возвращаемое функцией, совместимо с указателем любого 
типа. 


Процедура ВЕГЕАЗЕ. Освобождает участок кучи. Обращение: 
| ВЕБЕАЗЕ ( РТВ ) 


Здесь РТК — указатель любого типа, в котором предварительно было 
сохранено процедурой МАКК значение указателя кучи. Освобождается 
участок кучи от адреса, хранящегося в РТК, до конца кучи. Одновременно 
уничтожается список всех свободных фрагментов, которые, возможно, 
были созданы процедурами ОГ5РО$Е или ЕКЕЕМЕМ. 


Функция 5ЕС. Возвращает значение типа И’ОКО, содержащее сегмент 
адреса указанного объекта. Вызов: 


ЗЕС (Х) 
Здесь Х — выражение любого типа или имя процедуры. 


Функция 517ЕОЕ. Возвращает длину в байтах внутреннего представ — 
ления указанного объекта. Вызов: 


ЗТЬЕОЕ (ХХ) 


ЗАесь Х — имя переменной, функции или типа. 
Например, везде в программе из примера 6.1 вместо константы 
51ГЕОЕКЕАГ можно было бы использовать обращение 5ИЕОР(КЕА!). 


6.7. АДМИНИСТРАТОР КУЧИ 


Как уже отмечалось, администратор кучи — это служебная подпро— 
трамма, которая обеспечивает взаимодействие пользовательской про- 
траммы с кучей. Алминистратор кучи обрабатывает запросы процедур 
МЕУ’, СЕТМЕМ, О/5РО$Е, ЕКЕЕМЕМ и др. и изменяет значения указателей 
НЕАРРТК и ЕКЕЕШ$Т. Указатель НЕАРРТК содержит адрес нижней границы 
свободной части кучи, а указатель РЕКЕЕГ$Т — адрес описателя первого 
свободного блока. В модуле 5У5ТЕМ указатель ЕКЕЕМЗТ описан как 
РОМТЕК, однако фактически он указывает на следующую структуру 
данных: | 
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фуре 
РЕгееКес = ^ТЕгееВес; 
ТРгееВес = гесога 


М№ехе : розпбег; 
51=е ; ро1п%ег 
епа; 


Эта списочная структура предназначена для описания всех свободных 
блоков памяти, которые расположены ниже границы НЕАРРТЕ. Проис-— 
хождение блоков связано со случайной последовательностью использо — 
вания процелур МЕУ\/”Ь-—ПОЮБРО5Е или СЕТМЕМ-ЕКЕЕМЕМ («ячеистая» 
структура кучи). Поле МЕХТ в записи ТЕКЕЕБКЕС содержит адрес описателя 
следующего по списку свободного блока кучи или адрес, совпадающий с 
НЕАРЕМО, если этот участок последний в списке. Поле 5/Е содержит 
ненормализованную длину свободного блока или 0, если ниже адреса, 
содержащегося в НЕАРРТЕ, нет свободных блоков. Ненормализованная 
длина определяется так: в старшем слове этого поля содержится коли — 
чество свободных параграфов, а в младшем — количество свободных байт 
в диапазоне 0...15. Следующая функция преобразует значение поля 5$/7Е в 
фактическую длину свободного блока: 


Рипсё1оп В1осКк517е (517е: ро1пеег): Гопа1пЕ; 
{Функция преобразует ненормализованную длину 
свободного блока в байты] 
фуре | 
РегВес = хесога 

То, Н1 : мога 

епа; 
уагх 

ГепаеВВ1оск: Гопа1те; 
Бед1п 

В1оск512е := ГопаТп® (РЕгВес (512е) .Н1)*16 + РЕгВес (517е).1о 
епа; 


Сразу после загрузки программы указатели НЕАРРТЕ и ЕКЕЕМОТ со- 
держат один и тот же адрес, который совпадает с началом кучи (этот адрес 
содержится в указателе НЕАРОКС). При этом в первых 8 байтах кучи 
хранится запись, соответствующая типу ТЕКЕЕКЕС (поле МЕХТ содержит 
адрес, совпадлающий со значением НЕАРЕМО, а поле $1Е — ноль, что 
служит дополнительным признаком отсутствия «ячеек» в динамическои 
памяти). При работе с кучей указатели НЕАРРТК и ЕКЕЕШМОТ будут иметь 
одинаковые значения до тех пор, пока в куче не образуется хотя бы один 
свободный блок ниже границы, содержащейся в указателе НЕАРРТК. Как 
только это произойдет, указатель ЕКЕЕГ/$Т станет ссылаться на начало 
этого блока, а в первых 8 байтах освобожденного участка памяти будет 
размещена запись ТЕКЕЕКЕС. Используя ЕКЕЕШМФТ как начало списка, 
программа пользователя всегда сможет просмотреть весь список сво-— 
бодных блоков и при необходимости модифицировать его. 
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Описанный механизм вскрывает один не очень существенный недос-— 
таток, связанный с работой администратора кучи, а именно: в любой ос-— 
вободивитийся блок администоатор должен поместить описатель этого’ 
блока, а это означает, что длина блока не может быть меньше 8 байтов. 
Администратор кучи всегда выделяет память блоками, размер которых 
кратен размеру записи ТЕАВЕКЕС, т.е. кратен 8 байтам. Лаже если про-— 
грамма запросит 1 байт, алминистоатор выделит ей фактически 8 байт. Те 
же 8 байт будут выделены при запросе 2, 3 ...., 8 байт; при запросе 9 байт 
будет выделен блок в 16 байт и т.д. Это обстоятельство следует учитывать, 
если Вы хотите минимизировать возможные потери динамической памяти. 
Если запрашиваемый размер не кратен 8 байтам, в куче образуется 
«дырка» размером от 1 до 7 байт, причем она не может использоваться ни 
при каком другом запросе динамической памяти вплоть до того момента, 
когда связанная с ней переменная не будет удалена из кучи. 

Если при очередном обращении к функции МЕУ/ или СЕТМЕМ адми-— 
нистратор не может найти в куче нужный свободный блок, он обращается 
к функции, адрес которой содержит переменная НЕАРЕККОК. Эта функция 


соответствует слелующему процелурному типу: 


фуре 
НеарЕгхгогГап = Фипс®1оп (517е : мога): 1п6едег; 


Здесь 517Е — размер той переменной, для которой нет свободной ди— 
намической памяти. Стандартная функция, адрес которой при запуске 
программы содержит переменная НЕАРЕККОК, возвращает 0, что приводит 
к останову программы по ошибке периода счета с кодом 203 (см. прил. 3). 
Вы можете переопределить эту функцию и таким образом блокировать 
останов программы. Для этого необходимо написать собственную функцию 
и поместить ее адрес в указатель НЕАРЕККОК. Например: 


РипсЕ1оп НеарРипс (512е: Мога): 1пбедег; Еаг; 
Ъед1п 
НеарЕопс := 1 
епа; 
Ъед1п {Основная программа} 
НеарЕггохг := @НеарЕопс; 


епа. 


Отметим, что функция типа НЕАРЕККОКРОМ вызывается только в том 
случае, когда обращение с требованием выделения динамической памяти 
было неуспешным. Она может возвращать одно из трех значений: 

0’ — прекратить работу программы; 

1 — присвоить соответствующему указателю значение. МП, и продол— 
жить работу программы; 

2 — повторить выделение памяти; разумеется, в этом случае внутри 
функции типа НЕАРЕККОКЕОМ необходимо освободить память нужного 
размера. | 
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ТИПИЗИРОВАННЫЕ КОНСТАНТЫ 


В Турбо Паскале допускается использование типизированных констант. Они 
задаются в разделе объявления констант следующим образом: 


<идентификатор> : <тип> = <значение> 


Здесь <идентификатор> — идентификатор константы; 

<тип> -— тип константы; 
<значение> — значение константы. 

Типизированным константам можно присваивать другие значения в ходе 
выполнения программы, поэтому фактически они представляют собой пере-— 
менные с начальными значениями. Типизированная константа приобретает 
указанное в ее объявлении значение, т.е. инициируется, лишь один раз: к 
моменту начала работы программы. При повторном входе в блок (процедуру 
или функцию), в котором она объявлена, инициация типизированной кон- 
станты не производится и она сохраняет то значение, которое имела к моменту 
выхода из блока. 

Типизированные константы могут быть любого типа, кроме файлов. Нельзя 
также объявить типизированную константу — запись, если хотя бы одно из ее 
полей является полем файлового типа. 

Поскольку типизированная константа фактически не отличается от пере-— 
менной, ее нельзя использовать в качестве значения при объявлении других 
констант или границ типа — диапазона. 


7.1. КОНСТАНТЫ ПРОСТЫХ. ТИПОВ И ТИПА 5ТЕПУ4 


Объявление таких констант обычно не вызывает трудностей, так как в 
качестве их значения используются нетипизированные константы или их 
идентификаторы. 

Примеры объявлений: 


фуре 
со10гх5 = (\р16е, геа, Ъ]1аск); 
{ ----- Правильные объявления: ----- } 
(о) ы 
СиахгхСо]1 : со10ох$ = геа; 
паме : ЗЕг2па = 'Вирт Н.!; 
уеагх : мога = 1989; 
х ; геа1 = 0.1; 
пп : 1пбедег = 0; 
пах : 1п$едегк = 10; 
ау : 1..3З1 = 1; 
апзмех : сцаг = 'У!; 
{ ----- Неправильные объявления: ----- } 
паз$ : ахгхау [п1п..мах] оЕЁ геа1; {Нельзя использовать 


гипизированные константы в качестве границ диапазона; 
а,р,с : Буе = 0; {Нельзя использовать 
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список идентификаторов} 
уаг 
Мамег : зг1па [22] = 'ргод.раз'; {Нельзя объявлять 
типизированную константу в разделе переменных} 


7.2. КОНСТАНТЫ-МАССИВЫ 


В качестве начального значения типизированной константы — массива ис— 
пользуется список констант, отделенных друг от друга запятыми; список за— 
ключается в круглые скобки, например: 


фуре 
со10г$ = (м51%е, геа, Б1асК); 
сопзе 
Со15г : агхгау [со1огз] оЕ з&хата [5] = 
('ир16е', 'геа', '51ак!); 
уесфог : акгау [1..5] оЕ Буце = (0,0,0,0,0); 


При объявлении массива символов можно использовать то обстоятельство, 
что все символьные массивы и строки в Турбо Паскале хранятся в упакованном 
формате, поэтому в качестве значения массива — константы типа СНАК ло-— 
пускается задание символьной строки соответствующей длины. Два слелдующих 
объявления идентичны: 


сопзе 
4191 : аггау [0..9] оЕЁЕ спаг = 
('0','1','2', '3', '4',15', 16б','7',18', 1 9!); 
Ч41асВг: аггау [0..9] оЕ сраг = '0123456789'; 


При объявлении многомерных констант— массивов множество констант, 
соответствующих каждому измерению, заключается в дополнительные круглые 
скобки и отделяется от соседнего множества запятыми. В результате обра— 
зуются вложенные структуры множеств, причем глубина вложения должна 
соответствовать количеству измерений (размерности) массива. Самые внут— 
ренние множества констант связываются с изменением самого правого индекса 
массива. 

Следующая программа выведет на экран три строки с монотонно увели — 
чивающимися целыми числами: 


уаг 
1, 2), К, 1 : Буве; 
соп$е 
паесг ; агхау [1..3, 1..5] оЕ Буте = 
((0, 1, 2, 3, 4), 
(5, 6, 7, 8, 9), 
_  (10,11,12,13,14)); 
сибе : агхау [0..1, 0..1, 0..2] оЕ 1пфедег = 
(((0 ,1 ,2 ), (3 ,4 ‚> )), 
((6,7 ,8 ), (9 ,10,11))); 
паз4 : аггау [0..1, 0..1, 0..1, 0..1] оЕ мога = 
((((0 ,1 ), (2 ,З )), 
((4 ,5 ), (6,7 ))), 
(((8 ,9 ),(10,11)), 
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((12,13), (14,15)))); 


Бед1п 
Бог 1 := 1 0 3 а 
Бог 7] := 1 0 5 @о Игл {е (паг [1,)]:3); 
иг1бе]п; 
Бог 1 := 0 $0 1 а 
Бог ] := 0 © 1 @ 
Бог К := 0 © 2 @о Иглее (соБе[1,),К]:3); 
у\уг1Се]1п; 
Бог 1 := 0 0 1 ао 
Бог ) := 0 © 1 94 
Бог К := 0 0 1 94 
Еог 1 := 0 о 1 @о Мите (паз4[1,7,К,1]:3); 
Мг еГл 
епа. 


Количество переменных в списке констант должно строго соответствовать 
объявленной длине массива по каждому измерению. 


7.3. КОНСТАНТЫ -ЗАПИСИ 
Определение константы — записи имеет следующий вид: 


<идентификатор> : <тип> (<сп.знач.полей>) 


Здесь <идентификатор> — идентификатор константы; 
<тип> — тип записи; 
<сп.знач.полей> — список значений полей. 


Список значений полей представляет собой список из последовательностей 
вида: имя поля, двоеточие и константа. Элементы списка отделяются друг от 
лруга двоеточиями, например: 


Куре 
ро1п{ = хесога 
х, У : геа1 
епа; 
уес= = асхау [0..1] оЁ ро1пЕ; 
попфП = (Зап, ЕКер, Маг, Арг, Мау, Фап, 
31у, Айа, бер, Осе, М№у, Бес); 
Чафе = гесога 
Я :1..31; 
ш : мопер; 
у 1900..1:999 
епа; 
гопзЕ | 
ог1аоп : розпе = (х О; у -1); 
11п0е уессог = 
((х -3.1; У 1.5), 
(Хх 2.9; у: 3.0)); 
Зощерау ЧаЕе = (а: 16; м ; Маг; у 1989); 
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Поля должны указываться в той последовательности, в какой они пере-— 
числены в объявлении типа. Если в записи используется хотя бы одно поле 
`файлового типа, такую запись нельзя объявить типизированной константой. 
Для записей с вариантными полями указывается только один из возможных 
вариантов констант. Например: 


фуре 
Еогма = хесоха 
сазе Воо1еап оЁ 
гие : (В1хеБР]асе : $з6хапа [40]); 
Еа]15е : (СоипЕку : зЕеара [20]; 
ЕпЕгуРоге : $6капа [20]; 
Епегурафе : аггау [1..3] оЕЁ мога; 


соипЕ : мога) 
епа; 
соп$5Е 
Ре’гсоп1 : Еогма = (Соапеку : 'Норвегия'; 
ЕпекуРОГЕ : 'Мурманск'; 
ЕпЕгурафе : (16, 3, 89); 
сойпе = ‹: 12); 


Регсоп2 : Еогта (В1ЕЕПР]1асе : "'Москва'!); 


7.4. КОНСТАНТЫ-МНОЖЕСТВА 


Значение типизированной константы -— множества задается в виде пра- 
вильного конструктора множества, например: 


фуре 
Чауз = зеЕ оЁ 1..31; 
Я1ас = зеЕе оЁ '0'..'9!'; 
еггог = зеЕ оЕ 1..24; 
сопзе | 
Иогкрауз : ЯЧауз = [1..5, 8..12, 15..19, 22..26, 29, 30]; 


Еуепр191%$: @1ас = ['0', !2', !4', '6', '8']; 
ЕггоЕЕ1аа : еггог= []; 


7.5. КОНСТАНТЫ-УКАЗАТЕЛИ 


Единственным значением типизированной константы - указателя может 
быть только МЦ, например: 
соп$Е 
рг : ^геа1 = МТ; 
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ПРОЦЕДУРЫ И ФУНКЦИИ 


Процедуры и функции, как отмечалось в гл.2, представляют собой от— 
носительно самостоятельные фрагменты программы, оформленные особым 
образом и снабженные именем. Упоминание этого имени в тексте про— 
граммы называется вызовом процедуры (функции). Отличие функции от 
процедуры заключается в том, что результатом исполнения операторов, 
образующих тело функции, всегда является некоторое единственное 
значение или указатель поэтому обращение к функции можно исполь— 
зовать в соответствующих выражениях наряду с переменными и кон- 
стантами. Условимся далее называть процедуру или функцию общим 
именем «подпрограмма», если только для излагаемого материала указанное 
отличие не имеет значения. 

Подпрограммы представляют собой инструмент, с помощью которого 
любая программа может быть разбита на ряд в известной степени неза— 
висимых друг от друга частей. Такое разбиение необходимо по двум 
причинам. — 

Во—первых, это средство экономии памяти: каждая подпрограмма 
существует в программе в единственном экземпляре, в то время как об-— 
ращаться к ней можно многократно из разных точек программы. При 
вызове подпрограммы активизируется последовательность образующих ее 
операторов, а с помощью передаваемых подпрограмме параметров нужным 
образом модифицируется реализуемый в ней алгоритм. 

Вторая причина заключается в применении методики нисходящего 
проектирования программ (см. гл.2). В этом случае алгоритм представ — 
ляется в виде последовательности относительно крупных подпрограмм, 
реализующих более или менее самостоятельные смысловые части алго— 
ритма. Подпрограммы в свою очерель могут разбиваться на менее крупные 
подпрограммы нижнего уровня и т.д. (рис. 8.1). Последовательное струк— 
турирование программы продолжается до тех пор, пока реализуемые 
подпрограммами алгоритмы не станут настолько простыми, чтобы их 
можно было легко запрограммировать. 

В этой главе подробно рассматриваются все аспекты использования 
подпрограмм в Турбо Паскале. 


8.1. ЛОКАЛИЗАЦИЯ ИМЕН 


Напомню, что вызов подпрограммы осуществляется простым упоми— 
нанием имени процедуры в операторе вызова процедуры или имени 
функции в выражении. При использовании расширенного синтаксиса 
Турбо Паскаля (см. ниже) функции можно вызывать точно так же, как и 
процедуры. Как известно, любое имя в программе должно быть обяза— 
тельно описано перед тем как оно появится среди исполняемых опера— 
торов. Не делается исключения и в отношении подпрограмм: каждую свою 
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процедуру и функцию программисту необходимо описать в разделе опи— 
саний. 


Программа 


Подпрограмма Й 


Подпрограмма В 


Подпрограмма В1 


Подпрограмма В2 


Подпрограмма В21 
Подпрограмма В22 


Рис.8.1. Пример структуры программы 


Описать подпрограмму — это значит указать ее заголовок и тело. В 
заголовке объявляются имя подпрограммы и формальные параметры, если 
они есть. Для функции, кроме того, указывается тип возвращаемого ею 
результата. За заголовком следует тело подпрограммы, которое, подобно 
программе, состоит из раздела описаний и раздела исполняемых опера -— 
торов. В разделе описаний подпрограммы могут встретиться описания 
подпрограмм низшего уровня, в тех — описания других подпрограмм и т.д. 

Вот какую иерархию описаний получим, например, для программы, 
структура которой изображена на рис.8.1 (для простоты считается, что все 
подпрограммы представляют собой процедуры без параметров): 


Ргоагат ...} 
Ргосеаиге А; 
Ргосеачгке д.1; 


епа (4А1}; 
Ргоседаге А2; 


163 Глава 8 


Бед1п 

епа {42}; 
Бед1п {А} 
епа {4}; 

Ргосеаоге В; 

Ргосеаиге В]; 

Бед1п 

епа {81}; 
Ргосеацге В2; 

Ргосеацге 821; 


ит.д. 

Подпрограмма любого уровня имеет обычно множество имен констант, 
переменных, типов и вложенных в нее подпрограмм низшего уровня. 
Считается, что все имена, описанные внутри подпрограммы, локализуются 
в ней, т.е. они как бы «невидимы» снаружи подпрограммы. Таким образом, 
со стороны операторов, использующих обращение к подпрограмме, она 
трактуется как «черный ящик», в котором реализуется тот или иной ал— 
горитм. Все детали этой реализации скрыты от глаз пользователя под— 
программы и потому недоступны ему. Например, в рассмотренном выше 
примере из основной программы можно обратиться к процедурам А и В, 
но нельзя вызвать ни одну из вложенных в них процедур А, А2, В1 ит.д. 

Сказанное относится не только к именам подпрограмм, но и вообще к 
любым именам, объявленным в них — типам, константам, переменным и 
меткам. Все имена в пределах подпрограммы, в которой они объявлены, 
должны быть уникальными и не могут совпадать с именем самой под- 
программы. 

При входе в подпрограмму низшего уровня становятся доступными не 
только объявленные в ней имена, но и сохраняется доступ ко всем именам 
верхнего уровня. Образно говоря, любая подпрограмма как бы окружена 
полупрозрачными стенками: снаружи подпрограммы мы не видим ее 
внутренности, но, попав в подпрограмму, можем наблюдать все, что де-— 
лается снаружи. Так, например, из подпрограммы В21 мы можем вызвать 
подпрограмму А, использовать имена, объявленные в основной программе, 
в подпрограммах В и В2, и даже обратиться к ним. Любая подпрограмма 
может, наконец, вызвать саму себя — такой способ вызова называется 
рекурсией. 

Пусть имеем такое описание: 

Ргодгат ..; 

уаг \1 : ...; 
Ргоседиге А; 
уаг \2 : ...; 
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епа {4}; 

Ргосеаиге В; 

уак \3 : ...; 
Ргосеаиге В1; 


у\аг \4 : ...; 
Ргосеаиге В11; 
\аг \5; 


Из процедуры В11 доступны все пять переменных У1,..,У5, из проце 
дуры В1 доступны переменные У!1,..,У4, из центральной программы — 
только У]. 

При взаимодействии подпрограмм одного уровня иерархии вступает в 
силу основное правило Турбо Паскаля: любая подпрограмма перед ее 
использованием должна быть описана. Поэтому из подпрограммы В можно 
вызвать подпрограмму А, но из А вызвать В невозможно (точнее, такая 
возможность появляется только с использованием опережающего описа— 
ния, см. п.8.6.) Продолжая образное сравнение, подпрограмму можно упо— 
добить ящику с непрозрачными стенками и дном и полупрозрачной 
крышей: из подпрограммы можно смотреть только «вверх» и нельзя 
«ВНИЗ», Т.е. подпрограмме доступны только те объекты верхнего уровня, 
которые описаны до описания данной подпрограммы. Эти объекты на— 
зываются глобальными по отношению к подпрограмме. 

В отличие от стандартного Паскаля в Турбо Паскале допускается про — 
извольная последовательность описания констант, переменных, типов, 
меток и подпрограмм. Например, раздел УАК описания переменных может 
появляться в пределах раздела описаний одной и той же подпрограммы 
много раз и перемежаться с объявлениями других объектов и подпро— 
грамм. Для Турбо Паскаля совершенно безразличен порядок следования и 
количество разделов УАК, СОМФТ, ТУРЕ, ГАВЕГ, но при определении 
области действия этих описаний следует помнить что имена, описанные 
ниже по тексту программы, недоступны из ранее описанных подпрограмм, 
например: 


уаг \1 : ...; 
Ргоседиге 5; 
уаг \2 : ...; 
епа {5}; 

у\аг \3 : ..., 


Из процедуры 5 можно обратиться к переменным У! и У2, но нельзя 
использовать УЗ, так как описание УЗ следует в программе за описанием 
процедуры 5. 

Имена, локализованные в подпрограмме, могут совпадать с ранее объ — 
явленными глобальными именами. В этом случае считается, что локальное 


имя «закрывает» глобальное и делает его недоступным, например. 
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уагх 
1 :; 1пбедег; 
Ргосеацгке Р; 
уагх 
1 ; лпбедег; 
Ьед1п 
мг1е]1п (1) 
епа {Р;}; 
Ъед1п 
1 := 1;. 
Р 
епа. 


Что напечатает эта программа? Все, что угодно: значение внутренней 
переменной [ при входе в процедуру Р не определено, хотя одноименная 
глобальная переменная имеет значение 1. Локальная переменная «закроет» 
глобальную и на экран будет выведено произвольное значение, содер — 
жащееся в неинициированной внутренней переменной. Если убрать 
описание 

уаг 
1 : 1пеедег; 


из процедуры Р, то на экран будет выведено значение глобальной пере - 
менной [ т.е. 1. 

Таким образом, одноименные глобальные и локальные переменные — 
это разные переменные. Любое обращение к таким переменным в теле 
подпрограммы трактуется как обращение к локальным переменным, т.е. 
глобальные переменные в этом случае попросту недоступны. 


8.2. ОПИСАНИЕ ПОДПРОГРАММЫ 


Описание подпрограммы состоит из заголовка и тела подпрограммы. 


8.2.1. Заголовок 
Заголовок процедуры имеет вид: 


РВОСЕРОВЕ <имя> [(<сп.ф.п.>)]; 


Заголовок функции: 
ЕРОМСТТОМ <имя> [(<сп.ф.п.>)] : <типъ; 


Здесь <имя> — имя подпрограммы (правильный идентификатор); 
<сп.ф.п.> — список формальных параметров; 
<тип> — тип возвращаемого функцией результата. 

Сразу за заголовком подпрограммы может следовать одна из стан— 
дартных директив АЗЗЕМВТЕВ, ЕХТЕКМАГ!, РАВ, ЕОКУ/АКО, ШМИМЕ, 
ИМТЕВККОРТ, МЕАК. Эти директивы уточняют действия компилятора и 
распространяются на всю подпрограмму и только на изе, т.е. если за 
подпрограммой следует другая подпрограмма, стандартная директива, 
указанная за заголовком первой, не распространяется на вторую. 
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А5ЗЕМВЕЕК — эта директива отменяет стандартную последователь— 
ность машинных инструкций, вырабатываемых при входе в процедуру и 
перед выходом из нее. Тело подпрограммы в этом случае должно реали — 
зоваться с помощью команд встроенного ассемблера (см. п.11.8). 


ЕХТЕКМАТ — с помощью этой директивы объявляется внешняя под— 
программа (см. п.11.1). 


ЕАЕ — компилятор должен создавать код подпрограммы, рассчитанный 
на дальнюю модель вызова. Директива МЕАК заставит компилятор создать 
код, рассчитанный на ближнюю модель памяти. По умолчанию все под— 
программы, объявленные в интерфейсной части модулей, генерируются с 
расчетом на дальнюю модель вызова, а все остальные подпрограммы — на 
ближнюю модель. 

В соответствии с архитектурой микропроцессора ПК, в программах 
могут использоваться две модели памяти: ближняя и дальняя. Модель 
памяти определяет возможность вызова процедуры из различных частей 
программы: если используется ближняя модель вызов возможен только в 
пределах 64 Кбайт (в пределах одного сегмента кода, который выделяется 
основной программе и каждому используемому в ней модулю); при дальней 
модели вызов возможен из любого сегмента. Ближняя модель экономит 
один байт и несколько микросекунд на каждом вызове подпрограммы, 
поэтому стандартный режим компиляции предполагает эту модель памяти. 
Однако при передаче процедурных параметров (см.п.8.4), а также в 
оверлейных модулях (см. п.11.6} соответствующие подпрограммы должны 
компилироваться с расчетом на универсальную — дальнюю — модель 
памяти, одинаково пригодную при любом расположении процедуры и 
вызывающей ее программы в памяти. 

Явное объявление модели памяти стандартными директивами имеет 
более высокий приоритет по сравнению с опциями настройки среды Турбо 
Паскаля. 


ЕОКУ/ГАЮО — используется при опережающем описании (см. п.8.б) для 
сообщения компилятору, что описание подпрограммы следует где-то 
дальше по тексту программы (но в пределах текущего программного мо-— 


дуля). 
ПМИМЕ -— указывает на то, что тело подпрограммы реализуется с 
помощью встроенных машинных инструкций (см. п.11.2). 


ПУТЕВЮОРТ — используется при создании процедур обработки пре-— 
рываний (см. п.11.4). 


8.2.2. Параметры 


Список формальных параметров необязателен и может отсутствовать. 
Если же он есть, то в нем должны быть перечислены имена формальных 
параметров и их типы, например: 


Рхгосеаиге 5В(а: геа1; Ь: 1пееадегк; с: спаг ; 
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Как видно из примера, параметры в списке отделяются друг от друга 
точками с запятой. Несколько следующих подряд однотипных параметров 
можно объединять в подсписки, например, вместо 


РГапсе1оп Г(а: геа1; Ь: геа1): геа1; 
можно написать проще: 
Капсё1оп ЕГ(а,Ъ: геа1): геа1; 


Операторы тела подпрограммы рассматривают список формальных 
параметров как своеобразное расширение раздела описаний: все пере— 
менные из этого списка могут использоваться в любых выражениях внутри 
подпрограммы. Таким способом осуществляется настройка алгоритма 
подпрограммы на конкретную задачу. 

Рассмотрим слелдующий пример. В языке Турбо Паскаль нет операции 
возведения в степень однако с помощью встроенных функций МХ) и 
ЕХР(Х} нетрудно реализовать новую функцию с именем, например, 
РОУГЕК, осуществляющую возведение любого вещественного числа в 
любую вещественную степень. В программе (пример 8.1) вводится пара 
чисел Хи Уи выводится на экран дисплея результат возведения Х сначала 
в степень -+У, а затем —-в степень —У. Аля выхода из программы нужно 
ввести СН1-7 и ЕпЕг. | 


Пример 8.1 


Рапсе1оп Ромег(а,Ь : геа]1): геа]1; 
Бедап {Роиег} 
ЗЕ а > 0 +Ъеп 


Ромег := ехр(Ь * 1п(а}) 
е1зе 31ЁЕ а < 0 ЕВеп 

Ромег := ехр(Ь * 1п(аБ5(а))) 
е1зе 1Е р = 0 еп 

Ромег := 1 
е1 зе 

Ромег := 0 


еп {Роиег}; 


Бедап (та1п} 
гереае 
геаа]1 пт (х,у); 
мг1се]п (Ромег (х,у) :12:10, Ромег(х,-у) :15:10) 
ипе11 ЕОЕ 
епЯ {та1п;. 


Для вызова функции РОУЕК мы просто указали ее в качестве пара— 
метра при обращении к встроенной процедуре И/КМТЕГ МУ. Параметры Хи У 
в момент обращения к функции — это фактические параметры. Они 
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подставляются вместо формальных параметров А и В в заголовке функции 
и затем над ними осуществляются нужные действия. Полученный ре- 
зультат присваивается идентификатору функции — именно он и будет 
возвращен как значение функции при выходе из нее. В программе 
функция РОУ/ЕК вызывается дважды — сначала с параметрами Х и У а 
затем Х и —У, поэтому будут получены два разных результата. 

Механизм замены формальных параметров на фактические позволяет 
нужным образом настроить алгоритм, реализованный в подпрограмме. 
Турбо Паскаль следит за тем, чтобы количество и тип формальных па-— 
раметров строго соответствовали количеству и типам фактических па— 
раметров в момент обращения к подпрограмме. Смысл используемых 
фактических параметров зависит от того, в каком порядке они перечис — 
лены при вызове подпрограммы. В примере 8.1 первый по порядку фак- 
тический параметр будет возводиться в степень, задаваемую вторым па— 
раметром, а не наоборот. Пользователь должен сам следить за правильным 
порядком перечисления фактических параметров при обращении к под-— 
программе. 

Любой из формальных параметров подпрограммы может быть либо 
параметром — значением, либо параметром — переменной, либо, наконец, 
параметром — константой. 

В предыдущем примере параметры А и В определены как параметры — 
значения. Если параметры определяются как параметры — переменные, 
перед ними необходимо ставить зарезервированное слово УАЁ, а если это 
параметры — константы, — слово СОМЬТ, например: 


Ргоседаге МуРгоседоге (уаг а: геа1; Ъ: геа1; сопзе с: 5Ех1п9); 


Здесь А — параметр —переменная, В —параметр — значение, а С -— 
параметр — константа. 

Определение формального параметра тем или иным способом суще- 
ственно, в основном, только для вызывающей программы: если фор- 
мальный параметр объявлен как параметр — переменная, то при вызове 
подпрограммы ему должен соответствовать фактический параметр в виде 
переменной нужного типа; если формальный параметр объявлен как па— 
раметр —значение или параметр — константа, то при вызове ему может 
соответствовать произвольное выражение. Контроль за неукоснительным 
соблюдением этого правила осуществляется компилятором Турбо Паскаля. 
Если бы для предыдущего примера был использован такой заголовок 


функции: 
РГапсё1оп Ромег (уаг а, БЬ : геа1) : теа1; 


то при втором обращении к функции компилятор указал бы на несоот— 
ветствие типа фактических и формальных параметров (параметр —У есть 
выражение, в то время как соответствующий ему формальный параметр 
описан как параметр — переменная). 

Для того чтобы понять, в каких случаях использовать тот или иной тип 
параметров, рассмотрим, как осуществляется замена формальных пара — 
метров на фактические в момент обращения к подпрограмме. 
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Если параметр определен как параметр -— значение, то перед вызовом 
подпрограммы это значение вычисляется, полученный результат копи — 
руется во временную память и передается подпрограмме. Важно учесть, 
что даже если в качестве фактического параметра указано простейшее 
выражение в виде переменной или константы, все равно подпрограмме 
будет передана лишь копия переменной (константы). Любые возможные 
изменения в подпрограмме параметра—значения никак не восприни— 
маются вызывающей программой, так как в этом случае изменяется копия 
фактического параметра. 

Если параметр определен как параметр -— переменная, то при вызове 
подпрограммы передается сама переменная, а не ее копия (фактически в 
этом случае подпрограмме передается адрес переменной). Изменение 
параметра — переменной приводит к изменению самого фактического 
параметра в вызывающей программе. 

В случае параметра — константы в подпрограмму также передается адрес 
области памяти, в которой располагается переменная или вычисленное 
значение. Однако компилятор блокирует любые присваивания параметру -— 
константе нового значения в теле полпрограммы. 

Представленный ниже пример 8.2 поясняет изложенное. В программе 
задаются два целых числа 5 и 7, эти числа передаются процедуре ПУСО, в 
которой они удваиваются. Олин из параметров передается как параметр — 
переменная, другой — как параметр — значение. Значения параметров до и 
после вызова процедуры, а также результат их удвоения выводятся на 
экран. 


Приме 8.2 


сое 
а : 1пеедег = 5; 
Ь : зпбедег = 7; 
{--------- } 


Ргосеаиге Тпс2 (уахг с: 1пЕедег; Ь: 1п6едег); 
Бедап {1пс2} 


0 


Иу1сеГл ('удвоенные :!, с:5, Ъ:5) 
епа {11пс2}; 


Ъед1п {та1п} 
Мх1тее!л ('исходные :', а:5, Ь:5); 
Тпс2 (а,Ъ); 
Иг1 сел ('результат :', а:5, Ъ:5) 
еп {та1п)}. 


В результате прогона программы будет выведено: 


исходные : 5 7 
удвоенные : 10 14 
результат :; 10 7 
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Как вилно из примера, удвоение второго формального параметра в 
процедуре ПУС2 не вызвало изменения фактической переменной В, так как 
этот параметр описан в заголовке процедуры как параметр -— значение. 
Этот пример может служить еще и иллюстрацией механизма «закрывания» 
глобальной переменной одноименной локальной: хотя переменная В объ— 
явлена как глобальная (она описана в вызывающей программе перед 
описанием процедуры), в теле процедуры ее «закрыла» локальная пере — 
менная В, объявленная как параметр — значение. 

Итак, параметры — переменные используются как средство связи ал— 
горитма, реализованного в подпрограмме, с внешним миром: с помощью 
этих параметров подпрограмма может передавать результаты своей работы 
вызывающей программе. Разумеется, в распоряжении программиста всегла 
есть и другой способ передачи результатов — через глобальные пере -— 
менные. Однако злоупотребление глобальными связями делает программу , 
как правило, запутанной, трудной в понимании и сложной в отладке. В 
соответствии с требованиями хорошего стиля программирования реко-— 
мендуется там, где это возможно, использовать передачу результатов через 
фактические параметры — переменные. 

С другой стороны, описание всех формальных параметров как пара-— 
метров — переменных нежелательно по двум причинам. Во-первых, это 
исключает возможность вызова подпрограммы с фактическими пара— 
метрами в виде выражений, что делает программу менее компактной. Во— 
вторых, и главных, в подпрограмме возможно случайное использование 
формального параметра, например, для временного хранения промежу-— 
точного результата, т.е. всегла существует опасность непреднамеренно 
испортить фактическую переменную. Вот почему параметрами — перемен — 
ными следует объявлять только те, через которые подпрограмма в дейст— 
вительности передает результаты вызывающей программе. Чем меньше 
параметров объявлено параметрами — переменными и чем меньше в под-— 
программе используется глобальных переменных, тем меныше опасность 
получения непредусмотренных программистом побочных эффектов, свя— 
занных с вызовом подпрограммы, тем проще программа в понимании и 
отладке. По той же причине не рекомендуется использовать параметры — 
переменные в заголовке функции: если результатом работы функции не 
может быть единственное значение, то логичнее использовать процедуру 
или нужным образом декомпозировать алгоритм на несколько подпро— 
грамм. | 

Существует еще одно обстоятельство, которое следует учитывать при 
выборе вила формальных параметров. Как уже говорилось при объяв — 
лении параметра—значения осуществляется копирование фактического 
параметра во временную память. Если этим параметром будет массив 
большой размерности, то существенные затраты времени и памяти на 
копирование при многократных обращениях к подпрограмме можно 
минимизировать объявив этот параметр параметром — константой. Па— 
раметр -— константа не копируется во временную область памяти, что со — 
кращает затраты времени на вызов подпрограммы, однако любые его 
изменения в теле подпрограммы невозможны — за этим строго следит 
компилятор. 
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8.3. ПАРАМЕТРЫ-МАССИВЫ И ПАРАМЕТРЫ-СТРОКИ 


Может сложиться впечатление, что объявление переменных в списке 
формальных параметров подпрограммы ничем не отличается от объяв — 
ления их в разделе описания переменных. Действительно, в обоих случаях 
много общего, но есть одно существенное различие: типом любого па— 
раметра в списке формальных параметров может быть только стандартный 
или ранее объявленный тип. Поэтому нельзя, например, объявить сле— 


дующую процедуру: 
Ргосе4иге 5 (а: аггау [1..10] оЕЁ геа1); 


так как в списке формальных параметров фактически объявляется тип — 
диапазон, указывающий границы индексов массива. 

Если мы хотим передать какой—то элемент массива, то проблем, как 
правило, не возникает, но если в подпрограмму передается весь массив, то 
следует первоначально описать его тип. Например: 


фуре 
асуре = агхау [1..10] оЕЁ геа1; 
Ргосе4иге 5 (а: абуре}; 


Поскольку строка является фактически своеобразным массивом, ее 
передача в подпрограмму осуществляется аналогичным образом: 


фуре . | 
1п$уре = $6Еапа [15]; 
оцЕуре з&г1па [30]; 
РипсЕ1оп 5 ($ : 1п6уре) : очфуре; 


Требование описать любой тип— массив или тип-— строку перед объ— 
явлением подпрограммы на первый взгляд кажется несущественным. 
Действительно, в рамках простейших вычислительных задач обычно за— 
ранее известна структура всех используемых в программе данных, поэтому 
статическое описание массивов не вызывает проблем. Однако разработка 
программных средств универсального назначения связана со значитель -— 
ными трудностями. 

По существу, речь идет о том, что в Турбо Паскале невозможно ис- 
пользовать в подпрограммах массивы с «плавающими» границами изме -— 
нения индексов. Например, если разработана программа, обрабатывающая 
матрицу 10 х 10 элементов, то для обработки матрицы 9 х 11 элементов 
необходимо переопределить тип, т.е. перекомпилировать всю программу 
(речь идет не о динамическом размещении массивов в куче, а о статиче — 
ском описании массивов и передаче их как параметров в подпрограммы). 
Этот недостаток, как и отсутствие в языке средств обработки исключи— 
тельных ситуаций (прерываний), унаследован из стандартного Паскаля и 
представляет собой объект постоянной и вполне заслуженной его критики. 
Разработчики Турбо Паскаля не рискнули кардинально изменить свойства 
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базового языка, но, тем не менее, включили в него некоторые средства, 
позволяющие в известной степени смягчить отмеченные недостатки! . 

Прежде всего, в среде Турбо Паскаля можно установить режим ком-— 
пиляции, при котором отключается контроль за совпадением длины фак-— 
тического и формального параметра — строки (см. прил.1). Это позволяет 
легко регить вопрос о передаче подпрограмме строки произвольной дли — 
ны. При передаче строки меньшего размера формальный параметр будет 
иметь ту же длину, что и параметр обращения; передача строки большего 
размера приведет к ее усечению до максимального размера формального 
параметра. Следует сказать, что контроль включается только при передаче 
строки, объявленной как формальный параметр — переменная. Если со— 
ответствующий параметр объявлен параметром —значением, эта опция 
игнорируется и длина не контролируется. 

Значительно сложнее обстоит дело с передачей массивов произвольной 
длины. Наиболее универсальным приемом в этом случае будет, судя по 
всему, работа с указателями и использование индексной арифметики. 
Несколько проще можно решить эту проблему при помощи нетипизиро — 
ванных параметров (см. п.8.5). В версии Турбо Паскаля 7.0 язык поддер— 
живает так называемые открытые массивы, легко решающие проблему 
передачи подпрограмме одномерных массивов переменной длины. 

Открытый массив представляет собой формальный параметр подпро-— 
граммы, описывающий базовый тип элементов массива, но не опреде — 
ляющий его размерности и границы: 


Ргосе4иге МуРгос (ОрепАггау: аккау оЁЕ Тпеедег); 


Внутри подпрограммы такой параметр трактуется как одномерный 
массив с нулевой нижней границей. Верхняя граница открытого массива 
возвращается функцией ШСН, упоминавшейся в п.4.1.1. Используя 0 как 
минимальный индекс и значение, возвращаемое функцией СН, как 
максимальный индекс, подпрограмма может обрабатывать одномерные 
массивы произвольной длины: 


{Иллюстрация использования открытых массивов: 
программа выводит на экран содержимое двух одномерных 
массивов разной длины с помощью одной процедуры АггауРг1пЕ} 
Ргосед4аге АггауРг1п® (аАггау: агхау оЁЕ Тпфедег); 
уагх 

К: Тпфедег; 
Бедап 

Бог К := 0 о Н1ар(аАггау) ао 

Мг1Ее (аАгхау[ К] :8); 

Музее п 
епа; 
оп5Е 
А: агхгау [-1..2] оЕЁ Тпфедег = (0,1,2,3); 
В: агхгау [5..7] оЕ Тпфедег = (4,5,6); 


1 Эти недостатки практически полностью устранены в языке ОБесЕ Разса!, используемом в 
в изуальной среде программирования Дер. 


« 
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Ъедап 
АггауРглпе (А); 
АггауРтг1 пе (В) 

епа. 


Как видно из этого примера, фактические границы массивов А и В, 
передаваемых в качестве параметров вызова процедуре АгауРитЕ не 
имеют значения. Однако размерность открытых массивов (количество 
индексов) всегла равна 1 — за этим следит компилятор. Если бы, напри-— 
мер, мы добавили в программу двумерный массив С 


уах 
С: акхау [1..3,1..5] оЁЕ Тпеедек; 


то обращение 
АггауРг1 п (С) 
вызвало бы сообщение об ошибке 


Еггог26: Туре пузтаесП. 
(Ошибка 26: Несоответствие типов.) 


8.4. ПРОЦЕДУРНЫЕ ТИПЫ. 
ПАРАМЕТРЫ-ФУНКЦИИ И ПАРАМЕТРЫ-ПРОЦЕДУРЫ 


Процедурные типы — это нововведение фирмы ВоПапа (в стандартном 
Паскале таких типов нет). Основное назначение этих типов — дать про-— 
граммисту гибкие средства передачи функций и процедур в качестве 
фактических параметров обращения к другим процедурам и функциям. 

Для объявления процедурного типа используется заголовок процедуры 
(функции), в котором опускается ее имя, например: 


фуре 
Ргос1 = Ргосеаиге (а, Ь, с: геа1; чаг 4: геа1); 
Ргос2 = Рхгосейиаге (уаг а, РБ); 
Ргос3 = Ргосеаоге; 
ЕРопс1 = Рапсе1оп: ЗЕгапа; 
Еопс2 = Еапсе1ор (уахг 3: $%х174): геа1; 


Как видно из приведенных примеров, существует два процедурных ти— 
па: тип — процедура и тип — функция. 

Пример 8.3 иллюстрирует механизм передачи процедур в качестве 
фактических параметров вызова. Программа выводит на экран таблицу 
двух функций: $т1(х) = (91щ(х) + 1) * ехр(-х) и со$1(х) = (соз(х) + 1) * 
ехр(—х). Вычисление и печать значений этих функций реализуются в 
процедуре РЕПУТЕОМС, которой в качестве параметров передаются номер 
позиции № на экране, куда будет выводиться очередной результат (с 
помощью этого параметра реализуется вывод в две колонки) и имя 


нужной функции. 
имер 38.3. 
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Озе$ СВТ; 


фуре 
Рапс = РарпсЕтоп (х: геа1): геа]1; 


Ргоседиге Ру1пеЕопс (ХРоз: БуЕе; Е:Еиапс); 
-{Осуществляет печать функции Е (ХРо5$ - горизонтальная 
позиция начала вывода) } 
сопзе 
пр = 20; {Количество вычислений функций} 
уаг 
х : геа1; 
1 : зобедег; 
Бедап {РгтпЕРипс} 
Бог 1 := 1 Во пр ао 
Бед1п 
х :=1* (2 * р] / пр}; 
СовохУ (ХРо5, Шеге\у); 
Иг1 сего (х:5:3, Е(х) :18:5) 


епа 
епа; {РетпЕГРипс} 
{----------- } 
Гапсётоп $511п1(х: геа1): геа1; ах; 
Ъед1п 
$111 := (5110(х) + 1) * ехр(-х) 
ера; . 
{----------- } 
ГКапсЕзоп Соз1(х: геа1): геа1; #аг; 
Бед1п 
со$1 := (соз(х) + 1) * ехр(-х) 
ела; | 
{----------- } 
Бед1п {основная программа} 
С1у5ск; {Очищаем экран} 
РулпЕРопс (1, $111); 
СобохУу (1,1); {Переводим курсор 


в левый верхний угол} 
Ру1пЕРипс (40, со$1) 
ела. 


Обратите внимание: для установления правильных связей функций 51 
и СО51 с процедурой РЕПУТЕОМС они должны компилироваться с расчетом 
на дальнюю модель памяти. Вот почему в программу вставлены стан— 
дартные директивы РАК сразу за заголовками функций. В таком режиме 
должны компилироваться любые процедуры (функции), которые будут 
передаваться в качестве фактических параметоов вызова. 

Стандартные процедуры (функции) Турбо Паскаля не могут переда — 
ваться рассмотренным способом. 
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В программе могут быть объявлены переменные процедурных типов, 
например, так: 


уах 
Р1 : Рхгос1; 
Е1, Е2 : Еопс2; 
ар : агхау [1..№ оЕ Ргос1; 


Переменным процедурных типов допускается присваивать в качестве 
значений имена соответствующих подпрограмм. После такого присваи— 
вания имя переменной становится синонимом имени подпрограммы, на— 
пример: 


фуре 

Ргос = Ркосеаиге (п: мог; хаг а: руее); 
уаг 

РгосУаг: Ргос; 

х, у : Буве; | 
Ргосеаиге Ргос1(х: мога; уаг у: Буее); Баг; 
Ъедап 


1Е х > 255 ЕЪел 
у := х моа 255 


е1 зе 
у := Буее (х) 
епа; 
Бедлп {Главная программа} 
РгосУаг := Ргос1; 
Бог х := 150 фо 180 ао 
Беда 


РкосУаг (х + 100, у); 
Музее (у:8) 
епа 
епа. 


Разумеется, такого рода присваивания допустимы и для параметров — 
функций, например: 


фуре 
ЕКопсТуре = РапсЕе1ой (1 :; 1п6едег) : 1пеедег; 
уаг | 
УагЕоапс : ЕоапсТуре; 
1 : 1пбедег; 
РГапсЕ1оп МуРипс (сойпе : 1пЕедег) : 1пеедег; Бах; 
Бед1п 
епЯ; {МуГипс} 
Бед1п {Основная программа} 


1 := МуРаопс (1); {Обычное использование результата функции\ 


с 3 К 
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УагРипс := МуГопс; {Присваивание переменной процедурного 
типа имени функции МуГипс} 


епа. 
Отметим, что присваивание 
УахЕРапс := МуРапс (1); 


будет недопустимым, так как слева и справа от знака присваивания ис— 
пользуются несовместимые типы: слева — процедурный тип, а справа — 
ПУТЕСЕК; имя функции со списком фактических параметров МуЁРипс(1) 
трактуется Турбо Паскалем как обращение к значению функции, в то 
время как имя функции без списка параметров рассматривается как имя 
функции. 

В отличие от стандартного Паскаля, в Турбо Паскале разрешается ис — 
пользовать в передаваемой процедуре (функции) любые типы параметров: 
параметры — значения, параметры — переменные, параметры -— константы (в 
стандартном Паскале только параметры — значения). 


8.5. НЕГТИПИЗИРОВАННЫЕ ПАРАМЕТРЫ-ПЕРЕМЕННЫЕ 


Еще одно очень полезное нововведение фирмы ВоПап — возможность 
использования нетипизированных параметров. Параметр считается не 
типизированным, если тип формального параметра — переменной в заго— 
ловке подпрограммы не указан, при этом соответствующий ему факти — 
ческий параметр может быть переменной любого типа. Заметим, что не- 
типизированными могут быть только параметры — переменные. 

Нетипизированные параметры обычно используются в случае, когда тип 
данных несущественен. Такие ситуации чаще всего возникают при разного 
рода копированиях одной области памяти в другую, например, с помощью 
процедур ВГОСККЕАО, ВВОСКИЮКТЕ, МОТЕ и т.п. 

Нетипизированные параметры в сочетании с механизмом совмещения 
данных в памяти (см. п.4.4) можно использовать для передачи подпро— 
грамме одномерных массивов переменной длины (этот способ можно 
использовать в Турбо Паскале версии 6.0 и более ранней, в которых нет 
открытых массивов). 

В примере 8.4 функция МОКМА вычисляет норму вектора, длина ко— 
торого меняется случайным образом. Стандартная константа МАХИУТ 
содержит максимальное значение целого типа ПУТЕСЕК и равна 32767. 

Следует учесть, что при обращении к функции МОКМА массив Х по- 
мещается в стек и передается по ссылке, поэтому описание локальной 
переменной А в виде одномерного массива максимально возможной длины 
в 65532 байта (встроенная константа МАХИУТ определяет максимально 
возможное значение типа ПУТЕСЕЁК и равна 32767), совпадающего с Х, на 
самом деле не приведет к выделению дополнительного объема памяти под 
размещение этой переменной. Иными словами, переменная А — фик- 
тивная переменная, размер которой никак не влияет на объем исполь— 
зуемой памяти. С таким же успехом можно было бы объявить ее в виде 
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массива из одного элемента, правда, в этом случае необходимо позабо — 
титься об отключении контроля выхода индекса за границы диапазона. 


Пример 8.4 
соп5® 
ММ = 100; {Максимальная длина вектора} 


а : аггау [1..М№] оЕЁ геа1; 
1, ), М : 1педек; 


РапсЕ1оп Могпа (уаг х; М: 1пбедег): геа]1; 

уаг 
а : акхау [1..2*МахТпЕ @1у\у 512еОЕ (геа1)] оЕ геа1 аБзо1аее х; 
1 : 1пбедег; 
5 : геа]1; 

Бедлп (Могта} 


М№огма := зат: 
епа {Могпа}; 


Бед1п {та1п} 
Бог 1 := 1 0 10 а 
Беалп 
М := Вапаоп (ММ) + 1; {Текущая длина вектора} 
Бог | := 1 ®0 М 4 
а[)] := Вапаоп; 
Ихз$егп ('М = ', №:2, ' норма =', Могта(а, №) :10:7) 
епа 
еп {та1п}. 


Как вилно из рассмотренного примера, передача одномерных массивов 
переменной длины не вызывает никаких трудностей. Сложнее обстоит 
дело с многомерными массивами, однако и в этом случае использование 
описанного приема (нетипизированный параметр и совмещение его в 
памяти с фиктивной переменной) все—таки проще, чем описанная в гл. 6 
индексная арифметика. Еще раз напомню, что в случае многомерных 
массивов их элементы располагаются в памяти так, что при переходе от 
младших адресов к старшим наиболее быстро меняется самый правый 
индекс массива. 


8.6. РЕКУРСИЯ И ОПЕРЕЖАЮЩЕЕ ОПИСАНИЕ 


Рекурсия — это такой способ организации вычислительного процесса, 
при котором подпрограмма в ходе выполнения составляющих ее опера— 
торов обращается сама к себе. 

Рассмотрим классический пример — вычисление факториала (пример 
18). Программа вводит с клавиатуры целое число № и выводит на экран 
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значение М, которое вычисляется с помощью рекурсивной функции РАС. 
Для выхода из программы необходимо либо ввести достаточно большое 
целое число, чтобы вызвать переполнение при умножении чисел с пла- 
вающей запятой, либо нажать СН!-7 и Ешег. 

При выполнении правильно организованной рекурсивной подпро— 
граммы осуществляется многократный переход от некоторого текущего 
уровня организации алгоритма к нижнему уровню последовательно до тех 
пор, пока, наконец, не будет получено тривиальное решение поставленной 
задачи. В примере 8.5 решение при М = 0 тривиально и используется для 
остановки рекурсии. 


Пример 38.5 
Ргодгаю ГасКог1а1; 
{55+} {Включаем контроль переполнения стека} 
уаг 
п: 1п6едег; 
ГипсЕ1оп Гас (п: 1п6бедег): геа1; 
{Рекурсивная функция, вычисляющая п!} 
Ред1п {Гас} 
1Е п < 0 4Ъеп 
Мг1$сеГп ('Ошибка в задании №') 
е1зе 


= п * Рас (1-1) 


® 
- 
и 
® 
№ 
р 
О 


Бед1п {та1п} 
гереае 
ВеааГп (п); 
МутвеГл ('п! = ',Рас(п)) 
ипе11 ЕОЕ 
еп {та1п}. 


Рекурсивная форма организации алгоритма обычно выглядит изящнее 
итерационной и лает более компактный текст программы, но при вы- 
полнении, как правило, медленнее и может вызвать переполнение стека 
(при каждом входе в подпрограмму ее локальные переменные разме-— 
щаются в особым образом организованной области памяти, называемой 
программным стеком). Переполнение стека особенно ощутимо сказывается 
при работе с сопроцессором: если программа использует арифметический 
сопроцессор, результат любой вещественной функции возвращается через 
аппаратный стек сопроцессора, рассчитанный всего на 8 уровней. Если, 
например, попытаться заменить тип КЕАЕ функции РАС (см. пример 8.5) на 
ЕХТЕМШЕО, программа перестанет работать уже при М№ = 8. Чтобы из-— 
бежать переполнения стека сопроцессора, следует размещать промежу— 
точные результаты во вспомогательной переменной. Вот правильный ва— 
риант примера 8.5 для работы с типом ЕХТЕМОЕР: 
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Ргодгам ГасКог1а1; 
{$5+,М+,Е+} {Включаем контроль стека и работу сопроцессора}о 
уаг 
п: 1п6едег; 
Еапсё1оп Гас (п: 1пбедег): ехеепаеа; 
уаг 
Е: ехфепаеа; {Буферная переменная 
для разгрузки стека сопроцессора] 
{Рекурсивная функция, вычисляющая п!} 
Ъед1п {Гас} 
1Е п < 0 еп 
Муг16еГп ('Ошибка в задании №') 
е1зе 
1Е п = 0 еп 
Рас := 1 
е1 зе 
Беда 
Е := Рас (1-1); 
Кас := Е * тп 


Бедап {та1п} 
гереае 
ВеааГп (п); 
ИхтееГл ('п! = ',Рас(п)) 
11611 ЕОЕ 
епаА {та1п}. 


Рекурсивный вызов может быть косвенным. В этом случае подпро-— 
грамма обращается к себе опосредованно, путем вызова другой подпро— 
граммы, в которой содержится обращение к первой, например: 


Ргосеаиге А (1 : БуЕе); 
ред1п 


В (1); 
ера; 
Ргосеааге В (1 : Ву е); 


Бед1п 
А (3); 
епа; 


Если строго следовать правилу, согласно которому каждый иденти— 
фикатор перед употреблением должен быть описан, то такую программную 
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конструкцию использовать нельзя. Для того, чтобы такого рода вызовы 
стали возможны, вводится опережающее описание: 


Ргосе4иге В (1 : БуЕе); Фохкмага; 
Ргосеааге А (1 : Бу е}; 
Бед1п 


В (1); 


Ргосеадиге В; 
Бедап 
А (5); 


епа; 


Как видим, опережающее описание заключается в том, что объявляется 
лишь заголовок процедуры В, а ее тело заменяется стандартной дирек— 
тивой РОКИ/АЕЮО. Теперь в процедуре А можно использовать обращение к 
процедуре В’ — ведь она уже описана, точнее, известны ее формальные 
параметры, и компилятор может правильным образом организовать ее 
вызов. Обратите внимание: тело процедуры В начинается заголовком, в 
котором уже не указываются описанные ранее формальные параметры. 


8.7. РАСШИРЕННЫЙ СИНТАКСИС ВЫЗОВА ФУНКЦИЙ 


В Турбо Паскале есть возможность вызывать функцию и не исполь-— 
зовать то значение, которое она возвращает. Иными словами, вызов 
функции может внешне выглядеть как вызов процедуры, например: 


{5$Х+} {Включаем расширенный синтаксис} 
РипсёЕ1оп МуРопс (уаг х : 1п%$едег) : 1п%едег; 
Бед1п 

1Е х<0 ЕВеп х:=0 
е]1зе МуРГипс := х+10 
епа; {МуЁГипс} 


уах 
1 : 1пеедег; 
БЬед1п {та1п} 
1 := 1; 
1 := 2*МуРапс (1)-100; {Стандартный вызов функции} 
МуЕипс (1) {Расширенный синтаксис вызова} 


еп. (татп)} 

Расширенный синтаксис делает использование функций таким же 
свободным, как, например, их использование в языке Си, и придает Турбо 
Паскалю дополнительную гибкость. С помощью расширенного синтаксиса 
нельзя вызывать стандартные функции. Компиляция с учетом расши— 
ренного синтаксиса включается активным состоянием опции ЕХТЕМРЕР 
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директивой компилятора {$Х-+). 
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МОДУЛИ 


Стандартный Паскаль не предусматривает механизмов раздельной компи— 
ляции частей программы с последующей их сборкой перед выполнением. Более 
того, последовательное проведение в жизнь принципа обязательного описания 
любого объекта перед его использованием делает фактически невозможным 
разработку разнообразных библиотек прикладных программ. Точнее, такие 
библиотеки в рамках стандартного Паскаля могут существовать только в виде 
исходных текстов и программист должен сам включать в программу подчас 
весьма обширные тексты различных поддерживающих процедур, таких, как 
процедуры матричной алгебры, численного интегрирования, математической 
статистики и т.п. 

Вполне понятно поэтому стремление разработчиков коммерческих ком- 
пиляторов Паскаля включать в язык средства, повышающие его модульность. 
Чаще всего таким средством является разрешение использовать внешние 
процедуры и функции, тело которых заменяется стандартной директивой 
ЕХТЕКМАГ. Разработчики Турбо Паскаля пошли в этом направлении еще 
дальше, включив в язык механизм так называемых модулей. 

Модуль — это автономно компилируемая программная единица, вклю — 
чающая в себя различные компоненты раздела описаний (типы, константы, 
переменные, процедуры и функции) и, возможно, некоторые исполняемые 
операторы инициирующей части. По своей организации и характеру исполь— 
зования в программе модули Турбо Паскаля близки к модулям - пакетам 
(РАСКАСЕ) языка программирования Ада. В них так же, как в пакетах Ады, 
явным образом выделяется некоторая «видимая» интерфейсная часть в ко-— 
торой сконцентрированы описания глобальных типов, констант и переменных, 
а также приводятся заголовки глобальных процедур и функций. Появление 
объектов в интерфейсной части делает их доступными для других модулей и 
основной программы. Тела процедур и функций располагаются в исполняемой 
части модуля, которая может быть скрыта от пользователя. 

Насколько сильно изменяются свойства языка Паскаль при введении ме— 
ханизма модулей свидетельствует следующее замечание его автора Н.Вирта, 
сделанное им по поводу более позднего языка Модула-2: «Модули — самая 
важная черта, отличающая язык Модула -— 2 от его предшественника Паскаля». 

Модули представляют собой прекрасный инструмент для разработки биб— 
лиотек прикладных программ и мощное средство модульного программиро— 
вания. Важная особенность модулей заключается в том, что компилятор Турбо 
Паскаля размещает их программный код в отдельном сегменте памяти. Мак— 
симальная длина сегмента не может превышать 64 Кбайта, однако количество 
одновременно используемых модулей ограничивается лишь доступной намятью, 
что дает возможность создавать весьма крупные программы. 


9.1. СТРУКТУРА МОДУЛЕЙ 


Модуль имеет следующую структуру: 
ОМТТ <имя>; 


ТИТЕВЕАСЕ 
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<интерфейсная часть> 


ТМРТЕМЕМТАТТОМ 
<исполняемая часть> 
ВЕСТМ 
<инициирующая часть> 
ЕМО. 
Здесь ОМТ -— зарезервированное слово (единица); начинает заголовок 


модуля; 
<имя> — имя модуля (правильный идентификатор); 

ПУТЕКЕАСЕ -— зарезервированное слово (интерфейс); начинает 

интерфейсную часть модуля; 

1МРЕЕМЕМТАТОМ - зарезервированное слово (выполнение); на- 
чинает исполняемую часть; 

ВЕСИМ — зарезервированное слово; начинает инициирующую часть 
модуля; конструкция ВЕСИМ <инициирующая часть> необя— 
зательна; 

ЕМО — зарезервированное слово — признак конца модуля. 

Таким образом, модуль состоит из заголовка и трех составных частей, любая 
из которых может быть пустой. 


9.2. ЗАГОЛОВОК МОДУЛЯ И СВЯЗЬ МОДУЛЕЙ 
ДРУГ С ДРУГОМ 


Заголовок модуля состоит из зарезервированного слова ИМТ и следующего 
за ним имени модуля. Аля правильной работы среды Турбо Паскаля и воз— 
можности подключения средств, облегчающих разработку крупных программ 
(см. п.9.6)}, это имя должно совпадать с именем дискового файла, в который 
помещается исходный текст модуля. Если, например, имеем заголовок 


Опт С1оЬа1; 


то исходный текст соответствующего модуля должен размещаться в дисковом 
файле СГОВАГ.РА$. Имя модуля служит для его связи с другими модулями и 
основной программой. Эта связь устанавливается специальным предложением 


05ЕЗ <сп.модулей> 


Здесь 05Е5 — зарезервированное слово (использует); 
_<сп.модулей> — список модулей, с которыми устанавливается связь; 
элементами списка являются имена модулей, отделяемые друг 
от друга запятыми, например: 


Озе5$ СВТ, СгарВ, С1оЪа1; 


Если объявление 05Е5... используется, оно должно открывать раздел опи— 
саний основной программы. Модули могут использовать другие модули. 
Предложение 05Е5 в модулях может следовать либо сразу за зарезервиро— 
ванным словом ПИУТЕЕРАСЕ, либо сразу за словом Г[МРЕЕМЕМТАТИ!ОМ, либо, 
наконец, и там, и там (т.е. допускаются два предложения 05Е5). 


9.3. ИНТЕРФЕЙСНАЯ ЧАСТЬ 


Интерфейсная часть открывается зарезервированным словом ПМТЕВЕАСЕ. В 
этой части содержатся объявления всех глобальных объектов модуля (типов, 
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констант, переменных и подпрограмм), которые должны стать доступными 
основной программе и/или другим модулям. При объявлении глобальных 
подпрограмм в интерфейсной части указывается только их заголовок, напри— 
мер: 


О9п1Е Спр1х; 


ТпвегЕасе 
фуре 
сопр1ех = гесога 
ге, 1м : геа1 
епа; 


Ргоседиге Ааас (х, у : сопр1ех; чак 7 : сопр1ех); 
Ргоседиге Мо1С (х, у : сопр1ех; чак 2 : сопр1ех); 


Если теперь в основной программе написать предложение 
Озез Спр1х; 


то в программе станут доступными тип СОМРЕЕХ и две процедуры — АДШОС и 
МОЕГС из модуля СМРГХ. 

° Отметим, что объявление подпрограмм в интерфейсной части автоматически 
сопровождается их компиляцией с использованием дальней модели памяти (см. 
гл.8). Таким образом обеспечивается доступ к подпрограммам из основной 
программы и других модулей. 

Следует учесть, что все константы и переменные, объявленные в интер -— 
фейсной части модуля, равно как и глобальные константы и переменные ос— 
новной программы, помещаются компилятором Турбо Паскаля в общий сегмент 
данных (максимальная длина сегмента 65536 байт). Порядок появления раз— 
личных разделов объявлений и их количество может быть произвольным. Если 
в интерфейсной части объявляются внешние подпрограммы или подпрограммы 
в машинных кодах (см. гл. 11), их тела (т.е. зарезервированное слово 
ЕХТЕЕМА!, в первом случае, и машинные коды вместе со словом ПМИМЕ - во 
втором) должны следовать сразу за их заголовками в исполняемой части модуля 
(не в интерфейсной!). В интерфейсной части модулей нельзя использовать 
опережающее описание. 


9.4. ИСПОЛНЯЕМАЯ ЧАСТЬ 


Исполняемая часть начинается зарезервированным словом ШМРЕЕМЕМ-— 
ТАТОМ и содержит описания подпрограмм, объявленных в интерфейсной 
части. В ней могут объявляться локальные для модуля объекты — вспомога— 
тельные типы, константы, переменные и блоки, а также метки, если они ис— 
пользуются в инициирующей части. 

Описанию подпрограммы, объявленной в интерфейсной части модуля, в 
исполняемой части должен предшествовать заголовок, в котором можно 
опускать список формальных переменных (и тип результата для функции), так 
как они уже описаны в интерфейсной части. Но если заголовок подпрограммы 
приводится в полном виде, т.е. со списком формальных параметров и объяв — 
лением результата, он должен совпадать с заголовком, объявленным в ин- 
терфейсной части, например: 


Оп Спр1х; 
Тлеехг{асе 
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фуре 
сомр1ех = гесога 
ге, 1щ : геа1 


епа; 

Ргоседике АЗАС (х, у : сопр1ех; уаг 2 : сопр1ех); 
Тпр1епепва®1оп 
Ргосеааге Аадас; 
Ъед1п 

2.ге := х.ге + у.ге; 

2.11 := х.1 + у. 
епа; 
епа. 


Локальные переменные и константы, а также все программные коды, по- 
рожденные при компиляции модуля, помещаются в общий сегмент памяти. 


9.5. ИНИЦИИРУЮЩАЯ ЧАСТЬ 


Инициирующая часть завершает модуль. Она может отсутствовать вместе с 
начинающим ее словом ВЕСЧМ или быть пустой — тогда за ВЕСОМ сразу сле-— 
дует признак конца модуля (слово ЕМО и слелующая за ним точка). 

В инициирующей части размещаются исполняемые операторы, содержащие 
некоторый фрагмент программы. Эти операторы исполняются до передачи 
управления основной программе и обычно используются для подготовки ее 
работы. Например, в них могут инициироваться переменные, открываться о 
нужные файлы, устанавливаться связи с другими ПК по коммуникационным 
каналам и т.п.: 


0п1е Р11еТех(е; 
ТпфегЕасе 
Ргоседиге Рг1пе (5 : $Ег1па); 
Тир1емепка®1оп 
уаг 

Е: сехЕ; 
соп$5е 

паме = 'оцеёроае.ехе!; 
Ргосеаиге Рг1п{; 
Бед1п 

Иг1всеГгл (Ё, $) 
епа; 
{ Начало инициирующей части: } 
Бед1п 

а5$1ап(Ё, паме); 

гемг1е (ЕЁ); 
{ Конец инициирующей части } 
епа. 


Не рекомендуется делать инициирующую часть пустой, лучше ее опустить: 
пустая часть содержит пустой оператор, которому будет передано управление 
при запуске программы. Это часто вызывает проблемы при разработке овер-— 
лейных программ (см. гл.11). 
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9.6. КОМПИЛЯЦИЯ МОДУЛЕЙ 


В среде Турбо Паскаля имеются средства, управляющие способом компи-— 
ляции модулей и облегчающие разработку крупных программных проектов. В 
частности, определены три режима компиляции: СОМРШЕ, МАКЕ и ВОПО (см. 
прил.1). Режимы отличаются только способом связи компилируемого модуля 
или основной программы с другими модулями, объявленными в предложении 
О5Е5. 

При компиляции модуля или основной программы в режиме СОМРШЕ все 
упоминающиеся в предложении И05Е5 модули должны быть предварительно 
откомпилированы и результаты компиляции помещены в одноименные файлы 
с расширением ТРИ. Например, если в программе (модуле) имеется предло — 
жение 


Озезё С1оЪа1; 


то на диске в каталоге, объявленном опцией ОМТ ПКЕСТОЕ!Е5 (см. прил.1), 
уже должен находиться файл СГОВАГ.ТРИ. Файл с расширением ТРИ (от англ. 
Тигфо Разса] Опй) создается автоматически в результате компиляции модуля 
(если основная программа может компилироваться без создания исполняемого 
ЕХЕ- файла, то компиляция модуля всегда приводит к созданию ТРИ-— файла). 

В режиме МАКЕ компилятор проверяет наличие ТРИ- файлов для каждого 
объявленного модуля. Если какой—либо из файлов не обнаружен, система 
пытается отыскать одноименный файл с расширением РА$, т.е. файл с ис- 
ходным текстом модуля, и, если искомый файл найден, приступает к его 
компиляции. Кроме того, в этом режиме система следит за возможными из— 
менениями исходного текста любого используемого модуля. Если в РА$— файл 
(исходный текст модуля} внесены какие—либо изменения, то независимо от 
того, есть ли уже в каталоге соответствующий ТРИ-— файл или нет, система 
осуществляет его компиляцию перед компиляцией основной программы. Более 
того, если изменения внесены в интерфейсную часть модуля, то будут пере — 
компилированы также и все другие модули, обращающиеся к нему. Режим 
МАКЕ, таким образом, существенно облегчает процесс разработки крупных 
программ с множеством модулей: программист избавляется от необходимости 
следить за соответствием существующих ТРИ- файлов их исходному тексту, 
так как система делает это автоматически. 

В режиме ВИПО существующие ТРО-—файлы игнорируются, и система 
пытается отыскать (и компилировать) соответствующий РА5— файл для каждого 
объявленного в предложении 05Е$ модуля. После компиляции в режиме ВИШО 
программист может быть уверен в том, что учтены все сделанные им изме— 
нения в любом из модулей. 

Подключение модулей к основной программе и их возможная компиляция 
осуществляются в порядке их объявления в предложении И5Е5. При переходе 
к очередному модулю система предварительно отыскивает все модули, на ко— 
торые он ссылается. Ссылки модулей друг на друга могут образовывать дре-— 
вовидную структуру любой сложности, однако запрещается явное или кос— 
венное обращение модуля к самому себе. Например, недопустимы следующие 
объявления: 


Опт А; Оп1 В; 
ТлеегЕасе Тпрфе’Еасе 
Озез В; Озез А; 
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Это ограничение можно обойти, если «спрятать» прелложение И5ЁЕ5 в ис- 
полняемые части зависимых модулей: 


Опт д; Опт В; 
ТпЕегЕасе ТпбегЕасе 
Тир]1етмепфа®1оп Ттр}етмепфаЕ1оп 
Озез$ В; О5ез$ А; 

епа епа 


Дело в том, что Турбо Паскаль разрешает ссылки на частично откомпили— 
рованные модули, что приблизительно соответствует опережающему описанию - 
подпрограммы. Если интерфейсные части любых двух модулей независимы (это 
непременное условие!), Турбо Паскаль сможет идентифицировать все гло— 
бальные идентификаторы в каждом из модулей, после чего откомпилирует тела 
модулей обычным способом. 


9.7. ДОСТУП К ОБЪЯВЛЕННЫМ В МОДУЛЕ ОБЪЕКТАМ 


Пусть например, мы создаем модуль реализующий арифметику ком-— 
плексных чисел (такая арифметика ни в стандартном Паскале, ни в Турбо 
Паскале не предусмотрена). К сожалению, в Турбо Паскале нельзя исполь— 
зовать функции, значения которых имели бы структурированный тип (запись, 
например), поэтому арифметика комплексных чисел реализуется четырьмя 


процедурами: 
ОМТТ Спр1х; 


фуре 
сопр1ех = хесога 
ге, 1м : геа1 
епа; 


Ргосеаицге АааСс (х, у сопр1ех; маг 2 сомр1ех); 
Рхоседаге боЪС (х, у : сопр1ех; маг 2 сомр1ех); 
Ргосеааге Мо1С (х, у сопр1ех; чаг 2 сопр1ех); 
Ргосеацге 11УС (х, у сопр1ех; чахг 2 сомр1ех); 
соп5 . 

с : сотр1ех = (ге :.0.1; 1 : -1); 


Ргосеааге Ааас; 
Ъед1и 
2.хе := х.те + у.ге; 
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2.1 := х.1м + у. 
епа {Ааас}; 
Ргоседоге 5оЬС; 


Ьед1п 
2.хе := х.ге - у.ге; 
2.1 := х.1а - ут 


епа {505С}; 
Ргосеасге М01С; 


Ьед1п 
2.ге := х.ге * у.хге - х.1щ * у.1м; 
2.1 := х.ге * у.1м + х.1щ * у.ге 


епа {Мо1С}; 
Ргосеаоге 101%С; 
уаг 
22 : геа1; 
Бедлп 
22 := заг(у.ге) + зах (у.1т); 
2.хе := (х.ге * у.те + х.1щ * у.1щ) / 2272; 
2.11 := (х.ге * у.1щ - х.1а * у.ге) / 22 
епа {101%С}; 
епа. 


Текст этого модуля следует поместить в файл СМРЕХ.РА$. Вы можете его 
откомпилировать, создав ТРИ- файл, после чего Вашей программе станут 
доступны процедуры из новой библиотеки. Например, в следующей программе 
(пример 9.1) осуществляются четыре арифметические операции над парой 
комплексных чисел. 


Пример 9.1 

Озез Спр1х; 
уаг 

а, Ь, с : сопр1ех; 
Бед1п 

а.ге := 1; а.лм := 2; 

Ь.хе := 1; Бы :=2; 

АЧАаС (а, Ъ, с); 

ИМг1бе!л ('Сложение : \, сС.х:е:5:1, с.1м:5:1,'1'); 

ЗаЪСс (а, Ь, Сс); 

ИгтееГл ('Вычитание : \', сС.хе:5:1, с.1м:5:1,'1'); 


Ми1С (а, Ь, с); 

Мг1еегГл ('Умножение : \', с.ге:5:1, с.1м:5:1,'1!'); 

01УС (а, Ъ, с); 

Му1се!л ('Деление : (!, С.хе:5:1, с.1м:5:1, 11 ); 
епа. 

После объявления Чзез Спр1х программе стали доступны все объекты, 
объявленные в интерфейсной части модуля СМРЁХ. При необходимости можно 
переопределить любой их этих объектов, как это произошло, например, с 
объявленной в модуле типизированной константой С. Переопределение 
объекта означает, что вновь объявленный объект «закрывает» ранее опреде-— 
ленный в модуле одноименный объект. Чтобы получить доступ к «закрытому» 
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объекту, нужно воспользоваться составным именем: перед именем объекта 
поставить имя модуля и точку. Например, оператор 


Иг1ееГл (смр1х.с.хе:5:1, спр1х.с.11.5:1,'1'); 


выведет на экран содержимое «закрытой» типизированной константы из 
предыдущего примера. 


9.3. СТАНДАРТНЫЕ МОДУЛИ 


В Турбо Паскале имеется восемь стандартных модулей, в которых содер— 
жится болышое число разнообразных типов, констант, процедур и функций. 
Этими модулями являются 5УЗТЕМ, 2О$, СЕКТ, РЕПУТЕЕ, СКАРН, ОУЕВЕТАУ, 
ТОКВОЗ и СКАРНЗ. Модули СКАРН, ТОКВОЗ и СКАРНЗ выделены в отдельные 
ТРИ -— файлы, а остальные входят в состав библиотечного файла ТИЮВО.ТРГ. 
Лишь один модуль 5У5ТЕМ подключается к любой программе автоматически, 
все остальные становятся доступны только после указания их имен в списке, 
следующем за словом Ц5Е5. 

Ниже приводится краткая характеристика стандартных модулей. Полное 
описание входящих в них программных средств приведено в прил.4, а опи- 
санию объектно — ориентированной библиотеки Татро У131оп посвящена вся 
вторая часть книги. 


Модуль 5У5ТЕМ. В него входят все процедуры и функции стандартного 
Паскаля, а также встроенные процедуры и функции, которые не вошли в 
другие стандартные модули (например, ПУС, РЕС, СЕТЬ и т.п.). Как уже от- 
мечалось модуль 5УЗТЕМ подключается к любой программе независимо от 
того, объявлен ли он в предложении И5Е5 или нет, поэтому его глобальные 
константы, переменные и подпрограммы считаются встроенными в Турбо 
Паскаль. 


Модуль РЕПМТЕК. Делает доступным вывод текстов на матричный принтер. В 
нем определяется файловая переменная Ё5Т типа ТЕХТ, которая связывается с 
логическим устройством РЕМ. После подключения модуля может быть вы- 
полнена, например, такая программа: 


О9зез Ру1пеег; 
Бед1п 

мг16е1п (Т5Т, 'Турбо Паскаль’) 
епа. 


Модуль СКТ. В нем сосредоточены процедуры и функции, обеспечивающие 
управление текстовым режимом работы экрана. С помощью входящих в модуль 
подпрограмм можно перемещать курсор в произвольную позицию экрана, 
менять цвет выводимых символов и окружающего их фона, создавать окна. 
Кроме того, в модуль включены также процедуры «слепого» чтения клавиатуры 
и управления звуком. 


Модуль СКАРН. Содержит обширный набор типов, констант, процедур и 
функций для управления графическим режимом работы экрана. С помощью 
подпрограмм, входящих в модуль СКАРН, можно создавать разнообразные 
графические изображения и выводить на экран текстовые надписи стан— 
лартными или разработанными программистом шрифтами. Подпрограммы 
модуля СКАРН после соответствующей настройки могут поддерживать раз— 
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личные типы аппаратных графических средств. Настройка на имеющиеся в 
распоряжении программиста технические средства графики осуществляется 
специальными программами — драйверами, которые не входят в файл 
СКАРН.ТРО, но поставляются вместе с ним. 


Модуль ОО5. В модуле собраны процедуры и функции, открывающие доступ 
программам к средствам дисковой операционной системы М5- РО5. 


Модуль ОУЕКГАУ. Он необходим при разработке громоздких программ с 
перекрытиями. Как уже говорилось, Турбо Паскаль обеспечивает создание 
программ, длина которых ограничивается лишь основной оперативной памятью 
ПК. Операционная система М5-—РО5 оставляет исполняемой программе около 
580 Кбайт основной памяти (без учета резидентных программ и самой системы 
Турбо Паскаль). Память такого размера достаточна для большинства приме-— 
нений, тем не менее использование программ с перекрытиями (см. гл.11) 
снимает это ограничение. 


Два библиотечных модуля ТОЕВОЗ и СКАРНЗ введены для совместимости с 
ранней версией 3.0 системы Турбо Паскаль. 
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ОБЪЕКТЫ 


В основе того или иного языка программирования лежит некоторая 
руководящая идея, оказывающая существенное влияние на стиль соот-— 
ветствующих программ. 

Исторически первой была идея процедурного структурирования про-— 
грамм, в соответствии с которой программист должен был решить, какие 
именно процедуры он будет использовать в своей программе, а затем 
выбрать наилучшие алгоритмы для реализации этих процедур. Появление 
этой идеи было следствием недостаточной изученности алгоритмической 
стороны вычислительных процессов, столь характерной для ранних про-— 
граммных разработок (сороковые — пятидесятые годы). Типичным при-— 
мером процедурно — ориентированного языка является Фортран — первый 
и все еще один из наиболее популярных языков программирования. 
Последовательное использование идеи процедурного структурирования 
программ привело к созданию обширных библиотек программирования, 
содержащих множество сравнительно небольших процедур, из которых, 
как из кирпичиков, можно строить «здание» программы. | 

По мере прогресса в области вычислительной математики акцент в 
программировании стал смещаться с процедур в сторону организации 
ланных. Оказалось что эффективная разработка сложных программ 
нуждается в действенных способах контроля правильности использования 
данных. Контроль должен осуществляться как на стадии компиляции, так и 
при прогоне программ, в противном случае, как показала практика, резко 
возрастают трудности создания крупных программных проектов. Отчет — 
ливое осознание этой проблемы привело к созданию Алгола-— 60, а позже 
— Паскаля, Модулы-—2, Си и множества других языков программирова— 
ния,.имеющих более или менее развитые структуры типов данных. Ло— 
гическим следствием развития этого направления стал модульный подход к 
разработке программ, характеризующийся стремлением «спрятать» данные 
и процедуры внутри модуля. 

Начиная с языка Симула-—67, в программировании наметился новый 
подход, который получил название объектно-ориентированного про- 
граммирования (ООП). Его руководящая идея заключается в стремлении 
связать данные с обрабатывающими эти данные процедурами в единое 
целое — объект. Характерной чертой объектов является инкапсуляция 
(объединение) данных и алгоритмов их обработки, в результате чего и 
ланные, и процедуры во многом теряют самостоятельное значение. Фак - 
гически объектно — ориентированное программирование можно рас- 
сматривать как модульное программирование нового уровня, когда вместо 
во многом случайного, механического объединения процедур и данных 
акцент делается на их смысловую связь. 

Какими мощными средствами располагает объектно — ориентированное 
программирование наглядно демонстрирует библиотека Тафо У Зюоц, 
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входящая в комплект поставки Турбо Паскаля и описываемая во второй 
части этой книги. В этой главе мы рассмотрим основные идеи ООП и 
способы их использования. 

Следует заметить. что преимущества ООП в полной мере проявляются 
лишь при разработке достаточно сложных программ. Более того, инкап— 
суляция придает объектам совершенно особое свойство «самостоятельно — 
сти», максимальной независимости от остальных частей программы. 
Правильно сконструированный объект располагает всеми необходимыми 
данными и процедурами их обработки, чтобы успешно реализовать тре— 
буемые от него действия. Попытки использовать ООП для программиро — 
вания несложных алгоритмов, связанных, например, с расчетными вы- 
числениями по готовым формулам, чаще всего выглядят искусственными 
нагромождениями ненужных языковых конструкций. Такие программы 
обычно не нуждаются в структуризации, расчленении алгоритма на ряд 
относительно независимых частей, их проще и естественнее разрабатывать 
традиционными способами Паскаля. При разработке сложных диалоговых 
программ программист вынужден структурировать программу, так как 
только в этом случае он может рассчитывать на успех: «критической 
массой» неструктурированных программ является объем в 1000—1200 
строк исходного текста — отладка неструктурированных программ 
большего объема обычно сталкивается с чрезмерными трудностями. 
Структурирование программы ведет, `фактически, к разработке собст— 
венной библиотеки программирования — вот в этот момент к Вам на 
помощь и приходят новые средства ООП. 


10.1. ОСНОВНЫЕ ПРИНЦИПЫ ООП 


Объектно — ориентированное программирование основано на «трех 
китах» — трех важнейших принципах, придающих объектам новые 
свойства. Этими принципами являются инкапсуляция, наследование и 
полиморфизм. 


Инкапсуляция 


Инкапсуляция есть объединение в единое целое данных и алгоритмов 
обработки этих ланных. В рамках ООП данные называются полями объ — 
екта, а алгоритмы — объектными методами. 

Инкапсуляция позволяет в максимальной степени изолировать объект 
от внешнего окружения. Она существенно повышает надежность разра — 
батываемых программ, т.к. локализованные в объекте алгоритмы обме— 
ниваются с программой сравнительно небольшими объемами данных, 
причем количество и тип этих данных обычно тщательно контролируются. 
В результате замена или модификация алгоритмов и данных, инкапсули — 
рованных в объект, как правило, не влечет за собой плохо прослежи-— 
ваемых последствий для программы в целом (в целях повышения защи— 
щенности программ в ООП почти не используются глобальные пере-— 
менные). 

Другим немаловажным следствием инкапсуляции является легкость 
обмена объектами, переноса их из одной программы в другую. Можно 
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сказать, что ООП «провоцирует» разработку библиотек объектов, таких 
как Тигро "$1 оп. 


Наследование 


Наследование есть свойство объектов порождать своих потомков. 
Объект -— потомок автоматически наследует от родителя все поля и методы, 
может дополнять объекты новыми полями и заменять (перекрывать) ме— 
тоды родителя или дополнять их. 

Принцип наследования решает проблему модификации свойств объекта 
и придает ООП в целом исключительную гибкость. При работе с объек — 
тами программист обычно подбирает объект, наиболее близкий по своим 
свойствам для решения конкретной задачи, и создает одного или не-— 
скольких потомков от него, которые «умеют» делать то, что не реализовано 
в родителе. 

Последовательное проведение в жизнь принципа «наследуй и изменяй» 
хорошо согласуется с поэтапным подходом к разработке крупных про— 
граммных проектов и во многом стимулирует такой подход. 


Полиморфизм 


Полиморфизм — это свойство родственных объектов (т.е. объектов, 
имеющих одного общего родителя) решать схожие по смыслу проблемы 
разными способами. В рамках ООП поведенческие свойства объекта оп-— 
ределяются набором входящих в него методов. Изменяя алгоритм того или 
иного метода в потомках объекта, программист может придавать этим 
потомкам отсутствующие у родителя специфические свойства. Для из— 
менения метода необходимо перекрыть его в потомке, т.е. объявить в 
потомке одноименный метод и реализовать в нем нужные действия. В 
результате в объекте — родителе и объекте — потомке будут действовать два 
одноименных метода, имеющие разную алгоритмическую основу и, сле 
довательно, придающие объектам разные свойства. Это и называется 
полиморфизмом объектов. 

В Турбо Паскале полиморфизм достигается не только описанным выше 
механизмом наследования и перекрытия методов родителя, но и их вир- 
туализацией (см. ниже), позволяющей родительским методам обращаться к 
методам потомков. 


10.2. ПОСТАНОВКА УЧЕБНОЙ ЗАДАЧИ 


Знакомство с техникой ООП в этом разделе иллюстрируется примера— 
ми, объединенными рамками следующей учебной задачи. 

Требуется разработать программу, которая создает на экране ряд 
графических изображений (точки, окружность, линия, квадрат) и может 
перемещать эти изображения по экрану. Вид создаваемого программой 
экрана показан на рис.10.1. 
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Рис.10.1. Экран, создаваемый учебной программой 


Для перемещения изображений в программе будут использоваться 
клавиши управления курсором, клавиши Ноте, Епа, РдОр, РаО)п (^ля пе- 
ремещения по диагональным направлениям) и клавиша Таб для выбора 
перемещаемого объекта. Выход из программы — клавиша Ес. 

Техническая реализация программы потребует использования средств 
двух стандартных библиотек — САТ и СКАРН, которые еще не рассмат— 
ривались в этой книге. Чтобы не отвлекать Ваше внимание от основных 
проблем ООП, при описании реализации учебной задачи особенности 
использования средств этих библиотек лишь очень кратко комментируются 
в текстах программы. Если Вы не привыкли «принимать на веру» пред— 
лагаемые программные решения и хотите разобраться с деталями вызова 
незнакомых Вам процедур и функций, рекомендую просмотреть материал 
гл.13 и гл.14, где описаны эти библиотеки (они не используют средств ООП 
и, следовательно, могут изучаться ‘до чтения настоящей главы). 


10.3. СОЗДАНИЕ ОБЪЕКТОВ 


В Турбо Паскале для создания объектов используются три зарезерви — 
рованных слова: оБесЬ сопгисюг, аезмисюг и три стандартные ди- 
рективы: риуае, рибШс и уйшша1. 

Зарезервированное слово оБес{Р используется для описания объекта. 
Описание объекта должно помещаться в разделе описания типов: 


фуре 
Му0Б]есе = оБзес®е 
{Поля объекта} 
{Методы объекта} 
епа; 


Если объект порождается от какого-либо родителя, имя родителя 
указывается в круглых скобках сразу за словом оБ]есЕ: 


фуре | 
Мурезсепаап*ОБ)есЕ = оБзес® (МуоБ ест) 
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Любой объект может иметь сколько угодно потомков, но только одного 
родителя, что позволяет создавать иерархические деревья наследования 
объектов. 

Для нашей учебной задачи создадим объект — родитель ТагарпОБесь в 
рамках которого будут инкапсулированы поля и методы, общие для всех 
остальных объектов: 


фуре 
ТбсгарвОоОр] = оБЗес® 
Рг1уафе {Поля объекта будут скрыты от пользователя} 


Х,Уу: Тпседег; {Координаты реперной точки} 
Со1о0ог: Мога; {Цвет фигуры} | 
Роь11с {Методы объекта будут доступны пользователю} 
СопзЕхосеог Тп1е(аХ, ау: Тпфедег; аСо1ог: Шога); 
{Создает экземпляр объекта} 
Ргосе4иге Пгам(аСо1ог: ШМога); У1гх®ча1; 
{Вычерчивает объект заданным цветом аСо1ог} 
Ргоседиге 5пои; 
{Показывает объект - вычерчивает его цветом Со1ог} 
Ргоседиге Н`1ае; 
{Прячет объект - вычерчивает его цветом фона} 
Ргосеаиге МоуеТо(ах,аУу: Тпфедег); 
{Перемещает объект в точку с координатами Х+АХ и Утау}; 
еп; {Конец описания объекта ТбсгарНоЬ]} 


В дальнейшем предполагается создать объекты — потомки от ТСгарйОЫ}, 
реализующие все специфические свойства точки, линии, окружности и 
прямоугольника. Каждый из этих графических объектов будет характе — 
ризоваться положением на экране (поля Х и У) и цветом (поле Со/ог). С 
помощью метода Огау он будет способен отображать себя на экране, а с 
ПОМОЩЬЮ СВОЙСТВ «показать себя» (метод 5Воу) и «спрятать себя» (метод 
Нае) сможет перемещаться по экрану (метод МоутеТо). Учитывая общность 
свойств графических объектов, мы объявляем абстрактный объект 
ТатарВОБ], который не связан с конкретной графической фигурой. Он 
объединяет в себе все общие поля и методы реальных фигур и будет 
служить родителем для других объектов. 

Директива Риуайе в описании объекта открывает секцию описания 
скрытых полей и методов. Перечисленные в этой секции элементы объ-— 
екта «не видны» программисту, если этот объект он получил в рамках 
библиотечного ТРИ-—модуля. Скрываются обычно те поля и методы, к 
которым программист (в его же интересах!) не должен иметь непосред-— 
ственного доступа. В нашем примере он не может произвольно менять 
координаты реперной точки (Х,У), т.к. это не приведет к перемещению 
объекта. Для изменения полей Х и У предусмотрены входящие в состав 
объекта методы шЁ и МоуеТо. Скрытые поля и методы доступны в рамкау 
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той программной единицы (программы или модуля), гле описан соответ — 
ствующий объект. В дальнейшем предполагается, что программа будет 
использовать модуль СгарпОБ] с описанием объектов. Скрытые поля будут 
доступны в модуле СгарйОБ,, но недоступны в использующей его основной 
программе. Разумеется, в рамках реальной задачи создание скрытых 
элементов объекта вовсе необязательно. Я ввел их в объект ТагарвоОБ] 
лишь для иллюстрации возможностей ООП. 

Директива риБПс отменяет действие директивы риус{е, поэтому все 
следующие за рибПс элементы объекта доступны в любой программной 
единице. Директивы риуае и риБПс могут произвольным образом чере— 
доваться в пределах одного объекта. 

Вариант объявления объекта ГОагарПОБ] без использования механизма 
риуае...риб[с: 


фуре 
ТсхгарВОЬ) = оБЗес® 
Х,у: Торпседек; 
Со1ох: Мога; 
СопзЕкиасеог Тп1{(аХ, ау: Тпфеедег; аСо1ог: Иога); 
Ргосеаиге ПОгаи(аСо]1ог: Мога); У1к&аа1; 
Ргосеаиге 5Ъои; 
Ргосеацгке Н1ае; 
Ргоседиге МоуеТо (АХ, ау: Тпеедег); 
епа; 


Описания полей ничем не отличаются от описания обычных пере— 
менных. Полями могут быть любые структуры данных, в том числе и 
другие объекты. Используемые в нашем примере поля Х и У содержат 
координату реперной (характерной) точки графического объекта, а поле 
Союг — его цвет. Реперная точка характеризует текущее положение 
графической фигуры на экране и, в принципе, может быть любой ее 
точкой! 

Для описания методов в ООП используются традиционные для Паскаля 
процедуры и функции, а также особый вид процедур — конструкторы и 
деструкторы. Конструкторы предназначены для создания конкретного 
экземпляра объекта, ведь объект — это тип данных, Т.е. «шаблон», по 
которому можно создать сколько угодно рабочих экземпляров данных 
объектного типа (типа ТОгарЛОБ} например). Зарезервированное слово 
сопзисюг, используемое в заголовке конструктора вместо ргосе4иге, 
предписывает компилятору создать особый код пролога, с помощью ко- 
_торого настраивается так называемая таблица виртуальных методов (см. 
ниже). Если в объекте нет виртуальных методов, в нем может не быть ни 
одного конструктора, наоборот, если хотя бы один метод описан как 
виртуальный (с последующим словом Уйша| см. метод Пгам), в состав 


1 В нашем примере она совпадает с координатами точки в описываемом ниже объекте 
ТРоштЕ с центром окружности в объекте ТСие, первым концом прямой в объекте ТИпе и с 
левым верхним углом прямоугольника в объекте ТКесЕ. 
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объекта должен входить хотя бы один конструктор и обращение к кон- 
структору должно предшествовать обращению к любому виртуальному 
методу. | 

Типичное действие, реализуемое конструктором, состоит в наполнении 
объектных полей конкретными значениями. Следует заметить, что разные 
экземпляры одного и того же объекта отличаются друг от друга только 
содержимым объектных полей, в то время как каждый из них использует 
одни и те же объектные методы. В нашем примере конструктор ШИ объ-— 
екта ТОгарПпОБ] получает все необходимые для полного определения эк-— 
земпляра данные через параметры обращения ах, а7У и аСо]ог. 

Процедура Огаи предназначена для вычерчивания графического объ— 
екта. Эта процедура будет реализовываться в потомках объекта Т@агарпОБ] 
по — разному. Например, для визуализации точки следует вызвать проце -— 
дуру Ри хе для вычерчивания линии — процедуру Цпе и т.д. В объекте 
ТагарпоОБ] процедура Огау определена как виртуальная («воображаемая»). 
Абстрактный объект ТСтарйОБ] не предназначен для вывода на экран, 
однако наличие процедуры Огауи в этом объекте говорит о том, что любой 
потомок ТагарйОБ] должен иметь собственный метод Огаи, с помощью 
которого он может показать себя на экране. 

При трансляции объекта, содержащего виртуальные методы, создается 
так называемая таблица виртуальных методов (ТВМ), количество эле- 
ментов которой равно количеству виртуальных методов объекта. В этой 
таблице булут храниться адреса точек входа в каждый виртуальный метод. 
В нашем примере ТВМ объекта ТО@гарВОБ] хранит единственный элемент 
— адрес метода Ога. Первоначально элементы ТВМ не содержат кон— 
кретных адресов. Если бы мы создали экземпляр объекта ТагарвОБ] с 
помощью вызова его конструктора ШИ, код пролога конструктора поместил 
бы в ТВМ нужный адрес родительского метода Огау. Далее мы создадим 
несколько потомков объекта ТОгарВОБ]. Каждый из них будет иметь 
собственный конструктор, с помощью которого ТВМ каждого потомка 
настраивается так, чтобы ее единственный элемент содержал адрес 
нужного метода Огам. Такая процедура называется поздним связыванием 
объекта. Позднее связывание позволяет методам родителя обращаться к 
виртуальным методам своих потомков и использовать их для реализации 
специфичных для потомков действий. 

Наличие в объекте ТагарпОБ] виртуального метода Огам позволяет легко 
реализовать три других метода объекта: чтобы показать объект на экране в 
методе 5рйоту’ вызывается Огаи с цветом аСоюог равным значению поля 
Со]ог, а чтобы спрятать графический объект, в методе Не вызывается 
гам со значением цвета Се ВКСо]ог, т.е. с текущим цветом фона. 

Рассмотрим реализацию перемещения объекта. Если потомок ТатарпОБ] 
(например, ТШпе) хочет переместить себя на экране, он обращается к 
родительскому методу МоуеТо. В этом методе сначала с помощью Ме 
объект стирается с экрана, а затем с помощью 5ро\’ показывается в другом 
месте. Для реализации своих действий и ЕРМае, и 5Вом обращаются к 
виртуальному методу Ога. Поскольку вызов МоуеТо происходит в рамках 
объекта Те, используется ТВМ этого объекта и вызывается его метод 
Ргау, вычерчивающий прямую. Если бы перемещалась окружность, ТВМ 
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содержала бы адрес метода Пгаи объекта ТСйисе и визуализация-— 
стирание объекта осуществлялась бы с помощью этого метода. 

Чтобы описать все свойства объекта, необходимо раскрыть содержимое 
объектных методов, т.е. описать соответствующие процедуры и функции. 
Описание методов производится обычным для Паскаля способом в любом 
месте раздела описаний, но после описания объекта. Например: 


фуре 
ТСсгарНОЮ7] = оБзес®е 


епа; 


СопзЕкгасеок ТСгарНоЬ7.Тп1е; 


Ьед1п 

Х := ах; 

У := ау; 

Со1ог := аСо1ог 
епа; 


Ргосе4иге ТСгаррОЬ).Пгам; 

Ьед1п 

{Эта процедура в родительском объекте ничего не делает, поэто- 
му экземпляры ТбгарНноОЬ] не способны отображать себя на экране. 
Чтобы потомки объекта ТбгарроОЬ] были способны отображать себя, 
они должны перекрывать этот метод} 

епа; 


Ргоседиге ТСгарНоБ).бром; 
‚Ьед1п 

Огам (Со1ог) 
ера; 


Ргоседаге ТСгаррОЬ].Н1ае; 
Ред1п 

Огам (СеЕВКСо1от) 
епа; 


Ргоседиге ТСгарБОЬ).МоуеТо; 
Бед1п 

Н1ае; 

Х := Х+ах; 

У := У+ау; 

зом 
епа; 


Отмечу два обстоятельства. Во-первых, при описании методов имя 
метода дополняется спереди именем объекта, т.е. используется составное 
имя метода. Это необходимо по той простой причине, что в иерархии 
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родственных объектов любой из методов может быть перекрыт в потом — 
ках. Составные имена четко указывают принадлежность конкретной 
процедуры. Во—вторых, в любом объектном методе можно использовать 
инкапсулированные поля объекта почти так, как если бы они были оп- 
ределены в качестве глобальных переменных. Например, в конструкторе 
Тагарй.тй переменные в левых частях операторов присваивания пред— 
ставляют собой объектные поля и не должны заново описываться в про— 
цедуре. Более того, описание 


СопзЕгасвох ТсгаррОБ).Тп1*; 


уаг 
Хх, У: Тпеедег; {Ошибка!} 
Со1ох: Мога; {Ошибка!} 

Бед1п 

ета; 


вызовет сообщение о двойном определении переменных Х, Уи Со/1ог (в 
этом и состоит отличие в использовании полей от глобальных переменных: 
глобальные переменные можно переопределять в процедурах, в то время 
как объектные поля переопределять нельзя). 

Обратите внимание: абстрактный объект ТОагарВОБ] не предназначен 
для вывода на экран, поэтому его метод Огам ничего не делает. Однако 
методы Рае, эпом и МоуеТо «знают» формат вызова этого метода и реа— 
лизуют необходимые действия, обращаясь к реальным методам Огаи своих 
булущих потомков через соответствующие ТВМ. Это и есть полиморфизм 
объектов. 

Создадим простейшего потомка от Т@агарАОБ) — объект ТРошЕ с по- 
мощью которого будет визуализироваться и перемещаться точка. Все ос— 
новные действия, необходимые для этого, уже есть в объекте ТОгарйОБ}, 
поэтому в объекте ТРоиЁ перекрывается единственный метод — Огаи 


фуре 
ТРо1пЕ = оБЗесе (ТСгарВоЪ]) 
Ргосеацке Пгам(аСо1ог); \У1х%ща1.; 
епа; 


Ргосеаиге ТРо1пе.Огам; 
Беда | 
РоеР1хе1 (Х,У,Со1ог) {Показываем цветом Со]ог пиксель 
с координатами Х и У} 
епа; 


В новом объекте ТРошЁ можно использовать любые методы объекта — 
родителя ТСтарВОБ}. Например, вызвать метод МоуеТо, чтобы переместить 
изображение точки на новое место. В этом случае родительский метод 
ГагарвВОБ}.МоуеТо будет обращаться к методу ТРош{.Огат чтобы спрятать 
и затем показать изображение точки. Такой вызов станет доступен после 
обращения к конструктору ШИ объекта ТРошЁЬ который нужным образом 
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настроит ТВМ объекта. Если вызвать ТРотЁШОгау ло вызова ши, его ТВМ 
не будет содержать правильного адреса и программа «зависнет». 

Чтобы создать объект-линию, необходимо ввести два новых поля для 
хранения координат второго конца. Дополнительные поля требуется на— 
полнить конкретными значениями, поэтому нужно перекрыть конструктор 
родительского объекта: 


фуре 
ТЬ1пе = оБзес® (Тсхарпвоь)) 
АХ, ау: Тпфедег; {Приращения координат второго конца} 
СопзЕкиасеохг Тп1Е(Х1,У1,Х2,У2: Тпбедег; аСо1ог: Мокгка); 
Ргосеасге Пгам(аСо1ог: Мога); У1гхг%за1; 
епа; 


СопзЕгас®ог ТГ1пе.1Тп1; 
{Вызывает унаследованный конструктор ТбсгаррОр] для инициации 
полей Х, Уи Со]1]ог. Затем инициирует поля аХ и ау} 
Беда п 
{Вызываем унаследованный конструктор} 
ТпБег1ееа 1п1е(Х1,У1, аСо1ог); 
{Инициируем поля АХ и ау} 
ЯХ := Х2-Х1; 
ЧУ := У2-У1 


Ргосеаиге ПОгам; 


Бед1п 
ЗеЕСо1ох (Со1о:); {Устанавливаем цвет Со]ог} 
Т1пе (Х, У, Х+ах, у+ау) {Вычерчиваем линию} 

епа; 


В конструкторе Тпе.штй для инициации полей Х, Уи Со]ог, унаследо — 
ванных от родительского объекта, вызывается унаследованный конст— 
руктор ТагарВ.тТиИ, для чего используется зарезервированное слово 
тпегйеа (англ. — унаследованный): 


Тпрег1феа 1114 (Х1,У1, аСо1ог); 
С таким же успехом мы могли бы использовать и составное имя метода: 
ТСгарьоЬ) .Тп1 (Х1,У1, аСо1ог); 


Лля инициации полей АХ и аУ вычисляется расстояние в пикселах по 
горизонтали и вертикали от первого конца прямой до ее второго конца. 
Это позволяет в методе ТЁЬте.Огажу вычислить координаты второго конца 
по координатам первого и смещениям АХ и а7У. В результате простое из— 
менение координат реперной точки ХУ в родительском методе 
Тагарй.МоуеТо перемещает всю фигуру по экрану. 

Теперь нетрудно реализовать объект ТСИсе для создания и переме- 
щения окружности: | 
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фуре 
ТС1хс1е = оЪЗес® (ТбгарНвоЬ)) 
В: Тпбедег; {Радиус} 
СопзЕгас®ог Тп1е (ах, а, аВ: Тпфедег; аСо1ог: Мога); 
Ргосеацгке ПОгаи(аСо1ог: \У1г6пца1); 
епа; 


СопзЕгас Вог ТС1гс1е.1п1Е; 


Бед1п 
Тпрег1ееа Тп1+ (ах, аУ, аСо1ог); 
В := ак 

епа; 


Ргосеааге ТС1гс1е.)хаим; 


Бедап 
беЕСо1ог (аСо1ог); {Устанавливаем цвет Со]ог} 
С1хгс1е(Х,У, ВБ) {Вычерчиваем окружность} 
ера; 


В объекте ТКеср с помощью которого создается и перемещается пря — 
моугольник, учтем то обстоятельство, что для задания прямоугольника 
требуется указать четыре целочисленных параметра, т.е. столько же, 
сколько для задания линии. Поэтому объект ТКес| удобнее породить не от 
ТагарНОБ}, а от ТЫпе, чтобы использовать его конструктор Пи: 


фуре 
ТВесе = оБЗес® (Т11пе) 
Ргосеааге Пгам(аСо1ог: Мога); 
епа; 


Ргосеааге ТВесе.О)гам; 
Ъедлп 

ЗеЕСо]1ог (аСо1ог); 

Весфапа1е (Х,У,Х+ах, у+аУу) {Вычерчиваем прямоугольник} 
епа; 


Чтобы описания графических объектов не мешали созданию основной 
программы, оформим эти описания в отдельном модуле СгарпОЬ}: 


9п1® СгаррОоЬ); 
ТлеегЕасе 
{Интерфейсная часть модуля содержит только 
объявления объектов} 
фуре 
ТсгарвО] = оБзес® 


ера; 
ТРо1пЕ = оБЗес® (ТбсгарВоЬ]) 
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ТЬ1пе = оБуес* (ТСгарвОоЪ)) 


ТС1гс1е = оБзес® (ТсгарпоЪ]) 


ТВесЕ = оБЗес& (ТЬ1пе) 


Тир1етепфа%1оп 

{Исполняемая часть содержит описания всех объектных методов} 
Озез Сгарп; 

Сопз$Егасеог ТбгарПоЬ].1п16; 


епа. 


В интерфейсной части модуля приводятся лишь объявления объектов, 
подобно тому как описываются другие типы данных, объявляемые в мо— 
дуле доступными для внешних программных единиц. Расшифровка объ-— 
ектных методов помещается в исполняемую часть ипр]етещайоп, как если 
бы это были описания обычных интерфейсных процедур и функций. При 
описании методов можно опускать повторное описание в заголовке па— 
раметров вызова. Если они все же повторяются, они должны в точности 
соответствовать ранее объявленным параметрам в описании объекта. 
Например, заголовок конструктора ТагарпОБ].шй может быть таким: 


СопзЕгас®ох ТСгарНор].Тп1*; 
или таким: 


Сопзёгасвог ТСгарПОЬ).Тп1& (ах, аУ: ТпЕедег; аСо1ог: Шога); 


10.4. ИСПОЛЬЗОВАНИЕ ОБЪЕКТОВ 


Идею инкапсуляции полей и алгоритмов можно применить не только к 
графическим объектам, но и ко всей программе в целом, Ничто не мешает 
нам создать объект — программу и «научить» его трем основным действиям: 
инициации (т), выполнению основной работы (Кип) и завершению 
(Ропе). На этапе инициации экран переводится в графический режим 
работы и создаются и отображаются графические объекты (100 экземп-— 
ляров ТРошЁ и по одному экземпляру ТИпе, ТСисе, ТКес|. На этапе Кип 
осуществляется сканирование клавиатуры и перемещение графических 
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объектов. Наконец, на этапе Попе экран переводится в текстовый режим и 
завершается работа всей программы. 

Назовем объект-— программу именем ТО@тарПАрр и разместим его в 
модуле СгарйАрр (пока не обращайте внимание на точки, скрывающие 


содержательную часть модуля — позднее будет представлен его полный 
текст): 

Оп СгарНАрр; 

ТлфегЕасе 

фуре 


ТСгаррАрр = оБздес® 
Ргосеаоге Тп1(; 
Ргосеаиге Коп; 
резбгосеох Попе; 

епа; 

Тпр1етепва®1оп 
Ргоседиге ТсгарПАрр. Тп11; 


В этом случае основная программа будет предельно простой: 


Ркодгам Сгарп Ор)есе$; 
Ч5е$ СгарпАрр; 


уагх 
Арр: ТсгарпАрр; 

Ьед1п 
Арр.1Тп1С; 
Арр.Коп; 
Арр.Попе 

епа. 


В ней мы создаем единственный экземпляр Арр объекта — программы 
ТагайрАрр и обращаемся к трем его методам. 

Создание экземпляра объекта ничуть не отличается от создания эк-— 
земпляра переменной любого другого типа. Просто в разделе описания 
переменных мы указываем имя переменной и ее тип: 


уаг 
Арр: ТбсгарПАрр; 


Получив это указание, компилятор зарезервирует нужный объем 
памяти для размещения всех полей объекта ТОагарВАрр. Чтобы обратиться 
к тому или иному объектному методу или полю, используется составное 
имя, причем первым указывается не имя объектного типа, а имя соот-— 


ветствующей переменной: 


„` Е > 
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Арр.Тп1е; 
’Арр.Кип; 
Арр.ропе; 


Переменные объектного типа могут быть статическими или динами— 
ческими, Т.е. располагаться в сегменте данных (статические) или в куче 
(линамические). В последнем случае мы могли бы использовать такую 
программу: 

Ргодгаю Сгарп ОБ)ес*з; 
95е$ СгарпАрр; 


фуре 
РбгарпАрр =^ТсгарпАрр; 
уаг 
Арр: РСсгарПАрр; 
Бедап 
Арр := Мем (РСсгарВАрр, Гп1%) 
Арр^.Вап; 
Арр^.Бопе 
епа; 


Для инициации динамической переменной Арр используется вызов 
функции №\. В этом случае первым параметром указывается имя типа 
инициируемой переменной а вторым осуществляется вызов метода— 
конструктора, который, я напомню, нужен для настройки таблицы вир— 
туальных методов. Такой прием (распределение объектов в динамической 
памяти с одновременной инициацией их ТВМ) характерен для техники 
ООП. 

Ниже приводится возможный вариант модуля СтарВАрр для нашей 
учебной программы: 


Опт СгарВАрр; 
ТлвегЕасе 


95ез бгарлорз; 


по. Ро1Ез = 1 100; 7 {Количество точек} 
фуре 
{Объект-программа} 
ТсгарВАрр. = оБЗес* _ 
| Ро1 158: -аккау (1. .МРо1е5] ОЕ ТРо1пЕ; [Массив точек} 
„але Ьапе; | .. {Линия} 
Кесе: ткесе;. {Прямоугольник} 
рае ТС {Окружность} 
{Активный объект} 


Ел аетосеас 
Ргосеасге Коп; 
Ргосеаиге Попе; 
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Ргоседиге $№омА11; 
Ргоседиге МоуеАсе1хе0р] (9Х, ау: Тплфедег); 
епа; 


Тир]1етепфа*1оп 


Озез Сгарй, СВТ; 


поме тиг, 


_Ргосеааге ТСсгарпАрр.Тп1; 


{Инициирует графический режим работы экрана. Создает и отобра- 


‚ жает МРо1пЁ5 экземпляров объекта ТРотпЁ, а также экземпляры 
‚ объектов ТГЛре, ТС1гс]1е и ТВесЁ} 
‚ уаг 


э 


{ 


О, В,Егх, К: Тпеедег; 


' Бед1п 


{Инициируем графику} 
р := РебесЕ; {Режим автоматического определения 
типа графического адаптера} 


То1ЕСкарВ (0,В, '\Ер\Ба1'); {Инициируем графический режим. 


`‹ Текстовая строка должна задавать путь к каталогу с графически- 
’°Ми драйверами} 


; 
. 


} 
\ 
; 


й 
‘ 
} 


’. 


Егг := СгарЬВези1е; {Проверяем успех инициации графики} 
1Е Егг<>0 &Беп 
Бед1п 
СгарпЕггогМза (Егг); 
На1 
епа; 


{Создаем точки} _ 


—————_— 


----—> 7 "' 7 О о 


‚ог. К = 1 в МРО1ПЕ$ ‘ао 


Ро1пе3з[К].Тп1е (Вапаоп (беЕМаххХ), Вапдом (бе{Мах\У), Вапдоп (15) +1); 
{Создаем другие объекты} 
Т1пе. Тр: -(СЕМаххХ а1м“ 3, СеМахУу `@х 3, 2*бекмахх` а 3, 
2*беЕМаху Я4х 3, 11ан%Веа); 


скс: Чп1+-(СезМахх Алу 2,СеЕМаху афу 2;СбееМаху У 5, Ме); 


Весь. Тп14 (2*СеЕМахх Ч4у 5,2*СефМаху Аду 5,3*СееМахх Ау 5; 
3*СеЕМахУу @а1у 5,Уе11ом); 
ЗВомА1 1; ‘{Показываем все графические объекты} 
АСсЕ1уУеОрю] := 1 {Первым перемещаем прямоугольник} 
епа; {ТбсгарпАрр.Тп1ё} 
{------------- } 
Ргосе4иге ТсгарпАрр.Воп; 
{Выбирает объект с помощью ТаЬ и перемещает его по экрану] 
уаг 
ЗЕор: Воо1еап; 


соп$е 
р = 5; {Шаг смещения фигур} 


{Признак нажатия Е5$Сс} 


-.-— 


р 


/ 
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Ъед1п 
ЗЕор := Га15е; 
{Цикл опроса клавиатуры} 


гереа* 

сазе ВКеаЯКеу оЕЁ {Читаем код нажатой клавиши} 
#27: 5еор := Ткие; {Нажата Е$с} 
„#9: Беда — {[Нажата ТаБ} 
1пс (АсЕ1уе0Ь7); 
хо 1Е АсЕ1уе0р)>3 ЕВеп 

> АСЕ1уе0ь) := 3 = 

ёта; — _ 


#0: сазе ВеаЯКеу оЕ | 
#71: МоуеАсЕ1уебЪ) (-0,-0); {Влево и вверх} 
#72: МоуеАс®1уе0Ь] ( 0,-10); {Вверх} 
#73: МоуеАс&1уеоЪ) ( 0,-0); {Вправо и вверх} 
#75: МоуеАсЕ1уеоЪ?) (-р0, 0); {Влево} 
#77: МоуеАсе1уеоОЬ) ( р, 0); {Вправо} 
#79: МохуеАс®1уеОоЪ) (-10, 0); {Влево и вниз} 


#80: МоуеАсе1уеоЪ] ( 0, р); {Вниз} 
#81: МоуеАсе1уеоЪ7 ( р, 10); (Вправо и вниз} 
епа 
епа; 
5ВомА1 1; 
9пЕ11 5бор 


_ ера; {ТбгарВАрр.Вип} 


Резегасеог ТСгарпАрр.Попе; 
{Закрывает графический режим} 


Ьед1п 

С1озеСгарп 
епа; {ТбсгарпВАрр.рПопе} 
(------------- } 


Ргоседиге ТСгарНАрр.5$1омА11; 
{Показывает все графические объекты} 
уаг | 
К: Тпбедег; 
Ьедап 
Бог К := 1 во М№Ро1пе5$ 4о Ро1пез[К].5Пом; 
.1пе.5вом; 
Весе.5Вом; 
Суже.. Вом 


Ргоседаге ТСгарвАрр.МоуеАс+1уеОЬ); 
{[Перемещает активный графический объект} 
Ъед1п 

сазе Асе1уеОор) о 
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1: Кесе.МоуеТо (ах, ау); 

2: С1гс .Мохето. (9х, ау); 

`3; Глпе.МоуеТо (ах, ау) 
епа 


В реализации объекта ТСгарВАрр используется деструктор Ропе. Сле-— 
дует иметь в виду, что в отличие от конструктора, осуществляющего на— 
стройку ТВМ, деструктор не связан с какими-то специфичными дейст— 
виями: для компилятора слова Аезтисюг и ргосеаше — синонимы. 
Введение в ООП деструкторов носит, в основном, стилистическую на— 
правленность — просто процедуру, разрушающую экземпляр объекта, 
принято называть деструктором. В реальной практике ООП с деструк-— 
торами обычно связывают процедуры, которые не только прекращают 
работу с объектом, но и освобождают выделенную для него динамическую 
память. И хотя в нашем примере деструктор Ропе не освобождает кучу, я 
решил использовать общепринятую стилистику и заодно обсудить с Вами 
последнее еще не рассмотренное зарезервированное слово технологии 
ООП. 

В заключении следует сказать, что формалистика ООП в рамках реа— 
лизации этой технологии в Турбо Паскале предельно проста и лаконична. 
Согласитесь, что введение лишь шести зарезервированных слов, из ко- 
торых действительно необходимыми являются три (обес сопяхгисюг и 
уйша!, весьма небольшая плата за мощный инструмент создания со-— 
временного программного обеспечения. 


Глава 11 


ДРУГИЕ ВОЗМОЖНОСТИ ТУРБО ПАСКАЛЯ 


11.1. ВНЕШНИЕ ПРОЦЕДУРЫ (ФУНКЦИИ) 


С помощью внешних процедур (функций) можно осуществить вызов из 
программы процедур или функций, написанных на языке ассемблера. 
Ассемблер обеспечивает компиляцию программ, написанных на машин — 
но —ориентированном языке программирования низкого уровня. В Турбо 
Паскале есть собственный встроенный ассемблер (см. гл.12). В этом 
разделе речь идет о программах, написанных и откомпилированных с 
помощью внешнего ассемблера, такого, как, например, ассемблер фирмы 
Мгсто5оН или Тигро Аззетег фирмы БВоПапа. 

Машинно — ориентированный язык ассемблера предоставляет квалир— 
_фицированному программисту богатейшие возможности использования 
всех особенностей архитектуры ПК. Ассемблерные программы выпол— 
няются значительно быстрее и занимают меньший объем памяти, чем 
программы, написанные на Турбо Паскале, однако низкий уровень языка 
ассемблера существенно снижает производительность труда программиста 
и резко усложняет отладку программ. Как правило, на языке ассемблера 
пишутся сравнительно небольшие фрагменты программ, в которых ис— 
пользуются недоступные из Турбо Паскаля особенности архитектуры ПК. 

Внешняя процедура (функция) в программе, написанной на Турбо 
Паскале, объявляется своим заголовком, за которым следует стандартная 
директива ЕХТЕКМАГ, например: 


Гапсе1оп ГоСазе (св : сВаг) : страх; ехЕегпа]1; 
Ргосе4иге бмарр1па (уаг а,Б; М : мога); ежёекпат; 


Как видно из этих примеров, тело внешней процедуры (функции) 
отсутствует — его заменяет директива ЕХТЕКМАТ. Аля подключения ас— 
семблерной программы необходимо предварительно ее откомпилировать и 
получить объектный файл с расширением .ОВЛ содержащий переме-— 
щаемый код ассемблерной программы. Непосредственно перед описанием 
внешней процедуры (функции) в тело основной программы вставляется 
директива компилятора {$Г <имя файла>] гле <имя файла> — имя ОВУ- 
файла. Диск и каталог, в котором следует искать этот файл, если он не 
обнаружен В текущем каталоге, указываются опцией 
ОРТИОМ5/П/ВЕСТОЕТЕ$ ОВЛЕСТ МКЕСТОЕЕ$ (см. прил.1). 

Перед передачей управления внешней процедуре (функции) программа 
помещает параметры обращения в программный стек в том порядке, как 
они перечислены в заголовке процедуры (функции). Ассемблерная про— 
цедура должна сохранить регистры ВР, 5Р, 55 и 25 центрального про— 
цессора в самом начале своей работы и восстановить содержимое этих 
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регистров перед возвратом управления в программу. Остальные регистры 
можно не сохранять и соответственно не восстанавливать. 

Параметры могут передаваться по ссылке или по значению. Если па-— 
раметр передается по ссылке, в стек помещается указатель, содержащий 
абсолютный адрес параметра, если по значению — в стек помещается сам 
параметр, точнее — его значение. Все параметры — переменные, т.е. па- 
раметры, объявленные в заголовке с предшествующим словом УАЁК, всегла 
передаются по ссылке. Параметры р— значения могут передаваться по 
ссылке или по значению в зависимости от длины внутреннего представ — 
ления соответствующего параметра. В общем случае используется сле— 
дующее правило: если длина внутреннего представления параметра — 
значения составляет 1, 2 или 4 байта, он передается своим значением, т.е. 
его значение помещается в стек. Точно так же через стек передаются и все 
вещественные данные длиной в 4, 6, Ви 10 байт (в версии 4.0 эти данные 
передаются через стек сопроцессора 8087/80287, начиная с версии 5.0 — 
через стек центрального процессора 8086/80486). Во всех остальных слу-— 
чаях, если длина внутреннего представления больше 4 байт, соответст — 
вующий параметр передается по ссылке. 

Ассемблерные функции в зависимости от длины внутреннего пред— 
ставления результата должны возвращать его через регистры центрального 
процессора или сопроцессора по слелдующим правилам: 

е длиной В 1 байт — в регистре АГ; 

е ДЛИНОЙ В 2 байта — в регистре АХ; 

е ДЛИНОЙ В 4 байта — в регистрах ОХ:АХ (старшее слово в ОХ}; 

® тип КЕАГ (6 байт) — в регистрах ОХ:ВХ:АХ; 

е типы 5ПУСГЕ, РООВГЕ, ЕХТЕМРЕО и СОМР — через стек сопро-— 
цессора 8087/80486; 
указатели — в регистрах РХ:АХ (сегмент в ОХ}; 
строки возвращаются по ссылке: адрес начала строки помещается в 
ОХ:АХ (сегмент в ОХ). 

Все ассемблерные процедуры должны размещаться в сегменте с именем 
СОРЕ или С5ЕС, или с именем, оканчивающимся на _ТЕХГ, инициали-— 
зированные локальные переменные помещаются в сегмент с именем 
СОМФТ или с именем, оканчивающимся на _РАТА. Все другие локальные 
переменные необходимо размещать в сегменте с именем РАТА или РЗЕС, 
или с именем, оканчивающимся на _В55. Любые другие объявления сег— 
ментов игнорируются. Все имена, объявленные в интерфейсной части 
модулей программы, написанной на Турбо Паскале, становятся доступны 
ассемблерной процедуре (функции) после их объявления директивой 
ЕХТЕМ. Точно так же все имена ассемблерных процедур и функций, ко-— 
торые должны быть доступны программе на Турбо Паскале, следует объ— 
являть директивой РИВЫС. 
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11.2. ИСПОЛЬЗОВАНИЕ ВСТРОЕННЫХ 
МАШИННЫХ КОДОВ 


В Турбо Паскале имеется возможность непосредственного включения в 
программу небольших фрагментов, написанных в машинных кодах. Для 
этого используется стандартная директива ПМЁЕМЕ, за которой в круглых 
скобках следует один или несколько элементов машинного кода, разде — 
ляемых косыми чертами. Элемент кода, в свою очередь, строится из одного 
или более элементов данных, разделенных знаками «+» или «—». 

В качестве элемента данных может использоваться целая константа, 
идентификатор (переменной, константы или функции) или ссылка на 
счетчик адреса («“»). Каждый элемент данных вызывает генерацию 1 или 2 
байт кода программы. Значение этого кода получается сложением или 
вычитанием элементов данных в соответствии с раздлеляющим их знаком. 
Значением идентификатора переменной, константы, функции служит 
адрес соответствующего объекта, значением ссылки на счетчик адреса 
является тот адрес, по которому будет размещаться следующий байт кода. 

Элемент кода будет генерировать 1 байт кода, если этот элемент состоит 
только из целых констант и значение результата не превышает мощности 
одного байта, Т.е. находится в диапазоне от 0 до 255. Если значение 
превышает 255 или элемент кода содержит ссылку на счетчик адреса, 
генерируются 2 байта. Знаки «<» и «>» могут использоваться для отмены 
автоматического выбора размера генерируемого кода. Если элемент кода 
начинается со знака «<», в код заносится только 1 байт (с младшей зна— 
чимостью), даже если само значение занимает 2 байта. Наоборот, если 
элемент начинается со знака «>», в код заносятся 2 байта (старший байт 
может оказаться нулевым). 

Значением идентификатора является смещение соответствующего 
объекта. Если переменная — глобальная, смещение задается относительно 
сегмента данных, хранящегося в регистре 05, если это локальная пере -— 
менная, — относительно сегмента стека (регистр 5Р). Базовым сегментом 
типизированной константы является сегмент кода (регистр С5). 

В следующем примере приводятся две короткие процедуры, с помощью 
которых можно ввести или вывести данные через любой порт ПК. 


Капсезоп ТпРогЕ (Роге: Мога): Иога; 

\ах 
рр: Мога; 
сс:Сраг; 

Ъедлп 
рр:=рогЕ; 

1012пе ( 
$85/$96/рр/ { тоу РОХ,рр[ЬР] } 
$ЕС/ { 1М АХ,МХ } 
$88/$86/сс) ; { тоу сс[Ьр],АХ } 
ТпРоге:=ога (сс); | 

ева; 

Ргоседихге Оп{Рохе (Рох®,Ве: Мога); 
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уаг 
рр: Мога; 
сс:Спваг; 
ред1п 
рр:=роге; 
сс:=спг (ВЕ); 
11]110е ( 
$8а/$86/сс/ { поу АХ,сс[ЬР] } 
$85/$96/рр/ { поу ПХ,рр[ЬР] } 
ЗЕЕ) { ОПТ ОХ,АХ } 
епа; 


Операторы ПМИМЕ могут произвольным образом смешиваться с дру- 
гими операторами Турбо Паскаля, однако при выходе из процедуры 
(функции) содержимое регистров ВР, $Р, 25 и $55 должно быть таким же, 
как и при входе в нее. 

С помощью директивы ИМИМЕ можно также задавать последователь — 
ность машинных кодов, которую необходимо несколько раз вставить в 
программу. Аля этого используется описание ИМЫМЕ- процедуры, на 
пример: 


Ркоседиге 01з5а51еТпееггире$; 
17013ле (5ГА); (СЬГ} 


ПМИМЕ - процедура имеет обычный для Турбо Паскаля заголовок, в то 
время как тело процедуры пишется целиком с помощью оператора ПМИМЕ. 
Всякий раз, когда в программе будет встречаться оператор вызова 
ИМИМЕ — процедуры, компилятор Турбо Паскаля будет вставлять на это. 
место не код вызова процедуры, а нужные машинные коды. Например, 
вместо вызова процедуры в операторе 


213аб1еТп$еггире; 


компилятор вставит команду запрета прерываний СЫ. Таким образом, 
ПМИМЕ — процедуры служат своеобразным средством расширения воз - 
можностей стандартного компилятора Турбо Паскаля и подобны макросам 
ассемблера. Использование ПМЕИМЕ- процедур увеличивает скорость ис— 
полнения программы, так как не осуществляется генерация (и исполнение) _ 
команд передачи управления в процедуру. По этой причине в ПМИМЕ- 
процедурах не следует использовать команды выхода из подпрограммы. 
ПУИШМЕ — процедура может иметь параметры, однако на них нельзя ссы— 
латься в ПМЫМЕ- директивах (на другие символы Турбо Паскаля ссылаться 
можно). В следующем примере перемножаются два числа типа ПУТЕСЕК, 
результат имеет тип [ГОМСПУТ. 


ЕОМСТТОМ ГопаМоы1 (Х,Уу : Тпеедег) : Гопа1пе; 


11121пе ( | 
$5А/ { РОР АХ; получить в АХ число Х } 
$58/ { РОР ПХ; получить в ПХ число У } 


ЗЕ7/$ЕА); { ТМОБ ОХ; ОХ:АХ = Х * У] 
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Отметим, что в силу упоминавшегося сходства с макросами ассемблера, 
имена ПУЕПМЕ- подпрограмм не могут использоваться в качестве аргу— 
ментов в операторах @ или служить параметрами функций АРОК, ОЕ и 
5ЕС. 


11.3. ОБРАЩЕНИЕ К ФУНКЦИЯМ 
ОПЕРАЦИОННОЙ СИСТЕМЫ 


Турбо Паскаль предоставляет программисту практически неограни— 
ченные возможности использования любых функций стандартной опе— 
рационной системы М5-РО5. При внимательном анализе материала этой 
книги Вы, очевидно, заметите, что значительную его часть составляет 
описание многочисленных библиотечных процедур и функций. Собственно 
язык Наскаль весьма прост и лаконичен, что, по мнению многих специа— 
листов, И послужило одной из причин его широкого распространения. 
Библиотечные же процедуры и функции, в своей значительной части, 
являются, по существу, своеобразным интерфейсом между языковыми 
средствами Турбо Паскаля и функциями операционной системы. Разу— 
меется, можно только приветствовать усилия разработчиков Турбо Паскаля 
по созданию мощных библиотек ТОВВО.ТРГ и СВЮАРН.ТРО, однако ясно, 
что Таким способом невозможно запрограммировать все допустимые 
обращения к средствам ДОС. Вот почему в Турбо Паскаль включены две 
процедуры, с помощью которых программист может сам сформировать 
вызов той или иной функции дисковой операционной системы (ДОС). 

Следует учесть, что единственным механизмом обращения к функциям 
ДОС является инициация программного прерывания. Прерывание — это 
особое состояние вычислительного процесса. В момент прерывания на-— 
рушается нормальный порядок выполнения команд программы и управ— 
ление передается специальной процедуре, которая входит в состав ДОС и 
называется процедурой обработки прерывания. Каждое прерывание ха— 
рактеризуется в рамках ДОС порядковым номером и связано со своей 
процедурой обработки. В архитектуре центрального процессора ПК пре-— 
дусмотрены прерывания двух типов — аппаратные и программные. Ап- 
паратные прерывания создаются схемами контроля и управления ПК и 
сигнализируют операционной системе о переходе какого —либо устройства 
в новое состояние или о возникновении неисправности. Программные 
прерывания инициируются при выполнении одной из двух специальных 
команд микропроцессора (ПУТ или ПУТО) и служат для обращения к 
средствам ДОС. 

Описываемые ниже процедуры входят в состав. библиотечного модуля 
РО5.ТРИ и становятся доступными после объявления 05Е5 РО5$. При 
возникновении программного прерывания в большинстве случаев необ — 
ходимо передать процедуре обработки прерывания некоторые параметры, 
в которых конкретизируется запрос нужной функции. Эти параметры, а 
также выходная информация (результат обработки прерывания) пере— 
‚ лаются от программы к процедуре и обратно через регистры центрального 
процессора. В составе модуля РО5.ТРИ для этих целей определен спе-— 
циальный тип: 
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фуре 
Вед15$ехз$ = кесогка 
сазе 1пфедег оЁ 
0 : (ДАХ, ВХ, СХ, ВР, 51, РОТ, 05, Е5, Е1ааз : мога); 
1 : (АБ, АН, ВЫ, ВН, СЫ, СН, ОЬ, ОН : Буве) 
епа; 


Этот тип имитирует регистры центрального процессора и дает воз— 
можность обращаться к ним как к 16 —битным или 8 — битным регистрам. 


Процедура ПМТВ. С помощью этой процедуры инициируется про-— 
граммное прерывание с требуемым номером. Обращение: 


ТМТВ (<М№>, <регистры>) 


Здесь <М№> — выражение типа ВУТЕ; номер прерывания; 
<регистры> — переменная типа КЕС15ТЕК5; в этой переменной про-— 
цедуре обработки прерывания передается содержимое 
регистров и в ней же возвращается выходная инфор-— 
мация. 
Например, прерывание с номером 18 ($12) возвращает в регистре АХ 
объем оперативной памяти ПК. Короткая программа, представленная в 
примере 11.1, выведет на экран сообщение об этом объеме. 


Пример 11.1. 


О5ез 1005; 
\уаг 
г : хедтзеегз; 
Ьед1п 
Тиег ($12, г); 
у\уг1$се]1п ('Объем памяти = ', г.АХ, ' Кбайт') 
епа. 


Процедура М$р0$. Инициирует прерывание с номером 33 ($21). Формат 
обращения: 


№5205 (<регистры>) 


Программное прерывание с номером 33 ($21) стоит особняком, так как 
оно дает доступ к большому количеству функций ДОС (этим прерыванием 
вызывается 85 функций). Рассматриваемая процедура полностью эквива— 
лентна вызову процедуры ПУТК с номером прерывания 33. Например, 
следующая программа (пример 11.2) выведет на экран версию операци-— 
онной системы: 


Пример 11.2 
Озез 105; 
уагх 
г : гед15сег$; 
редап 


х.АН := $30; 
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М$р0о$ (г); 
Иг1 сел ('Версия операционной системы: \', 
г.АГ, '.' Г.АН) 
епа. 


11.4. ПОДДЕРЖКА ПРОЦЕДУР ОБРАБОТКИ ПРЕРЫВАНИЙ 


При написании процедур обработки прерываний существенными яв— 
ляются два обстоятельства. Во — первых, процедура обработки прерывания 
не должна искажать работу прерванной программы. Для этого необходимо 
сначала сохранить регистры центрального процессора, а перед выходом из 
процедуры — восстановить их. Во-вторых, процедура должна строиться 
по принципу реентерабельности (повторной входимости): ее работа может 
быть прервана в любой момент другими прерываниями и ДОС может 
обратиться к соответствующей функции до завершения обработки пре-— 
дыдущего прерывания. 

Турбо Паскаль предоставляет программисту возможность написания 
процедур обработки прерывания на языке высокого уровня, хотя обычно 
такие процедуры пишутся на языке ассемблера. 

Процедура обработки прерывания, написанная на Турбо Паскале, 
должна начинаться стандартной директивой ДИУТЕВЮОРТ (прерывание), 
например: 


Ргосеацке ТпЕРгос (Е1ад$, С5, ТР, АХ, ВХ, СХ, ПХ, 
5т, ОЕ, 05, ЕбЗ, ВР : мога); апекгхар*; 
Бед1п 


ера; 


Формальные параметры в заголовке процедуры должны перечисляться в 
указанном порядке — через эти параметры все регистры прерванной 
программы становятся доступны процедуре обработки прерывания. Ко— 
личество перечисляемых в заголовке процедуры параметров -— регистров 
может быть любым, но не больше 12. Если в списке опущен какой — либо 
параметр, должны быть опущены также и все предшествующие ему па 
раметры. Например, описание 


Ргосеёаке ТпЕРгос (51, ОР, ЕЗ: мога); зпегкир+; 
будет неверным (опущены параметры 05 и ВР); правильное описание: 
Ргоседихе ТпЕРгос(5Т, ПОР, 05, ЕЗ, ВР: мога); 1пфеккар*; 


Заметим, что компилятор не контролирует порядок перечисления пара-— 
метров в заголовке процедуры обработки прерывания. 

Директива ПУТЕККОРТ вызывает генерацию специальных машинных 
кодов, обеспечивающих заталкивание регистров в стек при входе в про- 
цедуру и извлечение их из стека перед выходом из нее. 


При входе в процедуру: 


разБ ах 
рачзр 5х 
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разй сх 
рчзр ах 
ризп $1 
ризр @1 
рачзВ @5 
ручзп ез5 
разй Бр 


пох Бр, $1 
зар зр, Госа15$127е 
пох ах, 5ЕС ПАТА 
пом а$, ах 


При выходе из процедуры: 


пох $5р, Юр 
рор Бр 
рор ез$ 
рор @а5 
рор &а1 
рор $1 
рор ах 
рор сх 
рор Бх 
рор ах 
1гер 


В самой процедуре обработки прерывания не рекомендуется обра— 
щаться к другим функциям ДОС, так как некоторые из них, в том числе 
все функции ввода -— вывода, нереентерабельны. 

Для связи с любыми процедурами прерываний, а следовательно, и с 
процедурами, написанными программистом, используются векторы пре-— 
рываний — четырехбайтные абсолютные адреса точек входа в эти про— 
цедуры. Векторы прерываний располагаются в младших адресах опера— 
тивной памяти, начиная с нулевого адреса: прерывание номер 0 — по 
адресу 0, номер 1 — по адресу 1 * 4 = 4, номер М — по адресу М * 4. С 
помощью следующих двух процедур программист может прочитать со-— 
держимое любого вектора или установить его новое значение. 


Процедура СЕТТМТУЕС. Возвращает вектор прерывания с указанным 
номером. Обращение: 


СЕТТМТУЕС (<, <вектор>) 


Здесь <О> — выражение типа ВУТЕЁ; номер прерывания; 
<вектор> — переменная типа РОПУТЕК; адрес точки входа в 
процедуру обработки прерывания. 
Представленная в примере 11.3 программа выводит на экран содер-— 
жимое всех ненулевых векторов прерываний. 


Пример 11.3 
(зез 105; 


[5 
— 
<) 
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уах 
1 :; Буве; 
р : ро1пеег; 
Ьед1п 
Бог 1 := 0 ©о 255 4 
Бед1п 
СееТпеУес (1, р); 
1Е (5ед (р^) <> 0) ох (0Е5$ (р^) <> 0) +Веп 
МутееГгп (' М =', 1:3, ' 5ед ='!, $5еа (р^):5, 
' ОЁЕ$ =', ОЕЁЕз (р^):5) 
епа 
епа. 


Процедура ЗЕТТМТУЕС. Устанавливает новое значение вектора пре-— 
рывания. Формат обращения: 


ЗСЕТТМТУЕС (<,<адрес>) 


’ Здесь <О> — выражение типа ВУТЕ; номер прерывания; 
<адрес> — выражение типа РОПУТЕК; адрес точки входа в про- 
цедуру обработки прерывания. 


При нормальном завершении программы она выгружается из памяти, 
что делает невозможным разработку резидентных в памяти процедур 
обработки прерываний. Вы можете прекратить работу программы и ос-— 
тавить ее резидентной в памяти, если воспользуетесь процедурой КЕЕР. 


Процедура КЕЕР. Завершает работу программы и оставляет ее рези -— 
дентной в памяти. Обращение: 


КЕЕР (<код>) 


Здесь <код> — выражение типа И’ОКО — код завершения программы. 
Код завершения представляет собой фактически единственный механизм 
передачи сообщений от запущенной программы к программе, которая ее 
запустила. Он может быть проанализирован в вызывающей программе с 
помощью функции РО$ЕХИТСОШЕ. 


Функция ПОЗЕХТТСОРЕ. Возвращает значение типа ИОКР — код за— 
вершения подчиненной программы. Обращение: 


РОЗЕХТТСОРЕ 


11.5. ЗАПУСК ВНЕШНИХ ПРОГРАММ 


Из программы, написанной на Турбо Паскале, можно запустить любую 


другую готовую к работе программу. Для этого используется процедура 
ЕХЕС из библиотечного модуля РО5. Формат обращения к процедуре: 


ЕХЕС (<имя>, <параметры>) 
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Здесь <имя> — выражение типа 5ТЕПУМС; имя файла с вызываемой 
программой; | 
<параметры> — выражение типа 5ТЕИМО; параметры вызова. 
Имени запускаемой программы может предшествовать путь к файлу. 
Параметры передаются запускаемой программе в виде текстовой строки и 
могут быть проанализированы ею с помощью двух следующих функций. 


Функция РАВАМСООМТ. Возвращает общее количество параметров вы- 
зова программы (значение типа И’ОКО). Обращение: 


РАВАМСООМТ 


Параметры вызова обычно следуют в командной строке ДОС сразу за 
именем вызываемой программы и отделяются от этого имени и друг от 
друга пробелами, например: 


С:\ТР\ТОВВО МУРВОС.РА$ 
С:\5ТАМ А: \ЗУЗТЕМТ. СТА 


Здесь МУРКОС.РА$ и АЛ5У$ТЕМ1.5!А — параметры, передаваемые 
программам ТГОКВО и $АМ. 

При вызове программы непосредственно из среды Турбо Паскаля ей 
можно передать параметры с помощью опции ОРПОМ5/РАКАМЕТЕК$ (см. 
прил.1). 


Функция РАВАМСТВ. Возвращает значение типа 5ТЕПУС, соответст— 
вующее нужному параметру вызова. Формат обращения: 


РАВАМЗТВ (<0>) 


Здесь <)> — выражение типа И’ОКРО; порядковый номер параметра. 

Заметим, что программе всегда передается параметр, соответствующий 
№ = 0. В этом параметре ДОС сообщает полное имя запущенной про-— 
граммы с указанием диска и каталога, откуда она была загружена. 


Использование процедуры ЕХЕС имеет ряд особенностей. Прежде всего 
необходимо отметить что сама вызывающая программа остается рези -— 
лентной в памяти, поэтому она не должна занимать всю оперативную 
память. Объем выделяемой программе памяти регулируется опцией 
ОРТОМ5/МЕМОКУ 517Е$ (см. прил.1). По умолчанию параметры ГОУ 
НЕАР ИМТ и ШОН НЕАР ИМТ этой опции таковы (соответственно 0 и 
655360 байт), что вызывающая программа, написанная на Турбо Паскале, 
занимает весь доступный объем памяти, и вызываемая программа не будет 
загружена. Полезно включить в текст вызывающей программы директиву 
компилятора, в которой изменяются принятые по умолчанию размеры 
памяти. Например, так: 


{$М 2048, 0, 0} 


Такая директива ограничивает используемую программой область стека 
величиной 2 Кбайта и исключает возможность использования в ней дли- 
намической памяти. Разумеется, Вы можете установить и другие значения 
параметров в этой директиве. 
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Специфические особенности исполнения программ Турбо Паскаля 
требуют изменения стандартных значений некоторых векторов преры-— 
ваний. К ним относятся векторы со следующими шестнадцатеричными 
номерами: 


$00, $02, $18, $23, $24, $34, $35, $36, $371, 
$38, $39, $ЗА, $3В, $3С, $30, $3Е, $3ЗЕ, $75. 


Начальные значения этих векторов сохраняются в восемнадцати пе-— 
ременных с именами ЗАУЕЙУТХХ из библиотечного модуля 5У5ТЕМ, гле ХХ 
— шестнадцатеричный номер прерывания. Поэтому непосредственно 
перед запуском внешней программы и сразу после возврата из нее ре— 
комендуется вызывать библиотечную процедуру без параметров 
5И/АРУЕСТОК5$, которая обменивает содержимое векторов прерывания и 
перечисленных переменных. 

Программа из примера 11.4 читает с клавиатуры любую команду ДОС, 
затем вызывает командный процессор СОММАМРО.СОМ операционной 
системы и передает ему эту команду. 

Обратите внимание: для указания файла СОММАМО.СОМ и пути к 
нему используется обращение к библиотечной функции СЕТЕМУ, с по- 
мощью которой можно получить параметры настройки операционной 
системы. В частности, параметр СОМЗРЕС определяет спецификацию 
файла, содержащего командный процессор. 


Пример 11.4 
{$М 1024, 0, 0} 
95ез 105; 
уаг 
$Е : зЕгафта [79]; 
Боб» л 
иг1%е ('Введите команду ДОС: '); 
геаа1п (5%); 
1Е 5Е <> '!'! фЪед 
Бедап 
ЗЕ := '/С '+536; 
смарУес®ог$; 
Ехес (СебЕпу ('СОМ5РЕС'), $); 
омарУесфог$5 
епа 
епа. 


Функция ЕМУСОПОМТ. Возвращает значение типа ПУТЕСЕК, в котором 


содержится общее количество установленных в ДОС параметров. Обра— 
щение: 


ЕМУСООМТ 


Функция ЕМУЗТВ. Возвращает значение типа 5ТЕПМС, содержащее имя 
и значение нужного параметра настройки операционной системы. Формат 


обращения: 


219 Глава 11 


ЕМУЗТВ (<р>) 


Здесь <)> — выражение типа ПУТЕСЕК; номер параметра. 
Эта функция возвращает строку типа МАМЕ=УАГОЕ, где МАМЕ -— имя, 
а УАГОЕ — значение соответствующего параметра настройки. 


Функция СЕТЕМУ. Возвращает значение типа 5ТАПУС, в котором со- 
держится параметр настройки ДОС. Формат обращения: 


СЕТЕМУ (<имя>) 


Здесь <имя> — выражение типа 5ТЕПИМУС; имя параметра. 
Эта функция имеет параметр обращения МАМЕ, а возвращает значение 
УАГОЕ (см. функцию ЕМУЗТЕ). 


11.6. ОВЕРЛЕЙ 


Как отмечалось в гл.9, максимальный размер модуля не может пре-— 
вышать 64 Кбайта, однако количество модулей не ограничено, что дает 
возможность разрабатывать весьма крупные программы, занимающие, 
например, всю доступную оперативную память ПК (приблизительно 580 
Кбайт). Тем не менее, в некоторых случаях и этот объем может оказаться 
недостаточным. Турбо Паскаль предоставляет в распоряжение програм — 
миста простой и достаточно эффективный механизм оверлея, с помощью 
которого можно создавать программы практически неограниченной длины 
(следует оговориться, что речь идет только о длине кода программы; два 
важных размера — длина сегмента данных и размер программного стека 
— в Турбо Паскале не могут превышать 64 Кбайта независимо от струк — 
туры программы). 

Оверлей — это такой способ использования оперативной памяти, при 
котором в один и тот же участок памяти, называемый оверлейным бу-— 
фером, попеременно по мере надобности загружаются различные овер-— 
лейные (перекрывающиеся) модули. При этом все оверлейные модули в 
готовом к работе виде хранятся на диске, а в оперативной памяти в ка- 
ждый момент находится лишь один активный модуль и, возможно, не-— 
большое число неактивных. 

Пусть, например, программа (рис. 11.1) состоит из главной части МАШУ 
и двух модулей А и В, а [М, ГА и1В -— соответственно длина главной 
части и обоих модулей, причем ГА > [В. Тогда неоверлейная программа 
займет в памяти [М -+ ГА -+ [ГВ байт, в то время как оверлейная программа 
-- лишь ЁМ + ГА байт. | 

При исполнении оверлейной программы в память первоначально за— 
тружается главная часть и один из модулей, например, модуль А. Если в 
процессе исполнения программы встретится обращение к модулю В, 
программа приостановит свою работу, с диска в оверлейный буфер будет 
<агружен модуль В (модуль А при этом частично уничтожается), после чего 
программа продолжит свою работу. Если в дальнейшем встретится об— 
ращение к А, точно таким же образом будет загружен модуль А, причем 
загрузка нужных модулей в оверлейный буфер осуществляется автома — 
тически и программисту не нужно об этом заботиться. 
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а) 6 ) 


Рис.11.1. Пример структуры программы: 
а) неоверлейная, 6) оверлейная 


Описанный механизм выявляет главное преимущество оверлейной 
структуры: объем оперативной памяти, занимаемой оверлейной про- 
граммой, определяется длиной ее главной части и наибольшего из пере— 
крывающихся модулей, в то время как при неоверлейной структуре в этот 
объем входит суммарная длина всех модулей. Чем больше в программе 
оверлейных модулей и чем меныше длина наибольшего из них, тем 
больший выигрыш в памяти дает оверлейная структура. Однако совер— 
шенно очевиден и главный недостаток таких структур: на каждую загрузку 
оверлейного модуля с диска в оверлейный буфер требуется дополни-— 
тельное время, поэтому оверлейная программа будет исполняться с 
меньшей скоростью. | 

Работа оверлейных программ обеспечивается с помощью процедур и 
функций библиотечного модуля ОУЕКГАУ, входящего в библиотечный файл 
ТОЕВО.ТРЕ. 

При создании оверлейных программ нужно руководствоваться сле— 
лдующей последовательностью действий. 

е Выделить главную часть программы и разбить оставшуюся часть на 
несколько модулей. Отметим, что никаких дополнительных ограни— 
чений на модули, по сравнению с описанными в гл.9, не наклады — 
вается за одним исключением: в оверлейных модулях нельзя ис— 
пользовать процедуры обработки прерываний. Желательно про-— 
думать состав модулей таким образом, чтобы по возможности ми- 
нимизировать количество их перезагрузок в оверлейный буфер в 
процессе исполнения программы. 

е В главной части программы указать с помощью директив компи-— 
лятора вила {$О <имя>} те модули, которые будут оверлейными, 
например. 


Ргодхгам Ма1п; 

9=ез СВТ, 005, Схгарн, Оуег1ау, Оп1ЕА, Опт В; 
{50 1205$} 

{50 Пп1ЕА)} 
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{$0 ОптТЕВ} 


Следует подчеркнуть, что из всех стандартных библиотечных модулей 
только один модуль РО5 может быть оверлейным, остальные модули (СКАТ, 
атарР, РипЕг и т.д.) не могут объявляться оверлейными. 


е Предусмотреть перед первым по логике работы программы обра-— 
щением к оверлейному модулю вызов процедуры инициализации 
оверлея ОУКЛЛГТ. Здесь же, если это необходимо, следует установить 
размер оверлейного буфера и указать возможность использования 
расширенной памяти (см. ниже). 


е В начале главной программы и каждого оверлейного модуля необ — 
холимо поместить директивы компилятора {$О0+} и {$Е+} или уста— 
новить опции ОРПОМ$ /СОМРШЕ/ЕОКСЕ РАК САМ5 и ОРПОМ5/ 
СОМРИЕ/ ОУЕВГАУ$ АГГОУ’ЕО (см. прил.1) в активное состояние, 
после чего откомпилировать программу на диск. Программа готова к 
работе. 


Таким образом, все процедуры и функции в оверлейной программе 
должны использовать дальнюю модель вызова — это обязательное условие. 
Отметим, что попытка компиляции оверлейного модуля, в начале которого 
отсутствует директива ({$О0+} (предполагается что опция среды 
ОРПОМ5/СОМРИЕВ/ОУЕКГАУ АШОУЕР неактивна), будет обнаружена 
компилятором, в то время как неправильная (ближняя) модель вызова 
оверлейных подпрограмм компилятором не контролируется и может 
привести к непредсказуемым результатам при исполнении программы. 

Далее, инициация оверлея (осуществляется вызовом процедуры 
ОУЕКПИМТ, см. ниже) должна происходить до вызова любого из оверлейных 
модулей. Это требование кажется тривиальным, однако множество 
проблем в оверлейных программах обычно связано именно с ним. Дело в 
том, что обращение к оверлейному модулю может происходить еще до 
начала работы основной программы: напомню, что любой модуль (в том 
числе и оверлейный) может иметь инициирующую часть, которая испол — 
няется перед началом работы основной программы. В связи с этим ре-— 
комендую придерживаться следующего простого правила: никогла не 
используйте оператор ВЕСИМ в конце модуля, если Вам нет нужды в 
инициирующих действиях; пустая инициирующая часть содержит пустой 
оператор, которому будет передано управление на этапе инициации. 
Таким образом, пустая инициирующая часть оверлейного модуля очень 
часто может вызывать сообщение об ошибке периода исполнения с колом 
208 (не установлена система управления оверлеем). Как же быть, если в 
оверлейном модуле все-таки нужна инициирующая часть? В этом случае 
можно рекомендовать следующий прием. Создайте лишний модуль, в 
котором будут пустыми все части, кроме инициирующей. В этой части 
разместите команды инициации оверлея. Новый модуль не должен быть 
оверлейным и его имя должно стоять в предложении 05Е5 основной 
программы перел_именем любого оверлейного_ модуля. После компиляции 
такой программы инициация оверлея будет осуществляться перед вы- 
полнением любой другой инициирующей части и проблема будет решека. 
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Процедура ОУвтмтт. Инициализирует оверлейный файл. Обращение: 
ОУВТМТТ (<имя>) 


Здесь <имя> — выражение типа 5ТЕИЙМС; имя файла с оверлейной 
частью программы. 

При компиляции оверлейной программы создается специальный файл с 
именем, совпадающим с именем главной программы, и расширением .ОУК. 
В этот файл компилятор помещает все оверлейные модули, из него же эти 
модули загружаются в оверлейный буфер в процессе исполнения про— 
граммы. Файл с оверлейной частью программы должен размещаться в том 
же каталоге, что и файл с главной частью (с расширением .ЕХЕ). Отметим, 
что имя оверлейного файла необходимо дополнять расширением .ОУК. 

Обычно размер оверлейного буфера определяется автоматически таким 
образом, чтобы в нем мог разместиться самый крупный из всех овер— 
лейных модулей. Программист может увеличить размер буфера. Тогда при 
загрузке в буфер очередного модуля программа проверит, достаточно ли в 
буфере свободного места и, если достаточно, загрузит новый модуль сразу 
за старым, который, таким образом, не будет уничтожен. Такой механизм 
способствует минимизации потерь времени на перезагрузку модулей. Если 
установлен очень большой размер буфера, то в нем, возможно, смогут 
разместиться все оверлейные модули, однако в этом случае оверлейная 
структура становится просто ненужной. 


Процедура _ОУВЗЕТВОЕ. Устанавливает размер оверлейного буфера. 
Формат обращения: 


ОУВСЕТВОЕ (<длина>) 


Здесь <длина> — выражение типа [ГОМСИМУТ задает новую длину бу-— 
фера в байтах не больше той, которую устанавливает сама система ав— 
томатически. Расширение буфера идет за счет соответствующего 
уменьшения доступной динамической памяти, поэтому к моменту вызова 
этой процедуры куча должна быть пустой. 


Функция ОУВСЕТВОЕ. Возвращает значение типа ГОМСПУТ, содержащее 
текущий размер оверлейного буфера. Обращение: 


ОУВСЕТВОЕ 


Процедура _ОУВТМТТЕМ$. Обеспечивает использование расширенной 
памяти. Если Ваш ПК относится к классу компьютеров типа 1ВМ РС/АТ и 
в нем имеется так называемая ЕМ5$— память (Ехрапаей Метогу 5ресШсайоп 
- расширенная! память, удовлетворяющая стандарту фирм 
1.0115/ Пце/ Мсго5ой). Вы можете использовать эту память для размещения 
в ней оверлейного файла .ОУК. Поскольку время доступа к расширенной 
памяти значительно меньше времени чтения с диска, такое размещение 
увеличивает скорость исполнения оверлейной программы. Обращение: 


ОУВБТМТТЕМ5$ 


1 Слово расширенная — букальный перевод англ. ехрапае4. В отечественной литературе 
лля ЕМ$- памяти часто используется термин отображаемая. 
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При обращении к этой процедуре программа прежде всего проверит, 
достаточен ли объем имеющейся в Вашем ПК ЕМ5 - памяти для разме— 
щения оверлейного файла. Если это так, то оверлейный файл считывается 
в Е/ЛМ5 — память сам файл закрывается, и программа будет получать 
оверлейные модули из этой памяти. Если же ЕМ$ - память отсутствует или 
ее объем недостаточен, обращение к процедуре игнорируется, и программа 
будет считывать оверлейные модули с диска. 

Все управление оверлеем осуществляется стандартной подпрограммой, 
которая называется администратором оверлея. Эта подпрограмма получает 
управление всякий раз, когда программа обращается к ресурсам овер-— 
лейного модуля, не размещенного в данный момент в буфере. Адлмини— 
стратор оверлея сначала перемещает предыдущий оверлейный модуль из 
буфера в так называемую контрольную зону, а уже затем грузит с диска в 
буфер новый модуль. Если в момент, когда оверлей находится в кон-— 
трольной зоне, программа вновь обратится к нему, он вернется на свое 
старое место и таким образом затраты времени на обмен данными с 
диском будут уменьшены. Программист может задать размер контрольной 
зоны с помощью обращения к процедуре ОУК$ЗЕТКЕТКУ и получить этот 
размер с помощью функции ОУКСЕТКЕТКУ. Обычно размер контрольной 
зоны составляет от одной трети до половины размера оверлейного буфера. 
Вы можете подобрать этот размер экспериментально в ходе пробного 
прогона программы. Для этого используются две переменные модуля 
ОУЕКГАУ: 


уаг 
ОугТгарСоцп®: Мога; {Счетчик обращений к администратору} 
ОугГоаЯСосп®: Мог; {Счетчик загрузок в оверлейный буфер} 


Всякое обращение программы к оверлейному модулю, которого нет в 
оверлейном буфере (в том числе и к модулю, находящемуся в контрольной 
зоне), приводит к наращиванию содержимого переменной ОУКТКАРСОИМТ 
на единицу. Всякая загрузка оверлейного модуля из файла в буфер уве-— 
личивает на единицу счетчик ОУКГОАРСОЦ(МТ. 

В интерфейсной части модуля ОУЕКГАУ объявлены еще три пере- 
менные, которые могут оказаться полезными для некоторых применений. 


{уре 
ухВеаАЕопс = Рапс®1оп (Оугбед: Иока): Тпеедег; 
умах 
УугВеааВаЕЁ : ОугВеааЕГопс; {Функция чтения из 
оверлейного файла} 
угКеза1Е : Тпеедег; {Признак ошибки оверлея} 
УгЕ11еМо4е: Вуее; {Способ доступа к оверлейному файлу} 


Переменная ОУАКЕЗОГТ содержит код, указывающий на успех или 
неуспех каждой очередной операции администратора оверлея. Значения 
той переменной могут быть такими: 

0 — операция прошла успешно; 
—1 — общая ошибка; 
—2 — не найден оверлейный файл; 
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—3 -— не хватает памяти для оверлейного буфера; 
—4 — ошибка чтения — записи оверлейного файла; 
—5 — не работает драйвер ЕМ5- памяти; 

—б6 — не хватает ЕЁ/ЛМ5$ — памяти. 

Переменная ОУКЕШЕМОРЕ обычно содержит 0, что трактуется как 
возможность доступа к оверлейному файлу только для чтения информа — 
ции. Перед вызовом процедуры ОУКПИТ программа может установить 
другое значение этой переменной и таким образом изменить доступ к 
файлу, что бывает необходимым, если ПК подключен к сети ЭВМ. 

В переменной ОУККЕАРВОЕ содержится имя функции, к которой об-— 
ращается администратор оверлея при кажлом чтении из оверлейного 
файла. Программа может перехватить обращение к этой функции и 
проанализировать результат операции. Для этого необходимо в основной 
программе сохранить имя стандартной функции чтения в глобальной 
переменной типа ОУККЕАРЕИМС и поместить в переменную ОУККЕАРВОЕ 
имя новой функции. В эту новую функцию администратор будет пере— 
давать управление всякий раз, когда появится необходимость чтения из 
оверлейного файла. Программа может проверить состояние дисков перед 
исполнением операции (например, наличие нужного сменного диска), 
выполнить саму операцию (путем вызова функции, сохраненной в гло— 
бальной переменной}, проверить результат обращения и предпринять 
необходимые действия. Отметим, что нормальное завершение операции 
чтения указывается нулевым значением функции чтения, ненулевое зна— 
чение означает ту или иную ошибку; код ошибки стандартен для ДОС (см. 
прил.3) и/или для драйвера ЕМ5$ — памяти. 

При желании Вы можете пристыковать оверлейный файл в конец ЕХЕ-— 
файла основной программы. При этом следует учесть, что интегрированная 
среда пристыковывает в конец ЕХЕ—файла отладочные таблицы, поэтому 
программу и все ее модули следует компилировать в режиме отключенных 
опций ОРПОМ5 /СОМРИЦЕК/РЕВИС 1ПМЕОКМАПОМ и ОРТОМУ/СОМ- 
РШЕК/ГОСАГ 5УМВОГ (см.прил.1.2.8). Аля объединения ЕХЕ- файла с 
оверлейным файлом необходимо дать такую команду ДОС: 


СОРУ /В МАМЕ. ЕХЕ+МАМЕ . ОУК 


Здесь МАМЕ.ЕХЕ — имя ЕХЕ- файла, МАМЕ.ОУК — имя оверлейного 
(файла. Чтобы оверлеи читались из ЕХЁ— файла, нужно просто указать имя 
этого файла при обращении к ОУКПТ: 


ОзхТп1 Е (Рахай5 Ех (0)); 


(в программу всегда передается параметр Рагат5И(0), в котором ДОС 
сообщает полное имя запущенной программы — с указанием диска и 
каталога, откуда была загружена программа). 


11.7. ПРЯМОЕ ОБРАЩЕНИЕ К ПАМЯТИ 
И ПОРТАМ ВВОДА-ВЫВОДА 


В Турбо Паскале имеется пять предварительно объявленных массизов: 
МЕМ, МЕМУ/ МЕМЕ, РОКТ и РОКТИ.. Первые три обеспечивают доступ к 
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любому участку оперативной памяти по абсолютному адресу, два других — 
доступ к портам ввода -— вывода. 

Компонентами массива МЕМ являются ланные типа ВУТЕ, массива 
МЕМИ/ — типа ИУ/’ОЕКО, массива МЕМГ — типа ГОМСПУТ. Обращение к 
элементам этих массивов, Т.е. их индексация, имеет специальный вил: 
каждый индекс представляет собой абсолютный адрес и состоит из двух 
выражений типа И’ОКГ; первое дает сегментную часть адреса, второе — 
смещение; выражения разделяются двоеточием. Например: 


Меп[$0000:$1000] := 0; 
РафаМемт := Мепи [5еча (р) :ОЁз (р) ]; 
МепЬгопа := Меть [64:1*512е0Е (геа1)]; 


Как следует из технического описания операционной системы М$-—ШОО5, 
в памяти по адресу $ЕР000:$ЕЕЕЕ располагается байт—указатель типа 
компьютера. Следующая программа (пример 11.5) прочтет этот байт и 
выведет на экран тип Вашего ПК. 


Пример 11:5 
Бедзп о = . | 
Му1$е (' Тип компьютера: '); 
сазе Мет [$7000:5ЕРЕЕЕ] оЕ 
о ЗЕЕ : МглЕеГл ('РС'); - 
‚ЗЕЕ : МгувеЬл ("ХТ');. | 
.$ЕО. : Иг1бетл ('Рбух');° ” 
$ЕС-: Мг1Еерп(“АТ!); | 
$Р9Э : Иг1беГл ('совместимый с РС') 
епа | о 
епа. 


Компонентами массива РОЕТ являются байты (тип ВУТЕ), а массива 
РОКТУИ/’ — слова (тип И/’ОКО). Индексами этих массивов должно быть 
выражение типа ВУТЕ, указывающее номер нужного порта. Присвоение 
значения элементу массива РОКТ или РОКТИ’ приведет к записи в порт, 
упоминание элемента в выражении — к чтению из порта. Компоненты 
массивов РОКТ и РОКТИ/ нельзя передавать в качестве параметров про-— 
цедурам или функциям. Эти идентификаторы не употребляются без ин- 
дексных выражений. 


11.8. АЛИННЫЕ СТРОКИ 


Среда Турбо Паскаль 7.0 обладает весьма интересным новшеством: в 
ней введена поддержка длинных строк, т.е. строк, длина которых может 
превышать 255 байт. Как известно, тип 50тд в Турбо Паскале имеет 
максимальную длину 255 байт. Это связано с тем, что истинная длина 
строки в этом типе указывается первым байтом, мощность которого не 
позволяет определять строки большей длины. В то же время в языке С 
используется другой подход к заданию текстовых строк: первый байт 
строки является ее первым символом, второй байт — вторым символом и 
т.д. пока не встретится байт с символом #0. Таким образом, длина строки 


8—1411 
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не указывается явно, как в типе 5пд, а определяется по замыкающему 
символу #0. Ясно, что такие строки могут иметь произвольную длину, 
ограничиваемую лишь объемом оперативной памяти или принятой схемой 
ее адресации: в М5—РО$ такой границей является длина сегмента, поэтому 
максимально возможная длина С—строки для ПК составляет 65535 сим -— 
волов. Такие строки в дальнейшем будем называть А$СПИ — строками. 

Для реализации операций над АЗСИ2- строками в язык введен новый 
тип РСПаг, определяемый как указатель на символ: 


фуре 
РСПаг =^Сраг; 


Однако такой обычный для Паскаля тип-указатель в рамках Турбо 
Паскаля 7.0 трактуется необычным способом: считается, что он указывает 
на цепочку символов, заканчивающуюся терминальным нулем, т.е. на 
АЗСПИЕ- строку. Более того, с этим типом совместим любой одномерный 
символьный массив с нулевой левой границей, а переменные типа РСРПаг 
можно индексировать, как если бы они были массивами символов. Сле-— 
дующая программа напечатает все заглавные буквы английского алфавита: 


{$Х+. {Включаем расширенный синтаксис} 

уах 
СРагз$ : агхау [0..26] оЕЁ Спаг; {Массив символов} 
РСПа::$: РСраг; {Указатель на символ} 
| : Тпеедег; 

Бед1п 
Бог К := 0 во 25 а 

СПагз[К] := Сок (К+ога('А'); {Наполняем массив} 

РСРагз := Сраг$; {Указателю присваиваем массив! } 
РСПаг$ [26] := #0; {Индексируем указатель! } 
Их1сеГл (РСВагз) {Печатаем указатель!) 

епа. 


Три последние оператора программы недопустимы в стандартном 
Паскале и в ранних версиях Турбо Паскаля, но возможны + версии 7.0, 
если включен расширенный синтаксис (лирективой {$Х+)} или опцией 
ОрНоп$/Сотриег/ЕжепаеЯ зущах). Обратите внимание: процедура ИтйеГп 
этой версии умеет работать с АЗСПЕ -— строками. 

Для поддержки АЗСП/—строк разработан модуль 5195, в котором 
реализованы необходиме процедуры и функции. 


Функция 5+Е:Са+. Объединяет строки. Заголовок: 
РапсЕ1оп 5ЕхгСаф (РезЕ, боцгсе: РСраг): РСцаг; 


Копирует строку 5оигсе в конец строки Оез{ и возвращает указатель на 
начало Дез1. 


Функция 5ЕхСопр. Сравнивает строки. Заголовок: 
Рапсе1топ 56гСопр (5%г1, 5%г2: РСраг): Тпеедег; 
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Побайтно сравнивает строку 5Н!1 со строкой 512 и возвращает сле-— 
дующий результат: 


=0 511=$Н2, 
>0 511>5Н2: 
<0 5$Н1<5Н2. 


Функция 5ЕхСору. Копирует строку. Заголовок: 
РКапсЕ1оп 5ЕгСору (0езе, боцксе: РСраг): РСраг; 


Копирует строку 5оигсе в строку Без! и возвращает указатель на Ре-(. 
э5нСору не проверяет реальный размер памяти, связанный с Пе5Ё (он 
должен быть не меньше 5&гфеп (боагсе) +1). 


Процедура 5:11 зрозе. Удаляет строку из кучи. Заголовок: 
Ргосе4иге 5Ег015розе (5Ех: РСВаг); 


Строка 5Ш должна быть предварительно помещена в кучу функцией 
энМ№ и. Если 5= МП. процедура ничего не делает. 


Функция 5ЕхЕСору. Объединяет строки. Заголовок: 
РапсЕзоп ЗЕгЕСору (Везе, Зопгсе: РСпаг): РСпаг; 


Эта функция работает в точности как 5НСаЁ но возвращает указатель 
на конец сцепленных строк, т.е. на терминальный ноль. 


Функция 5+тЕпа. Возвращает конец строки. Заголовок: 
ЕапсЕ1оп ЗегЕпа (56г: РСваг): РСпаг; 


Функция возвращает указатель на терминальный ноль АЗСИЙ- строки 
5И. 


Функция 5Е:ТСотр. Сравнивает строки. Заголовок: 
Еипсё1оп ЗЕгТСопр (5%:1, 5ег2: РСВаг): РСВаг; 


Функция сравнивает строки, игнорируя возможную разницу в высоте 
букв. Возвращает такой же результат, как и 5#Сотр. Замечу, что функция 
правильно работает лишь с латиницей. Для кириллицы ее нужно моли-— 
фицировать (см. ниже). 


Функция 5Е:ТСа+. Объединяет строки. Заголовок: 
Гапсе1оп 5ЕгГСа® (Резе, боцгсе: РСраг; МахГеп: Мога): РСраг; 


Копирует символы строки 5боигсе в конец строки ПОезЁ до тех пор, пока 
не будут скопированы все символы или когда длина сцепленной строки 
12е51 не достигнет МахЁеп. Возвращает указатель на сцепленную строку. 

В отличие от 5ЁСору эта функция блокирует возможное переполнение 
области памяти, связанной с Рез{. Обычно в качестве МахЁеп используется 
выражение $12е0Е (Рез+) -1. Например: 


{$Х+} 
Озез 5(г11п9$; 
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уах 

5: агхау [0..9] оЕ Сваг; 
Бедап 

ЗЕгСору (5, "'Тагро!'); 

ЗЕхГСае (5, ' ', 512е0Е (5$) -1); 

ЗЕхГСаф ($, "'Разса1'!, $17е0Е ($) -1); 

Иг1ЕеГл (5) {Напечатает "Тигро Раз"} 
епа; 


Функция ЗЕЕЬСопр. Сравнивает строки. Заголовок: 
РапсЕ1оп ЗЕгГСопр (РезЕ, бочгсе: РСВаг; МахГеп: ШМога): РСьаг; 


В отличие от 5НСотр сравнивает не более МахЁеп символов строк. 
Возвращаемый результат такой же, как и у 5ИСотр. 


Функция 5ЕгГСору. Заголовок: 
ЕапсЕ1оп 5ЕгГСору (Резе, боцгсе: РСВаг; МахЦеп: Могка): РСваг; 


Копирует символы из строки 5оигсе в строку Оез{ до тех пор, пока не 
будет скопирована вся строка или пока не будет скопировано МахЁеп 
символов. В отличие от 5ИСору блокирует возможное переполнение об-— 
ласти памяти, связанной с рез В качестве МахЁГеп обычно используется 
выражение $512е0Е (0ез*) -1. Например: 


{$Х+} 
О9зе$ 5:11п9$; 
\уах 
5: агхау [0..9] оЕЁ Стаг; 
ред1п 
ЗЕхГСору (5, 'Тигро Разса1', $12е0Е (5$) -1); 
Му1 Ее! (5): {Напечатает "Тигро Ра5"} 
епа; 


Функция 5ЕгГеп. Возвращает длину строки. Заголовок: 
РаипсЕ1зоп 56гСа®(56г: РСраг): Мокгка; 


Функция 5: ТСопр. Сравнивает строки с учетом регистра. Заголовок: 
Рапсе1оп СЕхЬТСопр (5:1, 5:2: РСБаг; Мах еп: Мога): РСрахг; 


Сравнивает не более МахЁеп символов строк, проверяя точное соот-— 
ветствие высоты букв. Возвращаемый результат см. 5ИСотр. Функция 
правильно работает только с латиницей. 


Функция ЗЕгГомег. Преобразует в строчные буквы. Заголовок: 
ЕапсЕ1оп ЗЕгГомег (5х: РСВаг): РСраг; 


Преобразует заглавные буквы строки 5 к строчным и возвращает 
указатель на результат. Функция правильно работает только с латиницей. 


Функция ЗЕгМоуе. Копирует строку. Заголовок: 
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ГапсЕ1оп ЗЕгМоуе (.езе, бойцгсе: РСраг; Сопп®: Мога): РСваг; 


Копирует точно СоипЁ символов строки 5ошсе в строку ПезЁ и воз— 
вращает указатель на результат. Функция игнорирует действительные 
размеры строк и может выйти за их пределы. 


Функция 5ЕхМем. Помещает строку в кучу. Заголовок: 
РГапсЕ1оп бЕгМеи(5%хг: РСраг): РСраг; 


Функция ЗЕгРаз. Преобразует А$СП7- строку в строку 51119. Заго-— 
ЛлОВОК: 


РЕапсЕ1оп ЗЕгРаз (5х: РСВаг): Зехг1па; 


Функция 5ЕгРСору. Преобразует строку 519 в А$СП7- строку. За— 
ГОЛОВОК: 


РапсЕетоп ЗЕгРСору(56х: РСВаг; 5: 8%х1па): РСраг; 
Возвращает указатель на $1. 
Функция ЗЕгРоз. Ищет подстроку. Заголовок: 
РГапсЕтоп ЗЕтРо$ (56:1, 5х2: РСВаг): РСВаг; 


Ишет подстроку 512 в строке 5И1 и возвращает указатель на первое 
вхождение 512 или МП. есди подстрока не найдена. 


Функция 5Е:В5сап. Ищет последний символ. Заголовок: 
РапсЕ1оп ЗЕхВбсап (5%г: РСраг; СП: Сват): РСпах; 


Ищет символ СА в строке 5М и возвращает указатель на последний 
обнаруженный символ СА или МП. если символ не найден. 


Функция ЗЕгбсап. Ищет первый символ. Заголовок: 
Кипсе1оп ЗЕгбсап (5х: РСпаг; СП: Спаг): РСпаг; 


Ищет символ СВ в строке 5Н и возвращает указатель на первый сб-— 
наруженный символ СЛ или МП. если символ не найден. 


Функция 5Ех0Оррег. Заголовок: 
РапсЕ1топ 5$гЬомег (5х: РСрат): РСпаг; 


Преобразует строчные буквы строки 5 к заглавным и возвращает 
указатель на результат. Функция правильно работает только с латиницей. 


Четыре функции модуля 5Нп9$ (5ИТомег, $иОррег, 5#Н1Сотр и 
«ТЫСотр) используют преобразование высоты букв и работают корректно 
только для букв латинского алфавита (латиницы). Аля русских букв эти 
(рункции можно изменить следующим образом: 


‘Этот модуль содержит модификацию Функций стандартного 
модуля 5119$ для работы с кириллицей (альтернативный 
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вариант кодировки} 
[$Х+} 
Опт ЗЕг1па38В; 
ТМТЕВЕАСЕ 
ЕапсЕ1оп ГоСазе (СН: Спаг): Сраг; 
Еапсе1оп ОрСазе (Сп: Спаг): Спаг; 
КапсЕтоп ЗегГомег (56г: РСПаг): РСЦаг; 
ЕипсЕлоп 5ЕгОррег(5ег: РСраг): РСрВаг; 
РКапсЕ1оп ЗЕЕТСопр (5:1, 56:2: РСпаг): Тпеедег; 
ЕапсЕ1оп 5Ее:ТСопр (5:1, 56:2: РСВаг; МахЦеп: Мога): Тпбедег; 
ТМРЬЕМЕМТАТТОМ 
Озез 5Ег1па$; 


РапсЕтоп ГоСазе (СИ: СПаг): Сзаг; 
{Преобразует латинскую или русскую букву СП к строчной} 


Ред1п 
сазе Сп оЕ 
'А'..'7!: ГоСазе := СЦи (ога ('а') +огха (Сп) -ога(А')); 
'А'..'П'!; ГоСазе := СЬг (ога ('а!) +ога (СВ) -ога('А!'!)); 
'Р'..'Я!'!: ТоСазе := Сыг(ога('р'!)+ога (Сп) -ога('Р')); 
е]15е 

ТоСазе := Сп 

епа 

епа; 


ее ---------- } 
РапсЕ1оп ОрСазе (СП: Сраг): Срваг; 
{Преобразует латинскую или русскую букву СВ к заглавной} 
Бедап 

сазе Сп оЕЁ | | 

'а'..'27!: ОрСазе := Сыг (ога ('А!) +ога (СП) -ога ('а ; 


) 
); 
) 


') 
'а'..'п': ОрСазе := Ст (ога ('А') +ога (Сп) -ога ('а') 
'р'..'я!: ОрСазе := Сиг (ога ('Р') +ога (СВ) -ога ('р')); 
е1зе | 
ОрСазе := СП 
епа 


ГапсЕ1оп осгГомег (5%г: РСпаг): РСпаг; 
‚Преобразует латинские и русские буквы строки $5Ёг к строчны} 
\гаг 


К: Мога; 
Ьедзп | 
Бог К := 0 во ЗЕгГеп (56х)-1 ао 
Зе’[К;, := ГоСазе (56х[Кк]); 
ЗЕгГромег := 56 
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ГипсЕ1оп 5ЕгОррег(5Ехг: РСраг): РСраг; 
{Преобразует латинские и русские буквы строки 5ЁЕг к заглавным} 
уаг 


К: Мога; 
Бед1п 
Бог К := 0 во Зеггеп (56:)-1 @ао 
ЗЕг[К] := ОрСазе (5%:[К]); 
5егОррег := ЕЕ 
ела; 
ея нененн-н------------------ } 


РапсЕ1оп ЭЕгТСопр (5.1, 5Ех2: РСПаг): Тпседег; 
{Сравнивает две строки, игнорируя возможную разницу в высоте 
латинских или русских букв} 


\аг 
К: Мога; 
Мах: ПМога; 

Бедлп 


{Определяем максимальное количество сравниваемых символов 
как минимум длин строк} 


Мах := ЭегЬеп (56:1); , 
1Е эЗегГеп (5:2) <Мах еп 
Мах := ЗЕхьеп ($$:2); 


{Проверяем символы до первого несовпадения. 
Буквы преобразуем к заглавным} 
Бог К := 0 ®о Мах-1 ао 
12 ОрСазе (5%г1[К]) <>ОрСазе (5$%г2[КкК]) %Веп 
Ъед1п 
{Сроки не равны} 
5&гТСошр := ога (ОрСазе ($%г1[К]) } -ога (ОрСазе (5х2 [К])); 
Ехал 
епа; — 
{Разницы нет - результат зависит от совпадения длин} 
5ЕкТСошр := 5Егеп (5.1) -5Е еп (56:2) 


Рипсетоп ЗЕгТСопр (5611, 56:2: РСраг; МахЪеп: Мога): Тпфеде:; 
‚Сравнивает не более МахГеп символов строк, проверяя точное 
соответствие высоты букв} 


хгах 
К: Мога; 
Мах: Мога; 
›ед1лп 


{Определяем максимальное количество сравниваемых символов. 
как минимум длин строк и Мах[еп} 


Мах := Махьеп; 
1Е ЗехгГел (5$%г1)<Мах еп 
Мах := ЗеуьЬеп (5%:1); 


1Е Зетьеп (56:2) <Мах %Ъеп 
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Мах := ЗЕхГеп (54:2); 
{Проверяем символы до первого несовпадения. 
Буквы преобразуем к заглавным} 
Бог К := 0 о Мах @ао 
1Е ОрСазе (5%:1 [К] ) <>ОрСазе (5%:2[к]) %Беп 
Ьед1п 
ЗЕгЬТСотшр := ога (ОрСазе (5%х1[К]))- 
ога (ОрСазе (5%:2[*%])); 
Ех 
епа; 
{Разницы нет. Если проверено МахГеп символов, строки 
считаются равными, в противном случае результат зависит 
от совпадения длин строк} 
1Е Мах=МахГеп ®Ъеп 


ЗЕкЬТСошр := 0 
е1зе 
ЗЕхЬТСотр := ЗееЬеп (5%:1) -5Е хелп (5%г2) 
ера; 
епа. 


Если Вы будете использовать этот модуль, ссылайтесь на него в пред— 
ложении И5е$ после ссылки на стандартный модуль 5Н1птд$: 


Озез 5Ег1па$, ЭЕг1пазвВ, 
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ВСТРОЕННЫЙ АССЕМБЛЕР 


Ассемблером называется машинно—зависимый компилятор, преоб-— 
разующий специальным образом составленные текстовые строки в ма-— 
шинные инструкции. Как и любой другой компилятор, ассемблер упрощает 
разработку программ за счет того, что предоставляет пользователю доступ 
к кодам машинных инструкций и операндам с помощью символьных имен. 

В этой главе рассматриваются приемы программирования с помощью 
ассемблера, встроенного в компилятор Турбо Паскаля. Встроенный ас-— 
семблер имеется в версиях 6.0 и 7.0 Турбо Паскаля и в руках опытного 
программиста представляет собой мощный инструмент, позволяющий 
«выжать» из ПК все возможное. 


12.1. ОБЩЕЕ ОПИСАНИЕ МП 8086/8088 


Встроенный ассемблер (лалее — просто ассемблер) дает возможность 
программировать на уровне отдельных машинных инструкций. Это — 
главное отличие ассемблера от Паскаля и в этом отличии сосредоточены 
все его достоинства и недостатки. Достоинство заключается в том, что, 
программируя на ассемблере, программист обычно выбирает последова— 
тельность машинных инструкций так, чтобы реализовать нужные вычис-— 
ления с максимальной скоростью при минимальных затратах памяти, в то 
время как даже такой весьма совершенный компилятор, как компилятор 
Турбо Паскаля, неизбежно вносит в машинный код некоторую избыточ — 
ность, уменьшающую скорость счета и. увеличивающую затраты памяти. С 
другой стороны, программирование на уровне машинных инструкций — 
чрезвычайно хлопотное занятие и не может сравниться по скорости раз— 
работки программ с программированием на Паскале — в этом заключается 
тлавный недостаток ассемблера. 

Чтобы использовать средства ассемблера, необходимо ясно представлять 
себе детали архитектуры микропроцессоров [ие] 80х86. К. этому семейству 
относятся микропроцессоры: 


8086 — 16—разрядный микропроцессор, используемый в ПК (ВМ 
РСУХТ; 
8088 — аналог 8086, отличается от него только взаимодействием с 


памятью: 8086 может обмениваться с памятью как байтами, так и 16-— 
разрядными словами, в то время как 8088 — только байтами; 

80286 — улучшенный вариант 8086, используемый в ПК 1ВМ АТ; может 
работать в двух режимах: в реальном режиме, полностью эмулирующем 
работу МП 8086, и в защищенном режиме, в котором способен адресовать 
память до 16 Мбайт (в реальном — до 1 Мбайт); 

80386 — 32 —разрядный вариант 80286; способен адресовать до 4 Гбайт; 

80486 — комбинация 80386/80387, т.е. имеет внутреннюю подсистему 
реализации операций с плавающей точкой; 
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80586 (РепНит) — имеет ряд усовершенствований, обеспечивающих ему 
увеличение производительности в 2...3 раза по сравнению с 80486, в том 
числе возможность обрабатывать 64 — разрядные числа. 

Микропроцессоры этого семейства наращивают свои возможности в 
перечисленном порядке, но строго совместимы от младших моделей к 
старшим: все, что может 8086/8088, реализует и РепНит, но не наоборот. 
Ниже обсуждается архитектура (внутреннее устройство, способы адре-— 
сации и система команд) МП 8086/8088. 


12.1.1. Регистры 


В МП 8086/8088 имеется 14 регистров. В функциональном отношении 
они делятся на группы: 

е регистры общего назначения (АХ, ВХ, СХ, ОХ); предназначены для 
хранения операндов и выполнения основных команд; любой из них 
может использоваться как совокупность двух независящих друг от 
друга 8 — разрядных регистров: старшего байта регистра (АН, ВН, СН, 
ОН) и младшего байта (АГ, ВЕ, СГ, ОГ); например, АХ состоит из АН и 
АГ; 

® сегментные регистры (С5, 25$, 55, Е5); используются для указания 
сегмента при адресации памяти; 

® регистры -— указатели (5Р, ВР, 1Р)}; используются для указания сме-— 
щения при адресации памяти; 

е индексные регистры (51 О/); применяются для индексной адресации; 

е регистр флагов; используется для хранения признаков состояния 
процессора. 

Внутри одной и той же функциональной группы регистры используются 
различным образом. Ниже описывается специфика использования реги — 
стров. 

Регистр АХ. Является основным сумматором. Используется во всех 
арифметических операциях (сложить, умножить и т.п.). Только с помощью 
АХ и его полурегистров АН/АГ возможен обмен данными с портами вЕо-— 
да/вывода. 

Регистр ВХ. Используется как сумматор в арифметических операциях, а 
также как базовый регистр при индексной адресации. 

Регистр СХ. В основном используется как счетчик при выполнении 
операций повторения и сдвига. Может также участвовать в арифметиче — 
ских операциях. 

Регистр ОХ. Используется как регистр данных в операциях вЕО-— 
ла/вывода, а также как сумматор при обработке длинных целых чисел 
(32 — разрядных). 

Регистр С$. Содержит номер сегмента памяти (сегмента кода), в ко- 
тором располагается текущая машинная инструкция. Для получения 
полного адреса слелующей команды его содержимое сдвигается влево на 4 
разряда и складывается с регистром — указателем 1Р. Содержимое С5 вв— 
томатически изменяется в командах дальнего (межсегментного) перехода и 


вызова процедур. 
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Регистр ПР. Определяет смещение относительно начала сегмента кода 
С5 очередной исполняемой машинной инструкции. Содержимое 1Р ав- 
 томатически изменяется в ходе исполнения инструкции, обеспечивая 
правильный порядок выборки команд из памяти. 

Регистр 0$. Содержит номер сегмента памяти (сегмента данных), 
котором располагаются данные (константы и переменные). Все глобальные 
переменные и типизированные константы программы Турбо Паскаля 
всегда располагаются в единственном сегменте, адресуемом этим реги— 
стром. 

Регистр $$. Содержит номер сегмента стека. Стек — это участок ав— 
тоадресуемой памяти, предназначенный для временного хранения опе— 
рандов. С помощью стека Турбо Паскаль организует обмен данными 
между программой и процедурами, кроме того, в нем он размещает все 
локальные переменные (т.е. переменные, объявленные внутри процедуры). 
Память стека используется по правилу «последним пришел — первым 
ушел»: самый последний помещенный в стек операнд будет первым из-— 
влекаться из него. 

Регистр 5ЗР. Указывает на вершину стека, т.е. совместно с регистром 55 
адресует ячейку памяти, куда будет помещаться операнд или откуда он 
будет извлекаться. Содержимое этого регистра автоматически уменьшается 
после размещения в стеке очередного операнда и увеличивается после 
извлечения операнда из стека. 

Регистр ВР. Так называемый указатель базы. Облегчает создание и 
использование локального стека (Т.е. стека для использования внутри 
процедуры). 

Регистр ЕЗ. Дополнительный сегментный регистр ЕЗ используется для 
межсегментного обмена данными и в некоторых строковых операциях. 

Регистр 51. Определяет адрес источника информации при индексной 
адресации ланных (например, при обработке массивов). Обычно исполь — 
зуется в паре с регистром 25. 

Регистр ПТ. В паре с регистром Е$ определяет приемник информации 
при межсегментном обмене данными. 

Регистр флагов. Отдельные разряды (биты) этого регистра имеют 
следующее назначение. 

Флаг переноса СЁ. Содержит 1, если произошел перенос единицы при 
сложении или заем единицы при вычитании. Используется также в цик— 
лических операциях и операциях сравнения. 

Флаг четности РЕ. Содержит 1, если в результате операции получено 
‹исло с четным количеством значащих разрядов, Т.е. дополняет результат 
0 нечета — используется в операциях обмена для контроля данных. 

Флаг внешнего переноса _АЁР. Контролирует перенос из 3-го бита 
данных. Полезен при операциях над упакованными десятичными числами. 

Флаг_нуля ГЕ. Равен 1, если в результате операции получен ноль, и 
равен 0 в противном случае. 

Флаг знака 52Р. Равен 1, если в результате операции получено отри — 
цательное число (с единицей в старшем разряде). | .. 
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Флаг трассировки ТЕ. Равен 1, если программа исполняется по шагам, с 
передачей управления после каждой выполненной команды по преры-— 
ванию с вектором 1. 

Флаг прерываний ГЕ. Содержит 1, если микропроцессору разрешена 
обработка прерываний. 

Флаг направления РЕ. Управляет направлением передачи данных: если 
он содержит 0, то после каждой индексной операции содержимое ин- 
дексных регистров увеличивается на 1, в противном случае — уменьшается 
на 1. 

Флаг_ переполнения ОР. Устанавливается в единицу, если в результате 
операции получено число, выходящее за разрядную сетку микропроцес— 
сора. 


12.1.2. Адресация 


В архитектуре МП 8086/8088 адрес любого байта задается двумя 16— 
битовыми словами — сегментом и смещением. При формировании 20-— 


разрядного полного адреса, необходимого для адресации в пределах 1 
Мбайт, сегмент сдвигается влево на 4 разряда (умножается на 16) и 
складывается со смещением. Поскольку емкость 16 — разрядного смещения 
составляет 65536 значений, в. пределах одного сегмента можно адресовать 
ло 64 Кбайт. 

Архитектура МП позволяет использовать семь различных способов 


адресации. 


Регистровая 
Извлекает операнд из регистра или помещает его в регистр. Примеры: 
мо\У ах,Ьх {Извлекаем из ВХ и помещаем в АХ} 
аЯЯ сх, ах {Содержимое АХ прибавляем к СХ} 
разв сх {Заталкиваем в стек содержимое СХ} 
Непосредственная 


Операнд (8— или 16-—разрядная константа) содержится непосредст-— 
венно в теле команды. Примеры: 


поУу ах,100 {Загружаем в АХ значение 100} 

ааа ах, 5 {К содержимому АХ прибавляем 5} 

шоу сх, 5РЕЕЕ {Помещаем в СХ значение 65535} 
Прямая 


Смещение операнда задается в теле программы и складывается с ре- 
тистром 05; например: 


уаг 

Х: Могка; 

В: Вуе; 
поУу ах,Х {Пересылаем значение переменной Х регистр АХ} 
а@ая ар,В {К содержимому регистра АН прибавляем | 
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значение переменной В} 


поУ Х,ах {Пересылаем содержимое регистра АХ 
в область памяти переменной Х} 


Косвенная регистровая 


Исполнительный адрес операнда (точнее, его смещение) содержится в 
одном из регистров ВХ, ВР, $1 или П1. Аля указания косвенной адресации 
этот регистр должен заключаться в квадратные скобки, например: 


‚по\у ах, [Ьх] {Содержимое 16-разрядного слова, хранящегося 
в памяти по адресу 1$:ВХ, 
пересылаем в регистр АХ}; 


Каждый из регистров ВХ...ОГ] по умолчанию работает со своим сег- 
ментным регистром: | 


р$:ВХ, 55:ВР, 05:51, ЕЗ: ОТ 


Допускается явное указание сегментного регистра, если он отличается 
от умалчиваемого, например. 


поУ ах, ез: [ъх] 


Адресация по базе 
Базовый регистр ВХ (или ВР) содержит базу (адрес начала некоторого 
фрагмента памяти), относительно которой ассемблер вычисляет смещение, 
например: 


пох ах, [6х] +10 {Загружаем в АХ 10-й по счету 
байт от начала базы памяти 
по адресу 105$:ВХ}; 


Индексная адресация 
Олин из индексных регистров 51 или О] указывает положение элемента 
относительно начала некоторой области памяти. Пусть, например, АОВ — 
имя массива значений типа Вуе. Тогда можно использовать такие фраг— 
менты: 


пох $1,15 {Помещаем в 5Т константу 15} 

то\х ав,АОВ [$1] {Пересылаем в АН 16-й ПО 
порядку байт от начала массива} 

пох $1,0 

оу АОВ[51], ав {Пересылаем полученное в 


самый первый элемент массива} 


Адресация по базе с индексированием 


Вариант индексной адресации для случая, когда индексируемая область 
памяти задается своей базой. Например: 


оу ах, ([№х] [$1] 
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Этот тип адресации удобен при обработке двумерных массивов. Если, 
например, АОВ есть массив из 10х10 байт вида 


уах 
АОВ: аггхау [0..9,0..9] оЕ ВуЕе; 


то для доступа к элементу АОВ [2,3] можно использовать такой фрагмент 


пох ьх,20 {База строки 2} 
пох $1,2 {Номер 3-го элемента} 
пох ах, АОВ[Ъх] [$1] {Доступ к элементу} 


12.1.3. Система команд 


В приводимых ниже таблицах указывается мнемоника всех допустимых 
инструкций для МП 8086/8088. Для удобства пользования все команды 
разбиты на 6 функциональных групп — пересылки данных, арифмети — 
ческие, битовые, строковые, передачи управления, прерываний. Внутри 
каждой группы команды объединяются в подгруппы по общим дополни— 
тельным признакам. 

Детальный анализ всех команд МП 8086/8088 занял бы слишком много 
места, поэтому в идущих за таблицами пояснениях рассматриваются лишь 
наиболее популярные команды. Исчерпывающее описание всех команд Вы 
найдете в [1], [20]. 


Команды пересылки данных 


Мнемоника Формат Пояснение 


Команды общего назначения 


МОУ МОУ приемник, источник Переслать значение 


РОЗН РОЗН источник Поместить в стек 
РОР РОР приемник Извлечь из стека 
ХСНС ХСНС приемник, источник Обменять значения 
ХГАТ ХЕАТ таблица Загрузить в АГ, байт из таблицы 
Команлы ввода-вывода 
ТМ ПУ аккумулятор, порт Читать из порта 
ООТ ОЧТ порт, аккумулятор Записать в порт 


Команды пересылки адреса 


ТЕА ТЕА регистр16, память16 Загрузить исполнительный адрес 


‚ Ъ05 [05 регистр16, память32 Загрузить в О5:регистр16 полный адрес 
ТЕЗ ГЕ$ регистр16, память32 Загрузить в Е5:регистр16 полный адрес 
Команды пересылки флагов 

ГАНЕ Загрузить флаги в АН_ 

ЗАНЕ Установить флаги из АН 

РОЗНЕ РОЗНЕ Поместить флаги в стек 

РОРЕ РОРЕ Извлечь флаги из стека 

Одна из наиболее часто используемых команд — МОУ позволяет в 


;:ащищенном режиме переслать байт или слово из регистра в регистр из 
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памяти в регистр или из регистра в память. Тип пересылаемых данных 
(байт или слово} определяется регистром, участвующим в пересылке. Ниже 
приводятся примеры использования команды: 


пох ах, Таб]1е {Пересылка слова из памяти в АХ} 
пох Табе, ар {Пересылка байта из АН в память} 
поУу аз, ах {Пересылка в сегмент данных} 


поУу ез: [рх],‚, ах {Пересылка слова в память; базовая 
адресация с заменой сегмента} 

пох св, -17 {Переслать константу в регистр} 

поУ Таб1е,5ЕЕ {Переслать константу в память} 


С помощью МОУ нельзя пересылать: 
е из памяти в память, например, вместо 


пох Мепт1,Мепм2 
следует использовать 


оу ах,Мем2 
пох Меп1, ах 


е константу или переменную в 25, например, нельзя 
шоу 05, Бафа_5еч 
нужно: 


по\у ах, Бафа_5едч 
оу аз, ах 


е один сегментный регистр в другой, например, нельзя 
поУу ез,а$ 
но можно 


гоу ах, &5$ 
поУу ез,ах 


е в регистр С5; значение этого регистра (сегмента кода) автоматически 
меняется при выполнении дальних команд САЁШ и ЛМР; кроме того, 
он загружается из стека при выполнении команды КЕТЕ (выход из 
дальней процедуры). 

Для временного сохранения регистров и данных, а также для обмена 
<начениями между регистрами широко используются стековые комазды 
РОН и РОР. Каждая из них работает со словом, т.е. в стек нельзя по-— 
тестить ‘или извлечь из него одиночный байт. При выполнении РАЛЗН 
ьначале уменыцается на 2 содержимое указателя 5Р, а затем операнд 
помещается по адресу 55: 5Р. При извлечении из стека сначала читается 
гамять по адресу 55: ЭР, а затем 5Р увеличивается на 2. Таким образом, при 
:аполнении указатель вершины стека 5Р смещается к младшим адресам, а 
гри освобождении — к старшим. При работе со стеком следует помнит о 
специфике использования стековой памяти («последним пришел — первым 
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ушел»), а также о том, что эта память интенсивно используется при вызове 
процедур, т.е. состояние стека к моменту выхода из процедуры должно 
быть строго согласовано с дальнейшей работой программы. Первое ус-— 
ловие определяет порядок извлечения данных из стека — он должен быть 
обратным порядку, в котором эти данные помещались в стек. Второе ус— 
ловие фактически означает, что после выхода из процедуры указатель 5Р 
должен содержать то же смещение, что и к моменту входа в нее. Иными 
словами, процедура не должна «забыть» в стеке лишнее слово или взять из 
него больше нужного. | 

Команда загрузки адреса ГЕА загружает в регистр адрес (смещение) 
нужного участка памяти. Этого же можно достичь с помощью зарезер— 
вированного слова ОРЕРФЕТ, стоящего перед именем переменной. Напри— 
мер: 


уаг 
Х: ИМока; 

азт | 
по\Уу ах, ОГРЗЕТ Х {Загружаем смещение Х в АХ} 
]1еа ах, Хх {То же действие} 

епа; 


Разница состоит в том, что в случае команды ГЕА разрешается ис-— 
пользовать индексную адресацию, что особенно удобно при пересылке 
массивов данных. | | 

Две другие команды адресной загрузки — [05$ и ГЕ$ загружают первое 
16 —разрядное слово из источника в регистр -— приемник, а затем сле-— 
дующее слово — в регистр 25 или Е5, т.е. они рассчитаны на загрузку 
полного адреса операнда (сегмента и смещения). 


Арифметические команды 


Комментарий 


Команды сложения 


АО АРРО приемник, источник Сложить 
АОС АРС приемник, источник Сложить, добавить перенос 


ААА Скорректировать сложение для таблицы АЗС: 

РАА Скорректировать сложение для двоично— 
десятичных чисел 

тис Увеличить на единиц 


Команды вычитания 


$08 ЗОВ приемник, источник Вычесть 
ВВ ЗВВ приемник, источник Вычесть с заемом 


ААЗ Скорректировать вычитание для таблицы АЗЗП 
РА$ Скорректировать вычитание для двоично — 

_ | десятичных чисел 
ЕС Уменьшить на единицу | 


МЕС | МЕС приемник Обратить знак 
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СЕ 


Команды умножения 


ты МОТ источник 
Скорректировать умножение для таблицы АЗСП 


Команды деления 


т 
Скорректировать деление для таблицы АЗ$СП 


Команды расширения знака 


Преобразовать байт в слово 
Преобразовать слово в двойное слово 


При использовании арифметических команд следует помнить о том, что 
МИ может обрабатывать знаковые числа, числа без знака, а также двоич — 
но-— десятичные числа. В беззнаковых числах для представления значения 
используются все биты. Т.е. они эквивалентны типам Вуе и И/ога, в то 
время как знаковые числа в старшем разряде хранят знак числа и экви— 
валентны типам 5РогИп! и едег. Авоично — десятичные числа используют 
по 4 бита для каждого десятичного разряда и могут быть упакованными 
или неупакованными. В первом случае один байт хранит 2 десятичные 
цифры (старшая — в старшем полубайте), во втором — только одну 
(старший полубайт не используется). Основные арифметические команды 
МП (АРР, 50В, МИГ МУ) не учитывают двоично — десятичную форму 
представления чисел, поэтому в архитектуру МИ включены команды 
коррекции результата. 


о 
5 = 


ив 


Битовые команды 


Мнемо- Комментарий 


Логические команды 


АМ Выполнить АМО 
ОВ Выполнить ОВ 
ХОВ Выполнить ХОВ 
Мер Выполнить МОТ 
ТЕЗТ Проверить 
Сдвиговые команды 
ЗАЬ/5НЬ Слвинуть влево 
ЗАВ/ НВ Сдвинуть вправо 
ВОЬ Слвинуть влево циклически 
КОВ Слвинуть вправо циклически 
ВСЬ Сдвинуть влево с переносом 
ВСВ Сдвинуть вправо с переносом 


Битовые команды используются при исчислении логических выраже — 
ний, а также в тех случаях, когда необходимо изменить отдельные разряды 
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операнда. Логические команды АМО, ОЮ, ХО и МОТ эквивалентны со- 
ответствующим операциям Турбо Паскаля в случае, когда операндами 
являются целочисленные выражения. Команла ТЕЗТ выполняет целочис — 
ленную операцию поразрядного суммирования АМО, но не изменяет 
значения операндов, а лишь устанавливает флаги в соответствии со зна-— 
чением результата сравнения: обнуляет СЁ и ОЁ, изменяет РЕ, ГЁ, $Ё и не 
меняет АР (флаг ЕЁ установится в 1 в том случае, когла оба операнда со — 
держат по единице хотя бы в одном соответствующем разряде). Команды 
сдвига ЭНГ/$НК эквивалентны одноименным операциям Турбо Паскаля и 
отличаются от команд циклического слвига КОЁГ/КОК тем, что вытесненные 
в ходе их выполнения значащие разряды теряются, в то время как при 
циклическом сдвиге эти разряды появляются «с другой стороны». На-— 
пример, если выполнить фрагмент 


поху а1,1 {Загружаем в АГ единицу} 
5ИгЕ а1,1 {Сдвигаем вправо на 1 разряд} 


регистр АГ будет содержать 0 (вытесненная вправо единица будет поме— 
щена в СР), в то время как после замены команды 5НК на КОК в нем будет 
значение $80 = 128 (вытесненная единица будет помещена в старший бит 
регистра). 

Заметим, что счетчиком в командах слвига может быть цифра 1 или 
количество сдвигов, указываемое в регистре СГ. 


Команды передачи управления 


Мнемоника Формат Комментарий 


Безусловные переходы 


САЦ, имя 
ВЕТ [количество _параметров] 


ЛЛМР имя 


Войти в процедуру 
Вернуться из процелуры 
Перейти 


Условные переходы 


ЗА/ОМВЕ Перейти, если выше (после сравнения 
беззнаковых операндов) 
ТАЕ/ МВ Перейти, если выше или равно 
ОВ/ОВАЕ/ ОС Перейти, если ниже 
УВЕ/ОМА Перейти, если ниже или равно 
СХ? Перейти, если СХ=0 
2Е/ 22 Перейти, если равно 
9С/ОМЬЕ ]@ близкая __метка Перейти, если больше (после сравнения 
знаковых операндог) 
УСЕ/ ОМ, Перейти, если больше или равно 
ЗЬ/ОМСЕ | Л. близкая_метка =_= | Перейти, если меньше 
УЪЕ/ МС ЛЕ близкая_ метка | Перейти, если меньше или равно 
МС ГЛМС близкая_мета =_= | Перейти, если нет переноса 
УМЕ/ М2 Перейти, если не равно 
«мо Перейти, если нет переполнения 
ЗМР/ОРО Перейти, если нечетный 
2 Перейти, если перенос 
УР/УРЕ Перейти, если четный 


95 ]$ близкая _метка Перейти, если стрицательный 
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Команды управления циклами 


ТООР ГООР близкая _метка Повторить цикл 
ТООРЕ/ТООРА ГООРЕ близкая _метка Повторять, пока равны 
ГООРМЕ/ЪООРМ2 | ТГООРМЕ близкая_метка_ 


Команды безусловных переходов САГГ, КЕТ, /МР могут использовать 
дальнюю или ближнюю модель памяти, в то время как команды условных 
переходов — только малую (в пределах — 128... +127 байтов). При дальней 
модели памяти (устанавливается опцией Орйоп5$/Сотриег/Еогсе 1аг са[П$ 
среды Турбо Паскаля или директивой компилятора {ЁР+)) осуществляется 
как внутрисегментная, так и межсегментная передача управления, при 
ближней — только внутрисегментная. 

Инструкция САМ, работает слелдующим образом. Вначале адрес сле— 
дующей за САШ инструкции (адрес возврата) помещается в стек, затем в 
регистр 1Р (или в пару С$ЛР) помещается адрес точки входа в процедуру, 
таким образом сразу за командой САШ, будет исполняться уже первая 
команда процедуры. Оба адреса (точки входа и возврата} будут 16— 
битовыми смещениями для внутрисегментного вызова или 32—битовыми 
полными адресами — для межсегментного. Все процедуры (функции) 
Паскаля, оттранслированные в режиме {Ё+)} или содержащие зарезер— 
вированное слово РАК в заголовке, должны вызываться как дальние. Для 
этого за инструкцией САЁЁ следует указать модель памяти: 


Ргоседиге МуРгос; РГаг; 


азм 
са11 РАВ МуРгос {Вызов дальней процедуры} 


епа; 


Таким же способом должны вызываться все библиотечные подпро-— 
траммы (т.е. объявленные в интерфейсных частях модулей). При дальнем 
зызове в. стек сначала заталкивается содержимое сегмента кода С5, а ‘уже 
затем — смещение возврата. 

При выходе из дальней процедуры команда КЕТ извлекает из стека оба 
16 — разрядных слова и помещает первое в ГР, а второе в С5, а при выходе 
из ближней извлекает из стека только смещение и помещает его в [Р. 

Команды условных переходов способны передавать управление на 
метку, расположенную в пределах ближайших плюс—минус 128 байт от 
самой команды. Если нужно передать управление на метку, располо— 
женную дальше в том же сегменте, или на метку в другом сегменте, сразу 
:а командой условной передачи располагают безусловную команду МР 
или САГ, например: 


стр ах,0 {Проверяем АХ} 
пе @Мое2его {АХ=О ?} 
пр Тз2его {Да - переходим на дальнюю метку} 


ее {Нет - продолжаем работу} 
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В таблице термин «выше/ниже» используется применительно к срав— 
нению беззнаковых операнлдов, а «больше/меньше» — знаковых. 

Поскольку условные переходы реализуют ветвление программы на 
основе проверки флагов, обычно непосредственно перед ними распола— 
гаются команды, изменяющие эти флаги, чаще всего — команда сравнения 
СМР. Ниже показаны комбинации СМР- условный _переход для раз— 
личных соотношений приемника и источника (первого и второго операнда) 
команды СМР: 


Для беззнаковых Аля чисел со зна- 
чисел ками 


[Приемник больше источника [О 
[Приемник и источник равны [СГ 
Приемник меньше источника | 
| Приемник не меньше источника 
| Приемник не больше источника 


Условие 


Например: 
спр ах, 5 {АХ>5 2} | 
За @АБоуе5 {Да, больще - переходим} 
спр Бх,-3 | {ВХ<=-3 ?;} 
)1е @ГеззмМЗ {Да, меньше или равен} 


Команды ГООР/ГООРЕ/ГООРМЕ служат для организации циклов. Все 
они используют содержимое регистра СХ как счетчик числа повторений. 
Команда ГООР уменьшает СХ на единицу и передает управление на метку 
начала цикла, если содержимое этого регистра отлично от нуля. Команды 
1ООРЕ/ГООРМЕ также уменышпают счетчик СХ, но передают управление в 
начало цикла при совместном условии установки (или сброса) флага ЕЁ и 
неравенства нулю счетчика СХ. 

Вот как, например, можно отыскать нулевой байт в массиве АОВ: 


уаг 
АОВ: агхгау [1..1000] оЕ ВуЕе; 


азтм 
пох сх, 1000 {Инициируем счетчик СХ} 
1еа Бх,АОВ {Помещаем адрес АОВ в ВХ} 
аес Ъх {Готовим цикл} 

{Здесь начало цикла проверки} 

((@Тезе: дрс Бх {Адрес очередного байта} 

спр ВУТЕ РТВ [Ъх],0 {Проверяем байт} 
1оорпе @Тезе {Замыкаем цикл} 
12 @Моедего {Если не найден нулевой байт} 
вене {Нашли нулевой байт} 

епа; 


Строковые команды 
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Формат Комментарий 


Пересылка строк 


МОУЗВ 
МОУ5\/ 


Сравнение строк 


СМР5В 
СМР 


Сканирование 


ЭСАЗВ 
ЭСАЗМ/ 


Загрузка и сохранение 


д т р ом ББББ_ 1] Сохранять слова 


Строковые команды рассчитаны на обработку строк. Замечу, что 
термин «строка» здесь отнюдь не эквивалентен аналогичному термину 
Турбо Паскаля и означает произвольную цепочку байт или слов длиной до 
64 Кбайт. Эти команды оперируют пятью примитивами, каждый из ко- 
торых обрабатывает лишь один байт или одно слово за раз. Перед при-— 
митивом обычно указывается префикс повторения КЕР/КЕРЕ/КЕРМЕ, 
заставляющий выполняться примитив до тех пор, пока не обнулится 
счетчик повторений СХ или не будет нарушено соответствующее условие. 

При использовании строковых команд важно помнить два обстоя-— 
тельства. Во—первых, эти команды всегда берут адрес строки — источника 
из пары 05:5 а строки -— приемника — из пары Е5$:0Г. Таким образом, 
керед исполнением строковой команды необходимо инициировать сег- 
ментные регистры нужным образом. Во-вторых, строковые команды 
используют индексную адресацию с автоматическим изменением сме- 
щения в МО! после однократного исполнения примитива. Содержимое 
этих регистров изменяется на |1 при обработке байтов и на 2 при обра-— 
ботке слов, причем наращивается, если флаг направления РЕ сброшен, и 
уменьшается, если он равен 1. 

Вот как можно осуществить пересылку массива А в массив В: 


уаг 
А,В: агхгау [1..250] оЕ Тпеедег; 


азта 
1еа $1, А {Смещение А - в $Т (источник) } 
разв &а$ 
рор ез {Инициируем ЕЗ := 1$} 
1еа а1,В {Смещение В - в 0Т (приемник) } 
пох сх,250 {Счетчик переноса} 


с1а {Направление переноса - наращивать} 
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гер моузм {Переносим 500 байт} 
епа; 


В программе на Турбо Паскале регистр 05 всегла содержит сегмент 
данных, поэтому инициировать его необязательно. Что касается регистра 
дополнительного сегмента Е$, такого правила нет, и хотя в большинстве 
случаев он также ссылается на сегмент данных, рекомендуется проводить 
его инициацию перед использованием строковой команды (см. выше ко-— 
манды ризН а$, рор е$). 


Команды прерываний 


Мнемоника | Формат Комментарий 


ТТ номер 
ТМТО 19 ие) Выполнить прерывание по переполнению 
ТВЕТ ВЕТ Вернуться из прерывания 


Выполнение прерываний во многом напоминает косвенный вызов 
дальней процедуры. По команде ПУТ (ПУТО) в стек помещается регистр 
флагов, сегмент С$ и указатель [Р, а новые значения этих регистров бе -— 
рутся из 4-—байтного вектора прерывания, соответствующего номеру 
прерывания в команде ГУТ, или из вектора 4 — для команды ПУТО. Таким 
образом, единственным отличием от команды САШ, является то, что в стек 
предварительно заносится регистр флагов. Следует, правда, оговориться: 
перед передачей управления программе обработки прерывания микро-— 
процессор сбрасывает флаги трассировки ТЁ и прерываний 1; сброс ТЕ 
необходим для обеспечения нормальной работы отладчиков, использующих 
прерывание по вектору 1 или 4, сброс [1 блокирует вмешательство других 
процессов в ход обработки прерывания. 

Команда ПУТО представляет собой условное прерывание и выполняется, 
если в этот момент взведен флаг переполнения ОЁР. Команда ГКЕТ реали — 
ъует правильный выход из программы обработки прерывания: она счи— 
зывает из стека 3 двухбайтные слова и помещает их в регистры ГР, С5 и 
регистр флагов. 


Команды управления 


Формат Комментарий 


Управление флагами 


5ТТ ТТ Разрешить прерывания 
Запретить прерывания 


Внешняя синхронизация 
Остановить вычисления 


МАТ 
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Передать команду 
ГОСК ГОСК 


Пустая команда 
МОР [Нет операции >> _| 


Команды внешней синхронизации работают следующим образом. 

НАТ переводит МИ в состояние останова, из которого его можно 
вывести только при перезагрузке системы или при наступлении немас — 
кируемого прерывания. 

У/АТ заставляет МП выполнять холостой режим работы и каждые 5 
тактов проверять уровень сигнала на входной шине: пока на этой шине нет 
сигнала активности, процессор выполняет И/АГТ, но как только шина ак-— 
тивизируется, он продолжит исполнение программы. Эта инструкция 
обычно используется для ожидания сигнала обслуживания (прерывания) 
высокоприоритетного устройства типа контроллера прямого доступа к 
памяти. | 

Команда Е$С используется для передачи указанного в ней операнда на 
шину данных. Тем самым обеспечивается возможность передачи команд 
другим процессорам. Эта команда чаще всего используется для управления 
работой арифметического сопроцессора. В этом случае код представляет 
собой код команды сопроцессора, а источник — используемый в этой 
команде операнд. 

Команда ГОСК фактически представляет собой однобайтовый префикс, 
который можно использовать совместно с любой другой командой мик- 
ропроцессора. По этой команде МП активизирует одноименный сигнал на 
своей шине, что исключает возможность использования этой шины любым 
другим внешним устройством (процессором). 


12.2. СПЕЦИФИКА ВСТРОЕННОГО АССЕМБЛЕРА 


Приведенное выше общее описание архитектуры МП 8086/8088 яв-— 
}яется базовым для любого ассемблера, в том числе и для встроенного 
‹ссемблера Турбо Паскаля. Однако ассемблеры содержат массу допол-— 
нительных возможностей, облегчающих разработку готовых к работе 
программ. Эти возможности отражаются в директивах и макрокомакдах 
«ссемблера. Встроенный ассемблер не предназначен для написания за-— 
конченных программ, поэтому в нем отсутствуют макрокоманды и ди- 
рективы. Главной особенностью встроенного ассемблера является прак— 
т'ически полное отсутствие в нем средств описания переменных и данкых, 
т.к. эти объекты описываются средствами Турбо Паскаля. 


12.2.1. Оператор АЗМ 


Зарезервированное слово АМ открывает доступ к средствам встро— 
енного ассемблера. Этот оператор может располагаться только внутри 
исполняемой части программы (подпрограммы). Область действия опера— 
тора АЗМ ограничивается ближайшим по тексту зарезервированным 
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словом ЕМО. Таким образом, структура любого ассемблерного оператора 
такова: 


азт 
<Одна или несколько команд встроенного ассемблера> 
епа; 


С точки зрения Турбо Паскаля пара а5т... еп считается операторными 
скобками, ограничивающими единственный оператор Паскаля, например: 


1Е Х>10 фВеп 
азт 


Тело ассемблерного оператора а$т... еп4 может быть пустым или со-— 
держать несколько ассемблерных команд. Каждая ассемблерная команда 
должна располагаться на отдельной строке или отделяться от следующей за 
ней команды символом «;». Ниже приводятся два разных способа напи— 
сания одной и той же последовательности ассемблерных команд: 


азтм 
пох ай,0; 1пе $16; мох СБСоае, а1; моу $сСоае, ав 
епа; 
азт 
поУ ар,о0 
106 $16 
поУу СПСоае, а1 
пох эсСоае, ав 


В конце строки, содержащей единственную ассемблерную команду, или 
`ттежду двумя командами, располагающимися на одной строке, разрешается 
вставлять комментарий, который должен оформляться по обычным пра— 
вилам Турбо Паскаля, т.е. ограничиваться символами «{», «}» или «(*», «*)». 
аким образом, комментарии разрешены между ассемблерными коман— 
рами, но не внутри них. Например, такой оператор будет правильным: 

азт 
{Инициируем регистры} 
1еа $1,Х; разн @&$; 


рор еб; {Е5 := 05] 
1еа а1,У; моу сх,100 
с1а {Перенос - вперед} 


гер {Выполняем У := Х} тоу5м 
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{Здесь нет ошибки - комментарий можно 
вставлять между префиксом и командой) 


а такой — неправильным. 


азт 
{Готовим регистры} 
1еа $1,Хх; разПй @а$; 
рор {Е5:=05$)] ез; 
{Ошибка! Комментарий разорвал 
мнемонику команды и ее операнд} 
1еа а1,У; моу сх,100 {и направление} с1а 
{Комментарий является разделителем команд, 
поэтому перед ним можно не ставить ";")} 
гер поуз$и 
епа; 


В пределах ассемблерного оператора допускаются любые команды, но 
Турбо Паскаль требует выполнения следующего соглашения: 


В начале ассемблерного оператора регистр 0$ содержит сегмент кода, 
55 — сегмент стека, ВР — текущий стек, ЭР указывает на вершину стека. 
Все эти регистры должны иметь точно такие же значения к моменту 
завершения работы ассемблерного оператора. 


Программист не должен делать каких—либо предположений о со- 
держимом остальных регистров, и эти регистры могут иметь произвольное 
значение после завершения работы ассемблерного оператора. Исключе-— 
нием является случай ассемблерной функции, которая должна исполь -— 
зовать некоторые регистры для возврата своего значения (см. п.12.2.3). 


12.2.2. Синтаксис ассемблерных команд 


Здесь и далее ассемблерными командами называются команды на языке 
ьстроенного ассемблера, вставляемые в тело ассемблерного оператора 
‹15т... епа. 

Структура ассемблерной команды такова: 


[Метка] [Префикс] [Код [Операнд [,Операнд]]] 


В квадратных скобках указываются необязательные элементы струк-— 
туры. 
Метки 


Любой команде ассемблерного оператора может предшествовать сдна 
или несколько меток. В ассемблере используется два типа меток: гло— 
бальные и локальные. Глобальные метки — это обычные метки Турбо 
Паскаля. Они объявляются в разделе описаний после зарезервированного 
слова ГаБе]. С помощью глобальной метки можно передать управление в 
тело ассемблерного оператора оператором СОТО. Например: 
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ТаЪе1 
А1СЕПЕ; 
Бед1п 
Сово АТЕЕпа; о {Передаем управление внутрь 
ассемблерного оператора} 


А] ЕЕпа: {Сюда можно передать управление извне} 


епа; 


Локальные метки объявляются непосредственно в теле ассемблерного 
оператора. Эти метки обязаны начинаться символом «@». Поскольку этот 
символ нельзя использовать в именах Турбо Паскаля, он позволяет отли — 
чить локальную метку от глобальной. Локальная метка не известна нигде 
вне ассемблерного оператора, поэтому на нее нельзя передать управление 
оператором СОТО. По этой же причине в разных ассемблерных опера — 
торах можно использовать одноименные локальные метки. 


Префиксы 
Встроенный ассемблер поддерживает следующие префиксы команд: 
ТОСК Захват шины 
ВЕР/ВЕРЕ/ВЕРМЕ Повтор строковой команды 
ВЕР7/ВЕРМА Синоним ВЕРЕ/ВЕРМЕ 
ЗЕСС Перекрытие С5$ 
ЗЕСО$ Перекрытие 15$ 
ЗЕС5 Перекрытие 55 
ЗЕСЕЗ Перекрытие Еб 


Префиксы ГОСК/КЕР/КЕРЕ/КЕРМЕ описаны в п.12.1.3. Префиксы 5ЕСхх 
спределяют сегментный регистр, который должен использоваться вместо 
умалчиваемого, и распространяются только на следующие за ними ёс-— 


семблерные команды. 
Если префикс указан без кода инструкции, он распространяет свое 


действие на следующую ассемблерную команду. 
Код инструкции очень редко имеет более одного префикса и никогда — 


_ более трех: допускается следующая последовательность 
ГОСК 5ЕсСхх ВЕРХх 


Замечу, что если при обработке строковой команды произошло ап- 
паратное прерывание, МП 8086/8088 «забывает» префиксы ГОСК и $5ЕСхх, 
которые, возможно, определены в той же команде, так что использовать 
сложные префиксные конструкции не рекомендуется. 


Коды инструкций 
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Встроенный ассемблер поддерживает мнемонику всех команд, пере— 
численных в п.12.1.3. Кроме того, в ассемблерных командах может ис- 
пользоваться мнемоника инструкций процессора 8087, а также команды 
процессоров 80286/80287. Замечу, что инструкции 8087 допустимы только 
при активном состоянии {$№+)} 80286 — при {$С +} а 80287 — в случае 
{$а-+,М-}. 


Операнды 


Операндами встроенного ассемблера могут быть выражения, состоящие 
из комбинации регистров, констант, имен и символов операций. 


Регистры 


Во встроенном ассемблере используется мнемоника регистров, ука— 
занная в п.12.1.1, а также имя 5Т для ссылки на регистры арифметического 
сопроцессора. 


Константы 


Ассемблер поддерживает строковые и числовые константы. 

Строковые константы заключаются в апострофы или кавычки. Если 
константа объявлена с помошью кавычек, внутри нее символ апостроф 
рассматривается наравне с другими символами, т.е. не считается ограни — 
чителем константы, точно так же внутри константы, обрамленной апо— 
строфами, не считается ограничителем символ кавычки. Если внутри 
константы необходимо указать ограничивающий ее символ, он удваивает — 
ся. Примеры: 

'Строковая константа' 
"Это - тоже строковая константа" 
'Символ '' не считается ограничителем' 
‘внутри строки, обрамленной кавычками "..."! 


Числовые константы могут быть только целыми и их значение не может 
превосходить емкости двойного слова, Т.е. должно быть внутри диапазона 


- 2 147 483 648 ... +4 294 967 295. 


По умолчанию при записи числовых констант используется десятичная 
нотация, но ассемблер поддерживает также двоичные, восьмеричные и 
тцестнадцатеричные константы. Двоичная константа составляется как 
комбинация единиц и, нулей, заканчивающаяся символом В (от Втаг’ — 
лвоичный}; при записи восьмеричной константы используются символы 
(;...7, а в ее конце ставится символ О (Оса — восьмеричный); шестка— 
р цатеричная константа записывается по правилам Турбо Паскаля 
(начинается с символа #) либо по правилам Турбо Ассемблера: начинается 


‹ цифры, в конце ставится символ Н (от Неха4есйпа] — шестнадцате — 
ричный). 
Имена 
Локальные метки — это единственные имена, которые разрешается 


спределять внутри ассемблерного оператора. Имена остальных объектов 
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программы — констант, переменных, подпрограмм — должны опреде — 
ляться только с помощью средств Турбо Паскаля. 

Область определения имен подчиняется тем же правилам, что и в Турбо 
Паскале — имена должны быть «видны» в том месте, где они используют — 
ся, и они локализуются в пределах блока, в котором описаны. 

Во встроенном ассемблере могут использоваться три предопределенных 


имени: 
@@Соае - текущий сегмент кода 
@Пафа - начальный сегмент данных 


@Вез\11Е - ссылка внутри функции на ее результат 


Имена @Со4е и @Раю могут использоваться только в сочетании с 
директивой 5ЕС для ссылки на нужный сегмент. Например: 


азтм 
шоу ах, ЗЕС @Раба 
по\ аз,ах 

епа; 


Имя @КезшЁ используется для присвоения результага функции. На— 
пример: 


ГапсЕ1оп М1п(Х,У: ТпЕедег): Тпведег; 
{Эта Функция сравнивает два целых числа 
и возвращает наименьшее из них} 


Ъедап 
азт 
оу ах,хХ {Помещаем Х в АХ} 
спр ах,уУ {Х<У 2?) 
1 @ {Да - на выход} 
оу ах, У {Нет - помещаем У в АХ} 
@: поу @Везо1е, ах {АХ содержит результат} 
епа 
епа; 


Для доступа к полям записей разрешается использование составных 
имен. Например: 
Суре 
Ро1пЕ = хгесога 
Х, У: Тпбедег 


Вес = хесога 
А, В; Ро1п® 
епа; 
уаг 
Р: Ро1п`; 
В: Весе; 
Бед1п 
азм 
поУ ах,Р.Х 


Встроенный ассемблер , 253 


ааЯ ах,Р.У 
поУу К.А.Х, ах 
епа 
епа. 


Идентификаторы типов можно применять к операндам для уточнения 
данных, о которых идет речь. Каждая из следующих команд реализует 
одно и ТО Же действие: загружает в регистр АХ слово по адресу ЕЗ:[ОТ-+ 4]: 


по\У ах, (Весе РТВ ез: [а1]).В.Х. 
пох ах, Весь (ез: [а1]).В.Х 

поУу ах, ез:Весе[а1].В.хХ 

шоу ах, Кесе [ез:а1].В.Х 

пох ах,ез: [а1].Весе.В.хХ 


Следующие имена не могут использоваться в операндах встроенного 
ассемблера: 

® стандартные процедуры и функции (например, ИтИе[т, СШ); 

» предопределенные массивы Мет, МетИ/, МетЕ, Рой, РопУ/’; 

® константы с плавающей точкой, строковые и множественного типа; 

е макросы (процедуры и функции, полностью реализуемые одним 
ШИтпе- оператором); 
символ | 
е (@Кезий вне функции 


Выражения 


Встроенный ассемблер использует выражения трех классов: регист— 
ровые, ссылки на память и непосредственные. 
Регистровое выражение — это выражение, состоящее из имени реги -— 
стра. Все следующие команды содержат только регистровые выражения: 
ризН 95 
рор ез 
шоу ав,Ь1 
ааЯя сх, ах 


Непосредственные выражения — это нетипизированные константы и 
имена типов. Примеры непосредственных выражений: 


сопзе 
Ааес = 10; 

азм 
шоу ах, аес 
пох Ьх,0 
ааЯ сх, 2*аес+1 
зар ац,-5 

епа; 


Все остальные выражения относятся к ссылкам на память. Например 
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соп$Е 
дес: Мога = 10; 
СЕер = 12; 

у\уаг 
Х,У: Вуе; 

азм 


поу ах, аес 

шоу сх, [5%ер] 

ааа ай,х 

мох У,61 

шоу ах, [ЬХ] 
епа; 


Важным отличием ассемблерных выражений от выражений Турбо 
Паскаля является то обстоятельство, что они должны быть статическими, 
‚ Те. разрешены (вычислены) на этапе создания программы. Если выра— 
жение может быть полностью вычислено к моменту его трансляции, Т.е. 
если оно состоит только из регистровых или непосредственных значений, 
такое выражение называется абсолютным, компилятор вычисляет его и 
использует для создания команды. | 

В ходе компиляции программы вырабатывается так называемый объ — 
ектный код, который затем преобразуется компоновщиком в готовую к 
работе программу. При создании объектного кода компилятор не может 
вычислить значения выражений типа «ссылка на память», так как не знает 
окончательного положения в памяти меток, переменных, подпрограмм. В 
результате он создает так называемое перемещаемое выражение, которое 
затем компоновщиком преобразуется в нужную ссылку на память. 

Встроенный ассемблер разрешает любую операцию над абсолютным 
значением (см. ниже), но ограничивает перемещаемые выражения до 
сложения или вычитания, одним из операндов которого должна быть 
константа. 

Другое важное отличие ассемблерных выражений от выражений Турбо 
Паскаля заключается в способе интерпретации переменных. В выражениях 
Паскаля любая ссылка на переменную интерпретируется как текуцее 
содержимое этой переменной. В ассемблерных выражениях это спра— 
ведливо только тогда, когда все выражение в целом состоит из имени 
переменной. Во всех остальных случаях ссылка на переменную интер-— 
претируется как адрес переменной. Например, выражение 


Х+10 


в Паскале означает: «к содержимому переменной Х прибавить 10». В &с<- 
семблерной команде это означает: «к адресу (смещению) переменной Х 
прибавить 10». Однако команда 


оу ах,хХ 
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означает: «поместить в регистр АХ первые два байта переменной Х». Если 
бы нам понадобилось загрузить в АХ адрес переменной Х, мы должны 
были бы написать 


шоу ах, ОЕЕРЗЪЕТ Х 
Замечу, что попытка «перехитрить» ассемблер командами типа 


шоу ах,Х+0 
шоу ах,Х+1-1 


и т.п. не дает желаемого результата: ассемблер просто загружает в АХ 
содержимое переменной Х. 

Как и в Паскале, ассемблерные выражения имеют тип, но в отличие от 
Паскаля этот тип определяет только размер объекта в памяти и не огра-— 
ничивает применяемые к нему операции. 

Встроенный ассемолер т имеет следующие предопределенные типы: 


И ани 
м 
ПОТ. ПО ОИ 
м в 
м 
о [ 


Имена предопределенных типов можно использовать для приведения 
гипов выражений. Например, если определены переменные 


уаг 
Е]1ач: Воо1еап; 
К : Мога; 


О Такие ассемблерные выражения недопустимы: 


шоУ Е1аа,рх 
поу ай,х 


Для корректного задания последней команды можно использовать 
‹ледующие варианты: 


поУу ап,ВУТЕ РТБ Х 
моу ап,Вусе (Х) 
поУу ар,х.Ву*е 


Во всех случаях в АН будет загружен первый (младший) байт пере -— 
ченной Х. 

Встроенный ассемблер поддерживает операции, перечисленные в 
‹‚ледующей таблице (в порядке убывания приоритета). 


Операции встроенного ассемблера 


= Ерекрытие идентификатора 


256 Глава 12° 


оО | Поыражение с 
— : = | Шерекрытие сегмента 


/_ МОР 5НЬ $Н8 ОНИ 
Бинарные операции 
МОТ АМР ОВ ХОВ Операции над битами 


Операция & 


Осуществляет перекрытие идентификатора: следующий за знаком & 
идентификатор считается определенным в программе, даже если он 
совпадает с зарезервированным словом. Например: 


уаг 


поУу св,0 {Посылаем 0 в регистр СН} 
поу &Ср,0 {Посылаем 0 в переменную СП} 


Операция () 

Круглые скобки используются обычным для Паскаля образом — для 
изменения порядка исчисления выражения (подвыражение, ограниченное 
скобками, вычисляется в первую очередь). Если перед скобками стоит имя 
типа, все выражение приобретает указанный тип. Например: 


пох ах, ( (1+2) *3+4)*5 [АХ 65} 
пох Ьх,1+2*3+4*5 {ВХ = 27} 


Операция |] 


Определяет ссылку на память. Выражение внутри скобок вычисляется в 
первую очередь. Обычно оно связывается с регистрами ВХ,ВРЗГОГ и 
зожет использовать операции + и — для указания индексации. Например: 


по\У ав, 100 {АН = 100} 
пох ар, [100] {Загружаем в АН содержимое 
байта по адресу 105:100} 


Операция . (точка) 


Селектор элемента структуры. Результат — сумма выражений до и 
после точки с типом второго выражения. Например: 
уах 


В: гесога 
: Иога; У; Вуее 
епа; 
поУу ах,В.Х 
оу В.У,а41 


Встроенный ассемблер 257 


Операции ШСН и ГО" 


СН возвращает старший, а ГОУ — младший байт выражения типа 
слова, слелдующего за символами операции. Выражение должно иметь 
абсолютное непосредственное значение. Например: 


оу а1,Н1ай $1000 [АГ = $10} 


Операция : (двоеточие) 


Указывает ассемблеру, что выражение после операции должно отно — 
ситься к сегменту, указанному до операции. Результат — ссылка на память 
со значением второго выражения. Например: 


моУ ах, [10] {АХ = слово по адресу 05:10} 
оу ах, ВС: [10] {АХ = слово по адресу В5$:10} 


Операция ОРРЪЕТ 


Возвращает смещение выражения, следующего за операцией. Результат 
имеет непосредственное значение. Например: 


поУу ах,хХ — {АХ = слово по адресу переменной Х} 
поу ах, оЕЁЕзее Х {АХ = смещение адреса Хх} 


Операция 5ЕЧ 


Возвращает сегмент выражения, следующего за операцией, Результат 
имеет непосредственное значение. | 


Операция РТВ 


Осуществляет приведение типа. Результат — ссылка’ на память со 
значением выражения после операции и типом выражения о операции. 
Например: 


РапсЕёфтоп биар(Х: Тпеедег): Тпеедег; 
{Меняет местами байты в слове Х} 
Бед1п 
азт 
поУу ах,х 
пох ВУТЕ РТВ @Веза1Е, аб 
пох ВУТЕ РТВ @Везо1%+1, а1 
епа; 


Операции *и/ 
* — умножение, / — целочисленное деление. Оба выражения должны 
иметь непосредственные абсолютные значения, такое же значение имеет и 
результат операции. Например: 


поУ ах,2*2 {АХ = 4} 
поУ ах,17/3 {АХ 5] 


9—1411 
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Операция МОР 


Возвращает остаток от целочисленного деления. Оба выражения 
должны иметь непосредственные абсолютные значения, такое же значение 
имеет и результат операции. Например: 


похУ ах,17 шоа 3 АХ = 2} 


Операции $1 и $НЮ 


Осуществляют логический сдвиг влево (ЭНГ) или вправо ($НА) выра— 
жения, стоящего до операции, на количество разрядов, определяемое 
выражением после операции. Оба выражения должны иметь непосред— 
ственные абсолютные значения, такое же значение имеет и результат 
операции. Например: 


по\У аб,1 3851 7 {АБ = $80 = 128) 


Бинарная операция + 


Осуществляет сложение двух выражений. Выражения могут быть не- 
посредственными значениями или ссылками на память, но только одно из 
них может быть перемещаемым. Если одно из выражений — ссылка на 
память, результат также определяет ссылку на память а если одно из 
выражений — перемещаемое, результат будет перемещаемым. 


Бинарная операция — 
Вычитание двух выражений. Первое выражение может быть любого 


класса, а второе должно быть абсолютным непосредственным значением. 
Результат относится к тому же классу, что и первое выражение. 


Побитовые операции МОТ, АМО, ОК, ХОК 


Имеют такой же смысл, что и одноименные операции Турбо Паскаля 
над целыми числами. Оба выражения должны иметь непосредствензые 
абсолютные значения, такое же значение имеет и результат операции. 


12.2.3. Директивы ассемблера 


Встроенный ассемблер не поддерживает никакие директивы, обычно 
используемые в других ассемблерах, за исключением ОВ, ОМ/, ОО. 
Структура директив такова: 


Рх <константа> [,<константа>,...,<константа>] 


Здесь Ох — ОВ, ОУ’ или Ор; <константа> — ассемблерная констёнта 
или константное выражение. 
РВ определяет цемочку байт, РИ’ — слов, РО — двойных слов. На-— 
пример: 
{#1®) 'Турбо Паскаль',13,10 


[ФА 0,5 РРЕЕ, МеагРгос 
аа ‘'АВСО'!, 999999999, РагРгос 
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В качестве константных выражений разрешается использовать любые 
ассемблерные константы со значением, не выходящим из диапазона байта 
(РВ), слова (РУ/) или двойного слова (ОО). В любой директиве можно оп- 
ределять строковую константу, которая приводит к побайтовому запол— 
нению памяти А$СП- кодами символов. Поскольку слово (двойное слово) 
размещается в памяти, начиная со своего младшего байта, старший 
(старшие) байт в директивах РИ/ и РО при размещении строкой константы 
могжет остаться неопределенным и заполняется нулем. Например, два 
следующих объявления эквивалентны: 


м 15! 
Чи $35 {$35 - АУСТТ-код символа '5'} 


В директивах РУ/ и ОО разрешается также указывать имена, которые в 
этом случае интерпретируются. как адреса соответствующих объектов, 
причем для ДУ’ это — ближний адрес (смещение), а для РР — дальний. 
Например: 


Ям Х {Размещает смещение переменной Хх} 
Аа Ргос {Размещает ГАК-адрес процедуры Ргос} 


Данные, определяемые директивами Пх, всегла размещаются в текущем 
кодовом сегменте. Разместить таким образом данные в сегменте данных 
(т.е. определить константу или типизированную константу) невозможно —. 
для этого используются стандартные средства Турбо Паскаля. Более того, 
директивы не могут снабжаться именами, а поэтому использовать раз — 
мещаемые с их помощью данные не так—то просто. В следующем примере 
на экран выводится текстовое сообщение. Для этого используется функция 
9 вызова ДОС, в соответствии с которой в регистрах 05:0Х должен со— 
держаться адрес текстовой строки, а сама строка должна заканчиваться 


символом «$»: 


азт 
пр @МехЕСоае {Обходим фрагмент данных} 
@: 
АБ 'Текстовая строка, 13,10,'$' 
@МехеСоае: 
разй &а5$ {Сохраняем 05$} 
разп с5 
рор 9@5 {25$ = 6$} 
моУ аАх,ОЕЕЗЕТ @ {25:0Х - адрес строки} 
поу аВ,9 {АН - код Функции вывода} 
пе 218 | {Выводим строку}. 
рор 9@5$ {Восстанавливаем 105} 
епа; | 


Обратите внимание на использование регистра О5. В соответствии с 
требованиями функции 9, он должен содержать сегмент выводимой стро — 
ки. В нашем случае строка располагается в кодовом сегменте, поэтому мы 
вынуждены сначала сохранить значение 05 в стеке, а затем восстановить 
его. Если бы мы этого не сделали, по завершении ассемблерного оператора 
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регистр 05 указывал бы на сегмент кода и была бы потеряна связь про — 
граммы Турбо Паскаля с глобальными переменными и константами. 


12.2.4. Ассемблерные подпрограммы 


Ассемблерные подпрограммы — это процедуры и функции, объяв — 
ленные с директивой А55етЫег. В таких подпрограммах исполняемая часть 
не содержит Бедш... епа и состоит из единственного ассемблерного 
оператора аз... епа. Например: 


Рапсе1оп ГопоаМи1 (Х,У:Тпееаег) :ГопаТп®; АззепЬ]1ег; 


азт 

поу ах, Х 

1091 У {РХ/АХ содержат "длинный" результат} 
епа; 


При компиляции ассемблерных подпрограмм выполняется ряд опти -— 

мизаций кода, в том числе: 

е параметры — значения строкового типа, а также длиной в 1 2и 4 
байта не копируются во временную память, т.е. внутри подпро-— 
граммы они считаются параметрами — переменными; 

е компилятор не создает переменную @ЮезшЁ для результата функции, 
и ссылка на эту переменную в ассемблерной функции недопустима; 
исключением являются функции, возвращающие значения стро— 
кового типа, для них разрешается использовать ссылку на @Кези!; 


е генерируются следующие команды на входе в полдпрограмму и на ее 


выходе: 

разр Бр {Сохраняется ВР} 

шоу Бр,зр {ВР содержит текущую границу стека} 

заб  эзр,Ъоса15 {Резервируется часть стека для 
размещения локальных переменных} 

пох 5р,Ьр {Восстанавливается граница стека} 

рор БР {Восстанавливается ВР} 

:еЕ Рагамз {Из стека удаляются параметры 


подпрограммы и осуществляется выход из нее} 


Здесь [оса]5 — общая длина в байтах всех объявленных в подпрограмме 
локальных переменных, а Рагат$ — длина (в байтах) всех формальных 
параметров. Если Госа!5 и Рагат$ равны нулю, входной код не создается, а 
выходной содержит единственную инструкцию КЕТ. 

Все локальные переменные Турбо Паскаль размещает в стеке. Это от- 
носится как к обычным, так и к ассемблерным подпрограммам. Аля ссылки 
на локальные переменные используется адресация по базе, задаваемой 
парой 05: ВР, поэтому при входе в процедуру всегда создается так на— 
зываемый локальный стек: в регистр ВР помещается текущая граница 
стека, а сама эта граница смещается вверх на суммарную длину всех 
локальных переменных, чтобы работа со стеком внутри подпрограммы не 
разрушила локальные переменные. Например: 
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Ргосеаиге ....; АззетЬ1ег; 


уаг. 
Х: Мога; 
У: Ву%ее; 
аз 


поУу Х, ах {Компилируется в тоу [ВР-2], ах} 
поу аб,У {Компилируется в тоу ай, [ВР-3]} 
епа; 


Ассемблерные функции должны следующим образом возвращать ре— 
зультат своей работы: 


е длиной 1 байт (Вуе, Спаг и т.п.) — в регистре АГ; 

е длиной 2 байта (ШЕедег, И/’ога) — в регистре АХ; 

е длиной 4 байта (Ройиег, Гопд т) -— в регистрах ПОХ (старшее слово) и 
АХ (младшее слово); 

е типа Кеа! — в регистрах ОХ, ВХ, АХ (старшее слово — в ОХ, младшее 
в АХ}; 

е вещественных типов 5т@е, РоиЫМе, Ежепаеа, Сотр — в регистре 5Т 
(0) сопроцессора; 

е строкового типа — во временной области памяти, на которую 
ссылается @Юези!. 


Глава 13 


ИСПОЛЬЗОВАНИЕ БИБЛИОТЕКИ СВТ 


Во многих случаях стандартные для Паскаля возможности ввода/вывода 
данных с помощью процедур Кеаа, КеааГпт, Итие, ИтиеЁГп оказываются 
явно недостаточными для разработки удобных в использовании диалоговых 
программ. Например, процедуры Кеа4а/Кеа4[Гл вводят с клавиатуры только 
типизированные данные, причем с обязательным эхо-— повтором наби-— 
раемых символов на экране. С их помощью нельзя определить факт 
нажатия какой—либо специальной клавиши (функциональной клавиши, 
клавиши управления курсором и т.п.). Процедуры ИТтИе/ИлИеЁл выводят 
сообщения, начиная с того места на экране, где в данный момент нахо — 
дится курсор, причем по мере вывода курсор автоматически сдвигается на 
экране, а если очередной символ выводится в самом нижнем правом углу 
экрана, осуществляется «прокрутка» экрана: его содержимое сдвигается 
вверх на одну строку. Все это сильно затрудняет создание и обновление 
различного рода окон, меню и других атрибутов современных диалоговых 
программ. 

Разработчики Турбо Паскаля предусмотрели несколько подпрограмм, 
существенно увеличивающих возможности текстового ввода/вывода. Эти 
подпрограммы сосредоточены в библиотеке (модуле) СКАТ, входящей в 
комплект поставки Турбо Паскаля. В модуль включены также процедуры 
эоипа, М№5$оипа и Беау, которые позволяют программировать звуковой 
генератор ПК. В этой главе обсуждается использование подпрограмм мо-— 
дуля СЕТ!. 


13.1. ПРОГРАММИРОВАНИЕ КЛАВИАТУРЫ 


Дополнительные возможности управления клавиатурой реализуются 
двумя функциями: КеуРге5зе4 и КеааКеу. 


Функция КеуРгеззеа. Возвращает значение типа Воофеап, указы — 
вающее состояние буфера клавиатуры: Ра[5е означает, что буфер пуст, а 
Тгие — что в буфере есть хотя бы один символ, еще не прочитанный 
программой. | 

В М5-РО$5 реализуется так называемый асинхронный буферизованный 
ввод с клавиатуры. По мере нажатия на клавиши соответствующие коды 
помещаются в особый буфер, откуда они могут быть затем прочитаны 
программой. Стандартная длина буфера рассчитана на хранение до 16 
кодов символов. Если программа достаточно долго не обращается к кла— 
виатуре, а пользователь нажимает клавиши, буфер может оказаться пе— 
реполненным. В этот момент раздается звуковой сигнал и «лишние» коды 


1 Аббревиатура СЕТ соответствует русскоязычной аббревиатуре ЭЛТ — электронная лу— 
чевая трубка. На профессиональном жаргоне САТ означает устройство визуализации ин- 
формации (дисплей) даже в том случае, когда вместо ЭЛТ используются иные физические 
устройства — плазменные панели, жидкокристаллические экраны и т.п. 
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теряются. Чтение из буфера обеспечивается процедурами Кеаа/Кеа4 ]л и 
функцией КеааКеу. Замечу, что обращение к функции КеуРге5зеа не за— 
держивает исполнения программы: функция немедленно анализирует 
буфер и возвращает то или иное значение, не дожидаясь нажатия клави — 
ши. 


Функция Веа@аКеу. Возвращает значение типа СЛаг. При обращении к 
этой функции анализируется буфер клавиатуры: если в нем есть хотя бы 
один не прочитанный символ, код этого символа берется из буфера и 
возвращается в качестве значения функции, в противном случае функция 
будет ожидать нажатия на любую клавишу. Ввод символа с помощью этой 
функции не сопровождается эхо-— повтором и содержимое экрана не 
меняется. о | 

Пусть например, в какой-то точке программы необходимо игнори-— 
ровать все ранее нажатые клавиши, коды которых еще не прочитаны из 
буфера, т.е. необходимо очистить буфер. Этого можно достичь следующим 
способом: 


Озез СВТ; 
уаг 
С: Спаг; 
Бед1п 
мЪ11]е КеуРгеззеа ао 
С := Веаакеу; 


епа. 


При использовании процедуры КеааКеу необходимо учесть что в 
клавиатурный буфер помещаются так называемые расширенные коды 
нажатых клавиш. Если нажимается любая алфавитно — цифровая клавиша, 
расширенный код совпадает с А$СП-кодом соответствующего символа. 
Например, если нажимается клавиша с латинской буквой «а» (в нижнем 
регистре), функция КеааКеу возвращает значение срг(97), а если «А» (в 
верхнем регистре) — значение слг(65). При нажатии функциональных 
клавиш 2Ё1...Е10, клавиш управления курсором, клавиш 115, Ноте, Ре], Епа, 
РаОр, Рдрп в буфер помещается двухбайтная последовательность: сначала 
символ #0, а затем расширенный код клавиши. Таким образом, значение 
+0, возвращаемое функцией КеааКеу, используется исключительно для 
того, чтобы указать программе на генерацию расширенного кода. Получив 
это значение, программа должна еще раз обратиться к функции, чтобы 
прочитать расширенный код клавиши! . 

Следующая простая программа позволит Вам определить расширенный 
код любой клавиши. Для завершения работы программы нажмите клавишу 
Е5с. 


Озе$ СВТ; 


! Т.е. код сканирования клавиши. Этот код определяется порядком, в соответствии с ко 
торым микропроцессор клавиатуры Ш!е! 8042 периодически опрашивает (сканирует) со-— 
стояние клавиш. 
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уах 
С: СПаг; 
Бедап 
гереаЕ 
С := ВеаакКеу; 
1Е С<>#0 ЕВеп 
Ихг1ее!лп (ога (С)) 
е1зе 
Иг1еТл ('0', ога (ВеааКеу) :8) 
1611] С=#27 {27 - расширенный код клавиши Езс} 
епа. 


Если Вы воспользуетесь этой программой, то обнаружите, что нажатие 
на некоторые клавиши игнорируется функцией Кеа@Кеу. Это прежде всего 
так называемые слвиговые клавиши — ЭВШ, СЫ АП. Слвиговые клавиши в 
М$-—рО$ обычно используются для переключения регистров клавиатуры и 
нажимаются в сочетании с другими клавишами. Именно таким способом, 
например, различается ввод прописных и строчных букв. Кроме того, 
функция игнорирует переключающие клавиши Сар$ Госк, Мит ГосК, 5сгой 
ГосК, а также «лишние» функциональные клавиши Ё11 и 212 клавиатуры 
ВМ АТ, не имеющие аналога на клавиатуре ранних моделей 1ВМ РС/ХТ (в 
этих машинах использовалась 84—клавишная клавиатура, в то время как 
на {ВМ АТ - 101 -клавишная). 

В табл.13.1 приводятся расширенные коды клавиш, возвращаемые 
функцией ога(КеааКеу). Аля режима ввода кириллицы приводятся коды, 
соответствующие альтернативному варианту кодировки. 


Таблица 13.1 
Расширенные коды клавиш | 


Клавиша или Клавиша или 
комбинация комбинация 
клавиш клавиш 


Первый | Второй Первый | Второй 
| байт байт байт байт 


Алфавитно-цифровые клавиши 


8 [| =  [аберасе Вай [ 9 | = [  Таь (Табуляция) 
в = в [р Е [| Пробы | 
ОИ 


ОЕ И ПОНИ ПОЗ ОИ | 
ПЕ И ПОЗ ПОЗ ООО ОЗ 
Е АЗ ОСИ ООО ЗОО ООО ОИ ОЗ ОИ 


Использование библиотеки СВТ 265 


4 т! @ | 65 А 
пели 


У МОЕ ПОНИ ПОВЕЕЕ ОЕИИ ПО--О 
160.175 [= | ан | 224.239 [= | Р-Я 


Управляющие клавиша и их сочетания со СУВИГОВЫМИ 

ОИ ПОЕТ СтВИНИИ 
|“ [верен равиы | ^ | | кров рнь бука _ 

(верхний ряд букв) средний ряд б 

44...20 АП- 7...АК-М 59...68 Е1...Е10 
А ПБ ИЕР О ОБЬ ООВ 
о | 7 | Не |0 | [72 | [Ш пПКурсор вверх __ 
р | Ро [Шо |[[Ш 7 "| [Курсор влево | 
|7 | Курсор вправо | о | |[[ в 


О М < НН МН НИ 
2 | в | 


8 р 
о 84.03 | 5Ый-Е!. 5 - о 94.103 | СШ-Е!... СЕ 
Е10 


о [| из [ АРА] 0 [| 14 |  СИ-РиЗа 


115 СЫ - курсор С; - Курсор вправо 
влево 


о | 117 | СЫ1-Епа _ СМ-РаОв | 


—®— СН-Ноте НГ .131 Ш 1..АН- = 
| (верхний ряд кла-— 
—="— 
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13.2. ТЕКСТОВЫЙ ВЫВОД НА ЭКРАН 


Библиотека Титро \1$1оп способна удовлетворить самым высоким тре- 
бованиям и я настоятельно рекомендую обращаться к ней при програм — 
мировании сложных текстовых изображений (меню, окон и т.п.). Тем не 
менее вполне возможно, что некоторые из читателей захотят использовать 
значительно более простые, но достаточно эффективные средства модуля 
СКТ, описываемые в этом разделе. 

Используемое в ПК устройство визуального отображения информации 
— дисплей — состоит из двух основных частей: монитора, содержащего 
экран (электронно — лучевую трубку или жидкокристаллическую панель} с 
необходимыми компонентами (устройствами развертки изображения), и 
блока управления, который чаще называют дисплейным адаптером или 
просто адаптером. Обычно оба устройства согласуются друг с другом, но в 
отдельных случаях этого согласования может не быть (например, цветной 
монитор может работать с монохромным адаптером и наоборот). Будем 
считать оба устройства согласованными, поэтому, говоря о различных 
дисплеях, я буду говорить только о различных адаптерах, так как именно в 
них сосредоточены основные отличия дисплеев друг от друга. 

Исторически первым адаптером (1981 г.), использованным на [ВМ РС, 
был так называемый монохромный адаптер (МДРА). Его возможности очень 
скромны: он позволял выводить только текстовые сообщения в одном из 
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двух форматов — 25 строк по 40 или по 80 символов в строке. Символы 
выводились в прямом изображении (светлые символы на темном фоне), 
причем их ширина оставалась одинаковой в обоих режимах, поэтому при 
выводе в режиме 40х25 использовалась только левая половина экрана. В 
МРА применялись два символьных шрифта — обычный и с подчеркива— 
нием. | 

В 1982 году фирма Негсшез выпустила адаптер НСС (от англ. Негсшез 
Старс$ СагА — графическая карта Геркулес), который полностью эму— 
лировал МДА в текстовом режиме, но в отличие от него мог еще вос- 
производить и графические изображения с разрешением 720х350 точек 
(пиксел). 

Примерно в это же время 1ВМ выпустила цветной графический адаптер 
ССА (Соог Старвс$ Ааар!ег) и впервые на экране ПК появился цвет. ССА 
позволял выводить как текстовые сообщения, так и графические изо-— 
бражения (с разрешением 320х200 или 640х200 пиксел). В текстовом 
режиме выводились 40х25 или 80х25 символов как в монохромном, так и в 
цветном изображениях. При использовании монохромного режима сим — 
волы, в отличие от МРА, не могли подчеркиваться, зато их можно было 
выводить в негативном изображении (черные символы на светлом фоне). 
При выводе в цветном режиме использовалось 16 цветов для символов и 8 
— для окружающего их фона. 

Текстовые возможности ССА стали стандартом де— факто и поддер— 
живаются во всех последующих разработках 1ВМ — адаптерах ЕСА, 
МСОА, УСА и 5УСА. Возможности модуля СЕТ рассматриваются приме — 
нительно к адаптерам этого типа. 


Процедура _ТехЕМоде. Используется для задания одного из возможных 
текстовых режимов работы адаптера. Заголовок процедуры: 


Ргоседаге Тех+Моде (Моае: Мога); 


Здесь Мое — код текстового режима. В качестве значения этого вы-— 
ражения могут использоваться следующие константы, определенные в 
модуле СКТ. 


соп$е 
ВИ40 = 0; {Черно-белый режим 40х25} 
Со40 = 1; {Цветной режим 40х25} 
ВИ80 = 2; {Черно-белый режим 80х25} 
Со80 = 3; {Цветной режим 80х25} 
Мопо = 7; {Используется с МПА} 
Гопё8х8 = 256; {Используется для загружаемого шрифта в 


режиме 80х43 или 80х50 с адаптерами ЕСА или УСА} 


Код режима, установленного с помощью вызова процедуры Тех Моае, 
запоминается в глобальной переменной: Газ Моае модуля СЕТ и может 
использоваться для восстановления начального состояния экрана. 

Следующая программа иллюстрирует использование этой процедуры в 
различных режимах. Замечу, что при вызове Тех Мо4е сбрасываются все 
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ранее сделанные установки цвета и окон, экран очищается и курсор пе- 
реводится в его левый верхний угол. 


Озез СВТ; 
Ргосеаиге Рг1пе (5: $З%Е1па); 
{Выводит сообщение $ и ждет инициативы пользователя} - 


Ьед1п 
Мх1ЕеГл ($); {Выводим сообщение} 
Иг1сеГл ('Нажмите клавишу Епфег...!'!); 
ВеааГп {Ждем нажатия клавиши ЕпЕег?)} 


епа; {Рг1пЕЁ} 


у\агх 
ТМ: Мога; | {Начальный режим экрана} 
Ъед1п 
ТМ := ТазЕМоае; {Запоминаем начальный режим работы дисплея} 


ТехЕМоае (Со40); 
Ру1пе ('Режим 40х25'!); 
Тех%Моае (Со80); 
Рг1п® ('Режим 80х25'); 
_ТехЕМоае (Со40+ЕГопЕ8х8); 
Руг1п& ('Режим Со40+Гоп*8х8'!); 
ТехЕМоае (Со80+ЕГопЕ 8х8); 
Рг1п& ('Режим Со80+ЕопЕ8х8'); 
{Восстанавливаем исходный режим работы: } 
Тех%Моае (ТМ) 

епа. — 


Процедура ТехЕСо1ог. Определяет цвет выводимых символов. Заго— 
ловок процедуры: 


Ргосеаиге ТехЕСо1ог (Со1ог: Ву%е); 


Процедура Тех+Васкагочпа. Определяет цвет фона. Заголовок: 
Ргоседиге ТехеВасКакоппа (Со1ог: Ву&е); 


Елинственным параметром обращения к этим процедурам должно быть 
выражение типа Ву, залающее код нужного цвета. Этот код удобно оп-— 
ределять с помощью следующих мнемонических констант, объявленных в 
модуле СКАТ: 


сопзе 
В1аск 0; {Черный} 
В1ае = 1; {Темно-синий} 
Сгееп = 2; {Темно-зеленый} 
Суап = 3; {Бирюзовый} 
Веа = 4; {Красный} 
Мадеп® а = 5; {Фиолетовый} 
Вгомп = 6; {Коричневый} 
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Г1айЕСгау = 7; {Светло-серый} 
РагхкСскау = 8; {Темно-серый} 
.1орЕВ1ае = 9; {Синий} 

Т.19й&Сгееп = 10; {Светло-зеленый} 
.19й*Суап = 11; {Светло-бирюзовый} 
.19й&Веа = 12; {Розовый} 
.101ЕМадепфа = 13; {Малиновый} 

Уе11ом | = 14; {Желтый} 

Ур1 Ее = 15; {Белый} 

В11пК =128; {Мерцание символа} 


Следующая программа иллюстрирует цветовые возможности Турбо 
Паскаля. 


Озез СВТ; 

соп56 
Со1: аггау [1..15] оЕ Зегапа [16] = 
('темно-синий', 'темно-зеленый', 'бирюзовый', 'красный', 
'фиолетовый', 'коричневый', 'светло-серый', 'темно-серый', 
‘синий', 'зеленый', 'светло-бирюзовый', 'розовый', 
'малиновый!, 'желтый'!, 'белый'); 


\уаг 
К: Вуее; 
Ъед1п 
Бог К := 1 ®0 15 4 
Беда {Выводим 15 сообщений различными цветами} 
ТехеСо1ох (К); 
Их1СеТ!Тл ('Цвет ',К,' - ',Со]Ъ[К]) 
епа; 


ТехЕСо1ох (ИВ16е+8В11пКк); {Белые мигающие символы} 
И’г1 ел ('Мерцание символов'); 
{Восстанавливаем стандартный цвет} 
ТехЕСо1охг (Ъ1а91%Сгау); 
Иг1ееГгп 
епа. 


Обратите внимание на последний оператор И/ИеЁ[п: если его убрать, 
режим мерцания символов сохранится после завершения программы, 
несмотря на то, что перед ним стоит оператор 


ТехЕСо1охг (Т1апЕСгау) 


Дело в том, что все цветовые определения предварительно заносятся в 
специальную переменную ТехЁАНг модуля СЕТ и используются для на- 
стройки адаптера только при обращении к процедурам Итйе/ ИтиеЁлп. 


Процелура С1:5сх. Очищает экран или окно (см. ниже процедуру 
Иппаом). После обращения к ней экран (окно) заполняется цветом фона и 
курсор устанавливается в его левый верхний угол. Например: 


Че СВТ; 
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уаг 


С: Спак 
Бедап 
ТехЕВаскагоцпа (геа); 
С1хбск; | {Заполняем экран красным цветом} 
Му1сеГл ('Нажмите любую клавишу...'); 
С :;= ВеааКеу; {Ждем нажатия любой клавиши} 
ТехеВаскагоцпа (В1асК); 
С1х5сг {Восстанавливаем черный фон экрана} 
епа. 
Процедура _И1паом. Определяет текстовое окно — область экрана, 


‘которая в дальнейшем будет рассматриваться процедурами вывода как 
весь экран. Сразу после вызова процедуры курсор помещается в левый 
верхний угол окна, а само окно очищается (заполняется цветом фона). По 
мере вывода курсор, как обычно, смещается вправо и при достижении 
правой границы окна переходит на новую строку, а если он к этому мо-— 
менту находился на последней строке, содержимое окна сдвигается вверх 
на одну строку, т.е. осуществляется «прокрутка» окна. Заголовок проце — 


дуры: 
Ргосе4иге И1паом (Х1,У1,Х2,У2: ВуЕе); 


Здесь Х1...У2 — координаты левого верхнего (Х1,У1) и правого нижнего 
(Х2,У2) углов окна. Они задаются в координатах экрана, причем левый 
верхний угол экрана имеет координаты (1,1), горизонтальная координата 
увеличивается слева направо, а вертикальная — сверху вниз. 

В следующем примере иллюстрируется вывод достаточно длинного 
сообщения в двух разных окнах. 


О5ез СВТ; 
у\уаг 
К: 1пседек; 
Бед1п 
{Создаем левое окно -желтые символы на синем фоне:} 
ТехеВаскагоцпа (В11е); 
И1паом (5,2,35,17); 
ТехЕеСо1охг (Уе11ом); 
Бог К := 1 0 100 ао 


Му1$е(' Нажмите клавишу Ервег...!'!); 
ВеааГп; {Ждем нажатия ЕпЕегк} 
С1убсг; {Очищаем окно} 


{Создаем правое окно - белые символы на красном фоне: } 
ТехеВаскагочпа (Веа); 
ТехЕСо1ох (ИБ1*е); 
М1паом (40,2,70,17); 
Бог К := 1 Фо 100 &ао 
Мух1е(' Нажмите клавишу Епёег...'); 
Веаа!лп; 
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ТехЕМоае (С080) ({Сбрасываем все установки} 
епа. 


Обращение к процедуре И/Лпаот игнорируется, если какая—либо из 
координат выходит за границы экрана или если нарушается одно из ус-— 
ловий: Х2>Х1 и У2>У1. Каждое новое обращение к ИЙЛпаом отменяет 
предыдущее определение окна. Границы текущего окна запоминаются в 
двух глобальных переменных модуля СЕТ. переменная ИИтаМт типа ИУ/ога 
хранит Х1! и 71 (Х1 — в младшем байте), а переменная того же типа 
ИЛпаМах - Х2 и У2 (Х2 -— в младшем байте). При желании Вы можете 
изменять их нужным образом без обращения к И/таот. Например, вместо 
оператора | 


М1паом (40,2,70,17); 
можно было бы использовать два оператора 


{пам := 39+(1 81 8); 
И1паМах := 69+(16 351 8); 


(в отличие от обращения к ИЛпаом координаты, хранящиеся в пере-— 
менных ИшамМт и ИПпаМах, соответствуют началу отсчета 0,0). 


Процедура Со+оху. Переводит курсор в нужное место экрана или 
текущего окна. Заголовок процедуры: 


Ргоседиге со+оху(Х,У: Вуке); 


Здесь Х,У — новые координаты курсора. Координаты задаются отно — 
сительно границ экрана (окна), Т.е оператор 


СофохУ (1,1); 


означает указание перевести курсор в левый верхний угол экрана (или 
окна, если к этому моменту на экране определено окно). Обращение к 
процедуре игнорируется, если новые координаты выходят за границы 
экрана (окна). 


Функции ИНегех и ИВегеу. С помощью этих функций типа Вуёе можно 
определить текущие координаты курсора: И/’егеХ возвращает его гори— 
зонтальную, а И/ЙегеУ — вертикальную координаты. 

В следующей программе сначала в центре экрана создается окно, ко— 
торое обводится рамкой, затем в окне выводится таблица из двух колонок. 


Чзе$ СВТ; 
соп$56е 
ТО = #218; {Левый верхний угол.рамки} 
ВО = #191; {Правый верхний угол} 
ТО = #192; {Левый нижний} 
ВО = #217; {Правый нижний} 
Н = #196; {Горизонтальная черта} 
\У = #179; {Вертикальная черта} 
Х1 = 14; {Координаты окна} 
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У1 = 5; 
Х2 = 66; 
у2 = 20; 
Тхе = 'Нажмите клавишу Епвег...!; 
уаг 
К: 1пседег; 
Бед1п 
С1х5сг; {Очищаем экран} 


{Создаем окно в центре экрана - желтые символы на синем фоне: } 
ТехеВаскагочпа (В1ае); 
ТехеСо1ох (Уе11о\м); 
У1паом (Х1,У1,Х2,У2); 
С1:5сг; 
{Обводим окно рамкой} 
Ихг1 се (10); {Левый верхний угол} 
{Горизонтальная линия} 
Бог К:= Х1+1 $0 Х2-1 ао Мг1лее(Нн); 


Иг1 ее (ВО); {Зерхний правый угол} 
Фог К := У1+1 $0 У2-1 аоэ {Вертикальные линии} 
Бедзп 
СобохХУ (1,К-У1+1); {Переходим к левой границе} 
\Йг1 се (№); {Левая черта} 
СосохУ (Х2-Х1+1,МПегеу); {Правая граница} 
Му1се (У) {Правая черта} 
епа; 
Мг1 ее (То); {Левый нижний угол} 
М1паом (Х1,У1,Х2,У2+1); {Расширяем вниз на одну 


строку координаты окна, иначе вывод в правый 
нижний угол вызовет прокрутку окна вверх} 
СобохУ (2,У2-У1+1); {Возвращаем курсор из левого 
верхнего угла окна на нужное место} 
{Горизонтальная рамка} 
Бог К:= Х1+1 Фо Х2-1 ао Иг1хе(н); 
Му1Ее (Во); {Правый нижний угол} 
{Определяем внутреннюю часть окна} 
\1паом (Х1+1,У1+1,Х2-1,У2-1); 
{Выводим левый столбец} 
Бог К := У1+1 Фо У2-2 ао 
Иг1сеЁл ('Левый столбец, строка ',К-\У1); 
{Ждем нажатия любой клавиши} 


Иг1 Се ('Нажмите любую клавишу...'); 
К := ога (ВеааКеу); 
1Е К=0О &Веп 
К := ога (ВеааКеу); 
Ре1Т1пе; {Стираем приглашение} 


{Выводим правый столбец} 
Бог К := У1+1 Фо У2-2 ао 
Бед1п 
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СобоХУ ((Х2-Х1) ах 2,К-У1); 
Их1ъе ('Правый столбец, строка ',К-\1) 
епа; 
{Выводим сообщение и ждем нажатия клавиши ЕпЕег} 
СофохУ ( (Х2-Х1-Бепаей (Тхе)) ах 2,У2-У1-1); 
ТехЕСо1охг (ИВ16е); 
Мх1се (Тх®); 
ВеааГп; 
{Восстанавливаем стандартный режим} 
ТехеМоде (С080) 
епа. 


Три следующие процедуры без параметров могут оказаться полезными 
при разработке текстовых редакторов. 


Процедура С1уЕОГ. Стирает часть строки от текущего положения 
курсора до правой границы окна (экрана). Положение курсора не меняет — 


СЯ. 


Процедура Ре1Ъ1пе. Уничтожает всю строку с курсором в текущем 
окне (или на экране, если окно не создано). При этом все строки ниже 


удаляемой (если они есть) сдвигаются вверх на одну строку. 


Процедура _Тпз1,1пе. Вставляет строку: строка с курсором и все строки 
ниже ее сдвигаются вниз на одну строку; строка, вышедшая за нижнюю 
границу окна (экрана), безвозвратно теряется; текущее положение курсора 


не меняется. 


Процедуры Том\1аео, _Моги\1аео и Н1ав\1аео. С помощью этих 


процедур без параметров можно устанавливать соответственно пони— 
женную, нормальную и повышенную яркость символов. Например: 


9зез СВТ; 
Беда 
ГомУ1аео; 
Иг16еГл ('Пониженная яркость!); 
МогиУ1Ааео; 
Иг16еГл ('Нормальная яркость"); 
Н1ов\У14ео; 
Мг1$е!л ('Повышенная яркость') 
епа. 


Замечу, что на практике нет разницы между пониженной и нормальной 
яркостью изображения. 


Процедура Азз1апсвТ. Связывает текстовую файловую переменную [с 
экраном с помощью непосредственного обращения к видеопамяти (т.е. к 
памяти, используемой адаптером для создания изображения на экране). В 
результате вывод в такой текстовый файл осуществляется значительно (в 
$...5 раз) быстрее, чем если бы этот файл был связан с экраном стан— 


лартной процедурой 45519 п. Заголовок процедуры: 
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Ргоседике Аззтапсвт (Е: Тех®); 


В слелующей программе измеряется скорость вывода на экран с по- 
мощью стандартной файловой процедуры и с помощью непосредственного 
обращения к видеопамяти. Вначале файловая переменная Е связывается 
«медленной» процедурой А551дп со стандартным устройством СОМ (т.е. с 
экраном) и подсчитывается количество № циклов вывода некоторого 
текста за 555 = 275 миллисекунд системных часов. Затем файловая пе-— 
ременная связывается с экраном с помощью процедуры быстрого доступа 
А5ЯодпсСКТ и точно так же подсчитывается количество № циклов вывода. В 
конце программы счетчики №1 и № выводятся на экран. 

Замечу, что показания системных часов хранятся в оперативной памяти 
компьютера в виде четырехбайтного слова по адресу [$0040:$006С] и 
наращиваются на единицу кажлые 55 миллисекунд. 


О5ез СВТ; 

уаг 
Е: Техс; 
©: БопаТпЕ; {Начало отсчета времени} 
№1,№2: ИМокгка; {Счетчики вывода} 

соп$Е | 


{----- Стандартный вывод в файл ----- } 
Аззтап (Е, 'СОМ'); 
Вемг1е (Г); 
№1 := 0; {Готовим счетчик вывода} 
С1г5сг; {Очищаем экран} 
{Запоминаем начальный момент: } 
Е := Меть[$0040:$006С]; 
{Ждем начала нового 55-мс интервала, чтобы 
исключить погрешность в определении времени:} 
мВ11е Мепт1[$0040:$006С]=% @о; 
{Цикл вывода за 5 интервалов} 
имВ31е Мепт[$0040:$006С]<++6 ао 

Ьед1п 

1пс (№1); 
Мх1се (Е, Ех) 

епа; 
С1озе (ГР); 
{----- Вывод с помощью быстрой процедуры 
прямого доступа к экрану ----- } 
Азз1апсвТ (Е); 
Веиг1ее (Е); . 
№2 := 0; | 
С1у5сг; 
Е := МепЪ[$0040:$006С]; 
мВ11е Меп1($0040:$006С]=Е @о; 
мЪ11е Мет [$0040:$006С]<+=+6 @4о 
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Бед1п 
1пс (№2); 
Мг ее (Е, Ехф) 
епа; 
С]озе (Е); 
{Печатаем результат} 
С1у5сг; 
Ихг1ЕеГп (№1,№2:10) 
епа. 


Следует учесть, что вывод на экран обычным образом — без исполь — 
зования файловой переменной (например, оператором Иг1*е (+х*)) также 
осуществляется с помощью непосредственного доступа к видеопамяти, 
поэтому ценность процедуры А5$19пСКТ весьма сомнительна. Прямой 
доступ к видеопамяти регулируется глобальной логической переменной 
Риес УЧео модуля СКТ: если эта переменная имеет значение Тгие, доступ 
разрешен, если Ра!5е — доступ к экрану осуществляется с помощью от- 
носительно медленных средств операционной системы ЛМ5-—рШоО5. По 
умолчанию переменная Ойиес!/Уаео имеет значение Тгие. 


13.3. ПРОГРАММИРОВАНИЕ ЗВУКОВОГО ГЕНЕРАТОРА 


Звуковые возможности ПК основаны на одноканальном управляемом 
звуковом генераторе, вырабатывающем электромагнитные колебания 
звуковой частоты. Колебания подаются на встроенный в ПК динамик и 
заставляют его звучать. 

В модуль СЕТ включены три процедуры, с помощью которых Вы 
сможете запрограммировать произвольную последовательность звуков. 


Процедура _5оип4. Заставляет динамик звучать с нужной частотой. 
Заголовок процедуры: 


Ргосеаиге боипа (ЕЁ: Мога); 


Здесь Е — выражение типа И/ога, определяющее частоту звука в герцах. 
После обращения к процедуре включается динамик и управление немед— 
ленно возвращается в основную программу, в то время как динамик будет 
звучать впредь до вызова процедуры №фоипа. 


Процедура Мобоцпа. Выключает динамик. Если он к этому моменту не 
был включен, вызов процедуры игнорируется. 


Процедура Пе1ау. Обеспечивает задержку работы программы на за-— 
данный интервал времени. Заголовок процедуры: 


Ргоседиге Пе1ау(Т: Мога); 


Здесь Т — выражение типа У/ога, определяющее интервал времени (в 
миллисекундах), в течение которого задерживается выполнение сле-— 
дующего оператора программы. 

Для генерации звукового сигнала обычно используется вызов опи-— 
санных процедур по схеме 5оипа - Реау— Мо5оипа. Следующая программа 
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заставит ПК воспроизвести простую музыкальную гамму. Используемый в 
ней массив Е содержит частоты всех полутонов в первой октаве от «до» до 
«си». При переходе от одной октавы к соседней частоты изменяются в два 


раза. 


Озез СВТ; 
сопзе 
Е; агкау [1..12] оЕ Веа1 = 
(130.8, 138.6, 146.8, 155.6, 164.8, 
174.6, 185.0, 196.0, 207.7, 220.0, 


233.1, 246.9); {Массив частот 1-й октавы} 
Тетр = 100; {Темп исполнения} 
уаг 
К,п: Тпбедег; 
Бед1п 


{Восходящая гамма} 
Бог К := 0 №0 3 @ 
Бог п := 1 ®0 12 94 
Бед1п 
боцпа (Воцпа (Е[п]*(1 $851 К))); 
Ре1ау (Тепр); 
М№обоцпа 
епа; 
{Нисходящая гамма} 
Бог К := 3 аочлво 0 ао 
Еог п := 12 аомлво 1 ао 
Ьед1п | 
боцпа (Воппа (Е[п]*{1 $651 К))); 
Ре]1ау (Тепр); 
№юобоцпа 
епа 
епа. 


Глава 14 


ИСПОЛЬЗОВАНИЕ БИБЛИОТЕКИ СВАРН 


Начиная с версии 4.0, в состав Турбо Паскаля включена мощная биб-— 
лиотека графических подпрограмм Стар, остающаяся практически не-— 
изменной во всех последующих версиях. Библиотека содержит в общей 
сложности более 50 процедур и функций, предоставляющих программисту 
самые разнообразные возможности управления графическим экраном. Для 
облегчения знакомства с библиотекой все входящие в нее процедуры и 
функции сгруппированы по функциональному принципу. 


14.1. ПЕРЕХОД ВГ РАФИЧЕСКИЙ РЕЖИМ 
`И ВОЗВРАТ В ТЕКСТОВЫИ 


Стандартное состояние ПК после его включения, а также к моменту 
запуска программы из среды Турбо Паскаля соответствует работе экрана в 
текстовом режиме, поэтому любая программа, использующая графические 
средства компьютера, должна определенным образом инициировать 
графический режим работы дисплейного адаптера. После завершения 
работы программы ПК возвращается в текстовый режим. | 


14.1.1. Краткая характеристика графических режимов 
работы дисплейных адаптеров 


Настройка графических процедур на работу с конкретным адаптером 
достигается за счет подключения нужного графического драйвера. Драйвер 
— это специальная программа, осуществляющая управление теми или 
иными техническими средствами ПК. Графический драйвер, как это не 
трудно догадаться, управляет дисплейным адаптером в графическом ре— 
жиме. Графические драйверы разработаны фирмой ВоПап практически 
для всех типов адаптеров. Обычно они располагаются на диске в отдельном 
подкаталоге ВС! в виде файлов с расширением ВСГ (от англ.: ВоПапа 
Старс$ ПеЦПасе — графический интерфейс фирмы ВоПапа). Например, 
ССА.ВОГ — драйвер для ССА-адаптера, ЕСАУСА.ВСТ — драйвер для 
адаптеров ЕСА и УСА и т.п. 

Выпускаемые в настоящее время ПК оснащаются адаптерами, разра — 
ботанными фирмой 1ВМ, или совместимыми с ними. Если не учитывать 
уже упоминавшийся в гл.13 монохромный адаптер МРА, все они имеют 
возможность работы в графическом режиме. В этом режиме экран дисплея 
рассматривается как совокупность очень близко расположенных точек — 
пиксел, светимостью которых можно управлять с помощью программы. 

Графические возможности конкретного адаптера определяются раз— 
решением экрана, т.е. общим количеством пиксел, а также количеством 
цветов (оттенков), которыми может светиться любой из них. Кроме того, 
многие адаптеры могут работать с несколькими графическими страницами. 
Графической страницей называют область оперативной памяти, исполь — 
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зуемая для создания «карты» экрана, т.е. содержащая информацию о 
светимости (цвете) каждого пиксела. Ниже приводится краткая характе — 
ристика графических режимов работы наиболее распространенных 
адаптеров. 

Адаптер СОА (Со]ог СгарШс$ Ааарег — цветной графический адаптер) 
имеет 5 графических режимов. Четыре режима соответствуют низкой 
разрешающей способности экрана (320 пиксел по горизонтали и 200 по 
вертикали, т.е. 320х200) и отличаются только набором допустимых цветов 
— палитрой. Каждая палитра состоит из трех цветов, а с учетом черного 
цвета несветящегося пиксела — из четырех: палитра 0 (светло — зеленый, 
розовый, желтый), палитра 1 (светло —бирюзовый, малиновый, белый), 
палитра 2 (зеленый, красный коричневый) и палитра 3 (бирюзовый, 
фиолетовый, светло — серый). Пятый режим соответствует высокому 
разрешению 640х200, но каждый пиксел в этом случае может светиться 
либо каким —то одним заранее выбранным и одинаковым для всех пиксел 
цветом, либо не светиться вовсе, Т.е. палитра этого режима содержит два 
цвета. В графическом режиме адаптер ССА использует только одну 
страницу. 

Адаптер ЕСА (Епрапсеа О@гар№Мс$ Адарег — усиленный графический 
алаптер) может полностью эмулировать графические режимы адаптера 
ССА. Кроме того, в нем возможны режимы: низкого разрешения (640х200, 
16 цветов, 4 страницы) и высокого разрешения (640х350, 16 цветов, 1 
страница). В некоторых модификациях используется также монохромный 
режим (640х350, 1 страница, 2 цвета). 

Адаптер МССА (МшШИ- Со]ог Огарс5 А4арег — многоцветный гра- 
фический адаптер) совместим с ССА и имеет еще один режим — 640х480, 
2 цвета, 1 страница. Такими адаптерами оснащались младшие модели 
серии ПК Р5/2 фирмы ВМ. Старшие модели этой серии оснащаются более 
совершенными адаптерами УСА (У4ео Сгар№Мс5 Атпау — графический 
видеомассив. Алаптер УСА эмулирует режимы адаптеров ССА и ЕСА и 
дополняет их режимом высокого разрешения (640х480, 16 цветов, 1 
страница). 

Не так давно появились так называемые супер -— УСА адаптеры ($5УСА) с 
разрешением 800х600 и более, использующие 256 и более цветовых от-— 
тенков. В настоящее время эти адаптеры получили повсеместное распро — 
странение, однако в библиотеке Сгарй для них нет драйверов. Поскольку 
УСА совместимы с УСА, для управления современными графическими 
адаптерами приходится использовать драйвер ЕСАУСА.ВС! и довольст-— 
воваться его относительно скромными возможностями. 

Несколько особняком стоят достаточно популярные адаптеры фирмы 
Негсшез$. Алаптер НОС имеет разрешение 720х348, его пикселы могут 
светиться одним цветом (обычно светло — коричневым) или не светиться 
вовсе, т.е. это монохромный адаптер. Алаптер НСС-+ отличается несу— 
щественными усоверйенствованиями, а адаптер ШСС (Негсшез шт Со]ог 
Сага) представляет собой 16 — цветный вариант НОС+. 
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14.1.2. Процедуры и функции 


Процедура _Тп1ЕСгарв. Инициирует графический режим работы 
адаптера. Заголовок процедуры: 


Ргосеаике Тп1ЕСгарН (хак Рг1уег,Моае: Тпфеедег; Ра®В: $З%Е1та); 


Здесь Опуег — переменная типа Пёедег, определяет тип графического 
драйвера; Мое — переменная того же типа, залающая режим работы 
графического адаптера; Рай — выражение типа 511т9, содержащее имя 
файла драйвера и, возможно, маршрут его поиска. 

К моменту вызова процедуры на одном из дисковых носителей ин- 
формации должен находиться файл, содержащий нужный графический 
драйвер. Процедура загружает этот драйвер в оперативную память и пе 
реводит адаптер в графический режим работы. Тип драйвера должен 
соответствовать типу графического. адаптера. Для указания типа драйвера в 
модуле предопределены следующие константы: 


соп$зЕ 
Ребесе 
ССА 
МССА 
ЕСА 
ЕСА64 
ЕСАМопо 
1ВМ8514 

_ НегсМопо 
АТТ400 
УСА 
РС3270 


Большинство адаптеров могут работать в различных режимах. Для того, 
чтобы указать адаптеру требуемый режим работы, используется пере-— 
менная Мо4е, значением которой в момент обращения к процедуре могут 
быть такие константы: 


{Режим автоопределения типа} 


нии вин 
о. чо. чо чо. %. чё 


Н 
хючмяияьоювно 


р 
+ 
<> *. * %, 


® 
у 


сопзе 
{Адаптер ССА:} 
ССАСО = 0; {Низкое разрешение, палитра 0} 
ССАС1 1; (Низкое разрешение, палитра 1} 
ССАС2 = 2; {Низкое разрешение, палитра 2} 
ССАСЗ 3; {Низкое разрешение, палитра 3} 
ССАН1 = 4; {Высокое разрешение} 
{Адаптер МССА:] 
МССАСО = 0; {Эмуляция ССбАСО} 
МССАС1 = 1; {Эмуляция ССАС1} 
МССАС2 = 2; [Эмуляция ССАС2} 
МССАСЗ = 3; {Эмуляция ССАСЗ} 
МССАМеа = 4; (Эмуляция ССАН] } 
МССАН1 = 5; {640х480} 


{Адаптер ЕСА; 


ЕСАГо ; {640х200, 16 цветов} 


} 
0 

ЕСАН1 = 1; (640х350, 16 цветов} 
3 


ЕСАМопоН1 = 3; (640х350, 2 цвета} 
{Адаптеры НСС и НСС+:} 

НегхсМопоН1 = 0; [(720х348} 

{Адаптер АТТ400:})} 

АТТ400С0 = 0; {Аналог режима ССАСО} 


АТТ400С1 = 1; {Аналог режима ССАС1} 
АТТ400С2 = 2; (Аналог режима ССАС2} 
АТТ400СЗ = 3; (Аналог режима ССАСЗ} 
АТТ400Мея = 4; [Аналог режима ССАН] } 
АТТ4ООН1 = 5; (640х400, 2 цвета} 
{Адаптер УСА; } 

УСАГо = 0; {640х200} 

УсСАМеа 1; {640х350} 

УСАН1 = 2; [(640х480} 

РСЗ270Н1. = 0; {Аналог НегсМопон1}. 


{Адаптер 1ВМ8514} 
1ВМ8514Ъо0о = 0; [640х480, 256 цветов} 
18ВМ8514Н1 = 1; {1024х768, 256 цветов} 


Пусть например, драйвер ССА.ВС! находится в каталоге ТР\ВС! на 
диске С и устанавливается режим работы 320х200 с палитрой 2. Тогда 
обращение к процедуре будет таким: 


95е5 СгарП; 
уаг 
Ру1уег, Моае : Тпеедег; 
Ьед1п 
Ох1уехг := ССА; {Драйвер} 
Моае := ССАС2; {Режим работы} 


Тп1&Сгарв (Ох1уег, Моае, 'С:\ТР\ВСТ');. 


Если тип адаптера ПК неизвестен или если программа рассчитана на 
работу с любым адаптером, используется обращение к процедуре с тре-— 
бованием автоматического определения типа драйвера: 


Рг1уег := Бефес+; 
Тп1СгарН (Рх1уег, Моде, 'С:\ТР\ВСТ'); 


После такого обращения устанавливается графический режим работы 
экрана, а при выходе из процедуры переменные РФийуег и Моае содержат 
целочисленные значения, определяющие тип драйвера и режим его рабо — 
ты. При этом для адаптеров, способных работать в нескольких режимах, 
выбирается старший режим, т.е. тот, что закодирован максимальной 
цифрой. Так, при работе с ССА-—адаптером обращение к процедуре со 
значением Диуег = Реёес| вернет в переменной Опуег значение 1 (ССА)} и 
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в Моае — значение 4 (ССАН!) а такое же обращение к адаптеру УСА 
вернет Опуег = 9 (УСА) и Моае = 2 (УСАНИУ. 


Функция СгариВези1%. Возвращает значение типа Педег, в котором 
заколирован результат последнего обращения к графическим процедурам. 
Если ошибка не обнаружена, значением функции будет ноль, в противном 
случае — отрицательное число, имеющее слелдующий смысл: 


соп5 
ахгок = 0; {Нет ошибок} 
агТп1ЕСскарь =-1; (Не инициирован графический режим} 
агМоерефесееа =-2; {Не определен тип драйвера} 
ахЕР11еМоеЕ1па =-3; {Не найден графический драйвер} 
агТпуа11ар)г1уег =-4; {Неправильный тип драйвера} 
схМоГоаЯМет =-5; {Нет памяти для размещения драйвера} 
агМобсапМем =-6; {Нет памяти для просмотра областей} 
агМоЕтоо Мет =-7; {Нет памяти для закраски областей} 
аггопЕМоЕРоцпа =-8; {Не найден файл со шрифтом} 
ахМоРГоп&Мем =-9; {Нет памяти для размещения шрифта} 
агТпуа11АМоае =-10; {Неправильный графический режим!’ 
ЧхЕГГог =-11; {Общая ошибка} 
АЕТОЕЕЕОЕ =-12; {Ошибка ввода-вывода} 
агТп\уа11АРоп® =-13; {Неправильный формат шрифта} 


агТпуа11АРопЕМии=-14; {Неправильный номер шрифта} 


После обращения к функции СтарАКезий признак ошибки сбрасы-— 
вается, поэтому повторное обращение к ней вернет ноль. 


Функция СгарьЕггохМза. Возвращает значение типа 5Н1тд, в котором 
по указанному коду ошибки дается соответствующее текстовое сообщение. 
Заголовок функции: 


Рапсё1оп СгарНЕггогМза (СоЧ4е: Тпеедег): З%х1па; 


Здесь Соае — код ошибки, возвращаемый функцией СгарПКези!. 

Например, типичная последовательность операторов для инициации 
графического режима с автоматическим определением типа драйвера и 
установкой максимального разрешения имеет следующий вид: 


\ах 
'Рг1уехг, Моае, Еггог : Тпбедег; 
Ъед1п 
Рг1уег := Рефес®; {Автоопределение драйвера} 
Тп1ЕСгарВ (Рг1уег, Моае, ''); {Инициируем графику} 
Еггохг := СгарпВезо1&; {Получаем результат} 
1Е Еггог <> агхОКк &Веп {Проверяем ошибку] 
Бед1п {Ошибка в процедуре инициации} 
Му1$ ел (СхарВЕггохМза (Еггог)); {Выводим сообщение} 
епа 


е15е {Нет ошибки} 


Использование библиотеки Сгарй 281. 


Чаще всего причиной возникновения ошибки при обращении к про- 
цедуре шИСтарА является неправильное указание местоположения файла с 
лрайвером графического адаптера (например, файла ССА.ВС1 для адаптера 
СОА). Настройка на местоположение драйвера осуществляется заданием 
маршрута поиска нужного файла в имени драйвера при вызове процедуры 
шШИсатгарл. Если, например, драйвер зарегистрирован в подкаталоге ОАТУЕК$ 
каталога РАЗСАЁ на диске О, то нужно использовать вызов: 


Тп1ЕСкарй (2х1уег, Моде, 'а:\Разса1\П0г1уег$'); 


Замечание. Во всех следующих примерах процедура ШИСтарй вызы- 
зается с параметром Опуег в виде пустой строки. Такая форма обращения 
5удет корректна только в том случае, когла нужный файл графического 
\райвера находится в текущем каталоге. Для упрощения повторения 
тримеров скопируйте файл, соответствующий адаптеру Вашего ПК, в 
гекущий каталог. 


Процедура _С1озебСгарВ. Завершает работу адаптера в графическом 
2ежиме и восстанавливает текстовый режим работы экрана. Заголовок: 


Ргосеацге С1озебсгарц; 


Процедура _ВезкогесСВТМоде. Служит для кратковременного возврата в 
екстовый режим. В отличие от процедуры С]10озеСгарН не сбрасываются 


’становленные параметры графического режима и не освобождается 
тамять, выделенная для размещения графического драйвера. Заголовок: 


Ргоседаге ВКезсогесВТМоае; 


Функция СееСгарНМоде. Возвращает значение типа Педег, в котором 
:одержится код установленного режима работы графического адаптера. 
Заголовок: 


РилсЕ1оп СееСгарПМоае: Тпеедег; 


Процедура _ЗеЕСгарЬМоде. Устанавливает новый графический режим 
›аботы адаптера. Заголовок: 


Ргосеаихге ЗеЕСгар!Моае (Моде: ТпЕедег); 


Здесь Мо4е — код устанавливаемого режима. 
Следующая программа иллюстрирует переход из графического режима 
‚ текстовый и обратно: 


1зез Сгарп; 
гах 
Ох1уех’, Моае, Еггохг : Тпёедег; 
›ед1п 
{Инициируем графический режим} 
Рх1уег := Бесесе; 
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Т116Сгарь (Рх1уег, Моде, ''); 
Еггог := СгарьВе$1]1%; {Запоминаем результат} 
1Е Еггог <> агОоК еп {Проверяем ошибку} 
Иузеерл (СсгаррЕггогМза (Еггог)) {Есть ошибка} 
е1зе 
Бедап {Нет ошибки} 
Иу1ЕеГп ('Это графический режим'); 
Иг1ееГр ('Нажмите "Епбег"...'!:20); 
КеааГп; 
{Переходим в текстовый режим} 
ВезбогесСВТМоае; 
Иг1се!п (' А это текстовый...'); 
Веаа!п; 


{Возвращаемся в графический режим} 
беесгарЮМоае (СеесгарВМоае); 
Иг1$ерп ('Опять графический режим...!'); 
Веаа!п; 
С1озебскарп 
епа 
епа. 


В этом примере для вывода сообщений как в графическом, так и в 
текстовом режиме используется стандартная процедура ИИеЁп. Если Ваш 
ПК оснащен нерусифицированным адаптером ССА, вывод кириллицы в 
графическом режиме таким способом невозможен, в этом случае замените 
соответствующие сообщения так, чтобы использовать только латинские 
буквы. 


Процедура Ресес«&СгарВ. Возвращает тип драйвера и режим его рабо -— 
ты. Заголовок: 


Ргоседаге Пефтес&Сгарй (уаг Рг1уег,Моае: Тпеедег); 


Здесь Опуег — тип драйвера; Моае — режим работы. 

В отличие от функции ЗеЮтгарАМо4е описываемая процедура воз-— 
вращает в переменной Моае максимально возможный для данного адап— 
тера номер графического режима. 


Функция Сеерг1уегМапе. Возвращает значение типа $511тд, содер— 
жащее имя загруженного графического драйвера. Заголовок: 


Рипсе1оп Сеерхг1уегМатме: $%г1пд; 
Функция СесМахМоде. Возвращает значение типа Пёедег, содержащее 
количество возможных режимов работы адаптера. Заголовок: 
Гипсе1оп Се<МахМоае: Тп%едег; 
Функция СеЕМодеМаме. Возвращает значение типа 51119, содержащее 


разрешение экрана и имя режима работы адаптера по его номеру. Заго — 
ЛОВОК; | 
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Еапсе1оп СеЕеМоаМате (МоаМ№апьег: ТпЕедег): Зехапда; 


Здесь МоаМитьЬег — номер режима. 

Следующая программа после инициации графического режима выводит 
на экран строку, содержащую имя загруженного драйвера, а также все 
возможные режимы его работы. 


Озез Сгарп; 


уагх 

а,р: Тпеедег; 
Ъед1п 

а := ПШБебес*; 


Тп1еСгкарр (а, Ю, ''); 
Мг1 сего (бСеерх1уегМапе); 


ог а := 0 Фо СеЕМахМоае @ао 
Иг1веГл (СеЕМоаеМапе (а) :10); 
ВеаЯГп;. | 
С1озеСгарпь 
епа. 


Процедура СеЕМодеВапае. Возвращает диапазон возможных режимов 
работы заданного графического адаптера. Заголовок: 


Ргоседиге СесМодеВападе (Рку: ТпЕедег; уаг М1п, Мах: Тп(едег); 


Здесь Огу — тип адаптера; Мт — переменная типа Пиедег, в которой 
возвращается нижнее возможное значение номера режима; Мах — пе- 
ременная того же типа, верхнее значение номера. | 

Если задано неправильное значение параметра Пгу, процедура вернет в 
обеих переменных значение —1. Перед обращением к процедуре можно 
не устанавливать графический режим работы экрана. Следующая про— 
грамма выводит на экран названия всех адаптеров и диапазоны воз— 
можных номеров режимов их работы. 


Озез Сгарь; 


у\аг 
р, Г,Н: Тпседегк; 

сопзе 
№: агхгау [1..11] оЕ капа [8] = 

('ССА ', 'МССА ', 'ЕСА ', 
'ЕСАбА4 ', 'ЕСАМопо ', '1ВМ8514 \, 
'НегхсМопо!, 'АТТ400 ', "УСА ', 
'РСЗ3270 \', "Ошибка \'); 

Бедап | / 
Мх1сеГл ('Адаптер Мин. Макс.'!); 
Рог О := 1 ®0 11 а@ 

Ьедз1.п 


СефМоаеБВапсде (р, Ц, Н); 
Иг1еегл (№[0], Ь:7, Н:10) 
епа 
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епа. 


14.2. КООРДИНАТЫ, ОКНА, СТРАНИЦЫ 


Многие графические процедуры и функции используют указатель 
текущей позиции на экране, который в отличие от текстового курсора 
невидим. Положение этого указателя, как и вообще любая координата на 
графическом экране, задается относительно левого верхнего угла, который, 
в свою очередь имеет координаты 0,0. Таким образом, горизонтальная 
координата экрана увеличивается слева направо, а вертикальная — сверху 
ВНИЗ. 


Функции СесМахх_ и СееМаху. Возвращают значения типа И’ога, со- 
держащие максимальные координаты экрана в текущем режиме работы 
соответственно по горизонтали и вертикали. Например: 


Озез Сгарп; 


уагх 
а, р: Тпеедег; 

Бедап 
а := ПБефесе; 
Тп1ЕСгарь (а, Ъ, !'!); 
Иу1т6еГл (СеЕМаххХ, СеЕМаху:5); 
ВеааГп; 
С1озесСгкарп 

`‘епа. 


Функции Сеех_ и СефУ. Возвращают значения типа Пцедег, содержащие 
текущие координаты указателя соответственно по горизонтали и вертика — 
ли. Координаты определяются относительно левого верхнего угла окна или, 
если окно не установлено, экрана. 


Процедура _5еУ1емРог+. Устанавливает прямоугольное окно на гра 
фическом экране. Заголовок: 


Ргосеаиге Зее\У1еиРог* (Х1,У1,Х2,У2 Тпфедег; С11рОп: Воо1еап); 


Здесь Х1...У2. — координаты левого верхнего (Х1,У1] и правого нижнего 
(Х2,У2) углов окна; СИРОп — выражение типа Водфеап, определяющее 
«отсечку» не умещающихся в окне элементов изображения. 

Координаты окна всегда задаются относительно левого верхнего угла 
экрана. Если параметр СИрОп имеет значение Тгие, элементы изображе— 
ния, не умещающиеся в пределах окна, отсекаются, в противном случае 
границы окна игнорируются. Аля управления этим ‘параметром можно 
использовать такие определенные в модуле константы: 


соп5Е , 
С11роп = Тгкае; {Включить отсечку} 
С11рРОЕЕ Га15е; {Не включать отсечку} 
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Следующий пример иллюстрирует действие параметра СПрОп. Про- 
грамма строит два прямоугольных окна с разными значениями параметра и 
выводит в них несколько окружностей. Для большей наглядности окна 
обводятся рамками (см. рис.14.1). 


СПроп: СПРОЕ: 


Г (у 


Рис.14.1. Отсечка изображения в окне 


Ч95е$ Сгарп, СВТ; 


уах 
х,у,е: Тпфедег; 
х11,у11,х12,у12, {Координаты 1-го окна} 
х21,х22, {Левый верхний угол 2-го} 
В, {Начальный радиус} 
К: Тпбедег; 

Бед1п 
21гесе\У\У1аео := Га1зе; {Блокируем прямой доступ 


| к видеопамяти в модуле СЕТ} 
{Инициируем графический режим} 
х := Бебесе; 
Тп1ЕСгкарь (х, у, ''); 
{Проверяем результат] 
ое := СгарьВеза1*; 
1Е е <> дчгОк ЕВеп 
Иу1ееГл (СсгарВЕгго:Мза (е)) _ {Ошибка} 
е15е 


ред1п {Нет ошибки} 
{Вычисляем координаты с учетом разрешения экрана} 
х11 := СеЕМахх аах 60: | 


х12 := СееМахх а1х 3; 
у11 := СеЕМаху а1х 4; 
у12 := 2*у11; 

В := (х12-х11) ах 4; 


х21 := х12*2; 
х22 := х21+х12-х11; 
{Рисуем окна} 
Их1верл ('С11рОп: ':10, 'С11рОЕЁ:':40); 
Весбапа1е (х11, У11, х12, у12); 
ВКесеапа1е (х21, у11, х22, у12); 
{Назначаем 1-е окно и рисуем четыре окружности} 
ЗееУ1емРог® (х11, у11, х12, уУ12, С11р0Оп); 
Бог К := 1 04 9о 

С1:Сс1е (0,у11,В*К); 
{Назначаем 2-е окно и рисуем окружности} 
ЗеЕ\У1емРог® (х21, у11, х22, у12, С11РОЕЕ); 
Бог К := 1 0 4 до 

С1гс1е (0,у11,В*К);. 
{Ждем нажатия любой клавиши} 
12 ВеаЧКеу=#0 &Беп К := ога (ВеааКеу); 
С1озебгкарй 

епа 
епа. 


Процедура _Се+У1ембеЕ1паз. Возвращает координаты и признак от- 
сечки текущего графического окна. Заголовок: 


Ргосеачге Се У1еибе*1пта$ (уаг УземТптЕо: УземРогЕТуре); 


Здесь УетзШЮ -— переменная типа УемРог!Туре. Этот тип в модуле 
Сгарй определен следующим образом: | 
фуре 


У1емРог&Туре = хесога 
х1,Уу1,х2,у2: Тпбедег; {Координаты окна}. 
С11р : Воо1еап {Признак отсечки} 
епа; | 


Процедура МотеТо. Устанавливает новое текущее положение указателя. 
Заголовок: 


Ргоседихте МоуеТо(Х,У: Тпфедег); 


Здесь Х,У — новые координаты указателя соответственно по гори-— 


зонтали и вертикали. 
Координаты определяются относительно левого верхнего угла окна или, 


если окно не установлено, экрана. 
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Процедура МоуеВе!1. Устанавливает новое положение указателя в от- 
носительных Координатах. 


Ргоседаге МоуеВе1 (0Х,ШОУ: Тпфедег); 


Здесь РХ,РУ — приращения новых координат указателя соответственно 
по горизонтали и вертикали. 

Приращения задаются относительно того положения, которое занимал 
указатель к моменту обращения к процедуре. 


Процедура С1еаг)еу1се. Очищает графический экран. После обра-— 
щения к процедуре указатель устанавливается в левый верхний угол эк— 
рана, а сам экран заполняется цветом фона, заданным процедурой 
зевВКСо/]ог. Заголовок: 


Ргоседоге С1еагП0еу1се; 


Процедура С1еахУ1емРог*. Очищает графическое окно, а если окно не 
определено к этому моменту — весь экран. При очистке окно заполняется 
цветом с номером 0 из текущей палитры. Указатель перемещается в левый 
верхний угол окна. Заголовок: | 


Ргосеаиге С1еагх\У1емРог\; 


В следующей программе на экране создается окно, которое затем за— 
полняется случайными окружностями (рис.14.2). После нажатия на любую 
клавишу окно очищается. Аля выхода из программы нажмите Ет(ег, 

Озез СВТ,Сгарц; 


уах 
х1,Уу1,х2,у2,Егг: Тпбедег; 
Бедап 
{Инициируем графический режим} 
х1 := Бефесс; 


Тп1еСгарВ (х1,х2,''); 
Егг := СгарНВезо1*; 
1Е Егг<>агОкК Вей 
Иг1$еГл (СгаррЕггогхМ5$ча (Егг)) 
е1зе 
Беда п 
{Определяем координаты окна 
с учетом разрешения экрана} 


х1 := СеЕМахх @ах 4; 
у1 := СеЕеМаху @а1у 4; 
х2 := 3%х1; 
у2 := 3*у1; 


{Создаем окно] 
Вес*апа1е (х1,у1,х2, у2); 
ЗесУ1емРогЕ (х1+1,у1+1,х2-1,у2-1,С11рОп); 
{Заполняем окно случайными окружностями} 
гереаф 
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С1:с1е (Вапаом (СеЕМахХ) , Вапаом (беЕМахх), 
Вапаом (СсеЕМахх @Я1у 5)) 
11611 КеуРгеззеа; 


„к — 


Рис.14.2. Окно со случайными окружностями 


{Очищаем окно и ждем нажатия ЕпЁег} 

_ С1еахУземРоге; й | — 
ОцфеТехехУ (0,0, 'Ргезз Епфег...'!);- 
Веаа!Гп; 

С1озеСгарп 
ела 
епа. 


Процедура _СеЕАзрес®Ва*1о. Возвращает два числа, позволяющие 
оценить соотношение сторон экрана. Заголовок: 


Ргоседицке СесАзрес&Вак1о (уаг Х,У: Шога); 


Здесь Х, У — переменные типа И’ога. Значения, возвращаемые в этих 
переменных, позволяют вычислить отношение сторон графического экрана 
в пикселах. Найденный с их помощью коэффициент может использоваться 
при построении правильных геометрических фигур, таких как окружности, 
квадраты и т.п. Например, если Вы хотите построить квадрат со стороной 
]. пиксел по вертикали, Вы должны использовать операторы 


СесАзресеВа*1о (Хазр, Уазр); 
Весфапа]1е (х1, у1, х1+Ъ*гоппа (Уазр/Хазр), у1+1); 


а если Г определяет длину квадрата по горизонтали, то используется 
оператор | | 


Весфапа1е (х1,у1,х1+1, у1+*гкоппа (Хазр/Уазр)); 
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Процедура Зе-АзресЕВа*1о. Устанавливает масштабный коэффициент 
отношения сторон графического экрана. Заголовок: 


Ргосеааке бесАзресеВа®1о (Х,У: Мока); 


Здесь Х, У — устанавливаемые соотношения сторон. | 
Следующая программа строит 20 окружностей с разными соотноше-— 
ниями сторон экрана (рис.14.3). 


Рис. 14.3. Окружности при разных отношениях сторон экрана 


95е$ Сгарп, СВТ; 


соп$е 
В = 50: 
Чх = 1000; 
уаг 


а, м,е,к : Тпеедег; 
Хазр, Уазр: Могка; 
Бедлп 
Я := Бебесф; 
Тп1&Сгарв (4, м, ''); 
е := СгарвВеза1(; 
1Е е <> дхок еп 
Иг1 сел (СгарпЕгкогМ5ч (е)) 
е]1зе 
Ьед1п 
СееАзресеВа*1о (Хазр, Уазр); 
Бог К := 0 Фо 20 ао 


10—1411 
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БЬед1п | 
ЗесАзресЕКВа®1о (Хазр+К*аАх,Уазр); 
С1гс]1е (СееМаххХ @а1ху 2,СеЕМаху ау 2,8) 

епа; 

1Е ВКеаЯКеу=#0 %Веп К := ога (КеааКеу); 

С]1озебсгарй 

епа 
епа. 


Процедура _5е-АсЕ1уеРаае. Делает активной указанную страницу 
видеопамяти. Заголовок: 


Ргосе4иге ЗесАсЕ1уеРаде (РадеМ\№ит: Иога); 


Здесь РадеМит — номер страницы. 

Процедура может использоваться только с адаптерами, поддержи -— 
вающими многостраничную работу (ЕСА, УСА и т.п.). Фактически про— 
цедура просто переадресует графический вывод в другую область ви-— 
деопамяти, однако вывод текстов с помощью ИтЦе/Итие[т всегда осу— 
ществляется только на страницу, которая является видимой в данный 
момент (активная страница может быть невидимой). Нумерация страниц 
начинается с нуля. 


Процедура _5е+\У1з0а1Раае. Делает видимой страницу с указанным 
номером. Обращение: | 


Ргоседиге 5е\У151а1Раде (Раче\мат: Мога); 


Здесь РадеМит — номер страницы. 

Процедура может использоваться только с адаптерами, поддержи-— 
вающими многостраничную работу (ЕСА, УСА и т.п.). Нумерация страниц 
начинается с нуля. | 

Следующая программа сначала рисует квадрат в видимой странипе и 
окружность — в невидимой. После нажатия на Ешег происходит смена 
видимых страниц. 


Озез СгарП; 


уаг 
а, м,е: Тпфедег; 
$ : ЭЗЕгааа; 
Ъед1п 


Я := ПОебес*; 
Тп1ЕСгарВ (а, п, ''); 
е := СгарПВе$11; 
1Е е <> чгоКк &ЪВеп 
Их фсеГп (СгаррЕгкогМзча (е)) 
е1зе {Нет ошибки. Проверяем, поддерживает ли драйвер 
многостраничную работу с видеопамятью:} 
1Е а зп [НегсМопо, ЕСА, ЕСАб4,МССА, УСА] &Веп 
Без1п {Используем многостраничный режим} 
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1Е а<>НегсМопо Веп 
зеесгар!Моае (т-1); 

{Заполняем видимую страницу} 
Весфапа1е (10,10, СеЕМахх @1у 2, сеЕМаху ат 2); 
ОцеТехехХУ (0,0, 'Раде 0. Ргезз Епфег...'); 
{Заполняем невидимую} 
ЗесАсе1уеРачце (1); 
С1гс1е (СеЕМахх азу 2, СеМахуУ @1х 2, 100); 
ОцеТехЕХУ (0, Се МахУу-10, 'Раде 1. Ргез$ Епеег...'); 
{Демонстрируем страницы} 
ВеааГп; 
Зее\/151а1Раае (1); 
ВеааГп; 
Зе-У15ца1Раае (0); 
ВеааГп; 
С1озебсгарв 

епа 

е1 зе 

Бед1п {Драйвер не поддерживает многостраничный режим} 
3 := Сес)к1уегМапте; 
С1озебсгари; 
Мга сел ('Адаптер ',5,' использует только 1 страницу’) 

епа | | -_ 

епа. 


Обратите внимание на оператор 


3Е а<>НегсМопо &Веп 
ЗеЕСгар!Моае (м-1); 


(С его помощью гарантированно устанавливается многостраничный режим 
работы на адаптерах ЕСА, МССА, УСА. Как уже говорилось, после ини-— 
циации графики с Опуег= РеесЕ устанавливается режим работы с мак- 
симально возможным номером; перечисленные адаптеры в этом режиме 
могут работать только с одной графической страницей, чтобы обеспечить 
работу с двумя страницами, следует уменьшить номер режима. 


13.3. ЛИНИИ И ТОЧКИ 


Процедура _РоЕР1хе1. Выводит заданным цветом точку по указанным 
координатам. Заголовок: 


Ргосеаике Роа{Р1хе]1 (Х,У: Тпееадег; Со1ог: Шога)}; 


Здесь Х,У — координаты точки; Со]ог — цвет точки. 
Координаты задаются относительно левого верхнего угла окна или, ‘если 
<кно не установлено, относительно левого верхнего угла экрана. 
Следующая программа периодически выводит на экран «звездное небо» 
и затем гасит его. Для выхода из программы нажмите любую клавищу. 
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Озез СВТ, схарп; 
фуре 

Р1хе1Туре = хесогха 

х, у : Тп%едег; 

епа; 
соп$Е 

М = 5000; {Количество 
уаг 

а,г,е,кК: Тпбедег; 

х1,у1,х2,у2: Тпфедег; 


а: агхгау [1..М№ оЕ Р1хе1Туре; {Координаты} 
редап 

{Инициируем графику} 

Я := ПБебес&; 

Тр1ЕСгкарН (а, г, ''); 

е := СгарвВеза1{; 


1Е е<>агоКк ЕВеп 
Музее п (СгарВЕгкогМзса (е)) 


е1зе 
Ъед1п 
{Создаем окно в центре экрана) 
х1 := СеЕМахХх а@зу 4; 
у1 := СеЕМаху азу 4; 
х2 := 3*х1; | 
у2 := 3*У1; 


Вессапа1е (х1,у1,х2,у2); 
ЗеЕ\/1емРог® (х1+1,у1+1,х2-1,у2-1,С11р0п); 


"звезд"} 


{Создаем и запоминаем координаты всех "звезд"} 


Бог К := 1 0 М ао 
м1 ЕВ а[К] ао 


Ьед1п 
х := Вапаом (х2-х1); 
у := ВКапаом (у2-у1) 
епа; 
{Цикл вывода} 
гереае 


Фог К := 1 0 М 9 


м1ЕВ а[к] @ао {Зажигаем "звезду"} 


РаЕР1хе1 (х,у,мВ1е); 
1Е поё КеуРгеззеа &Веп 
Бог К := № аомпео 1 ао 


"1ЕВ а[К] ао {Гасим "звезду"} 


Ра$Р1хе1 (х,у,51асК) 
1110811 КеуРгеззеа; 
иВ11е КеуРгеззеЯ @4о К := ога (Веа@Кеу); 
С1озесгарь 
епа; 
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епа. 


Функция СеЕР1хе]1. Возвращает значение типа И/ога, содержащее цвет 
пиксела с указанными координатами. Заголовок: 


ЕипсЕ1оп СеЕР1хе1(Х,У: Тпбедег): Мога; 


Здесь Х, У — координаты пиксела. 


Процедура_Т,1пе. Вычерчивает линию с указанными координатами 
начала и конца. Заголовок: 


Ргосеаиге Г1пе (Х1,У1,Х2,У2: ТпЕедег); 


Здесь Х1...У1 — координаты начала (Х1, У1) и конца (Х2, У2) линии. 

Линия вычерчивается текущим стилем и текущим цветом. В следующей 
программе в центре экрана создается окно, которое затем расчерчивается 
случайными линиями. Для выхода из программы нажмите любую клавищу. 


Озез СВТ, Сгарй; 
уаг 
Ч, х,е : Тпфедег; 
х1,у1,х2,у2: Тпеедег; 
Ъедлп 
{Инициируем графику] 
Я := Бефес®; 
1п01&СгкарВь (а, г, ''); 
е := СгарвВе$а1*; 
1Е е <> чгоКкК еп 
Иг1сеГл (СгаррЕггогМзча (е)) 


е1зе | 
Беда п | 
{Создаем окно в центре экрана} 
х1 := СеЕМахх 91Уу 4; 
у1 := СеЕМаху азу 4; 
х2 := 3%х1; 
у2 := 3*у1; 


Весфапа1е (х1,у1,х2,у2); 
ЗееУ1емРог® (х1+1,у1+1,х2-1,у2-1,С11рОп); 
{Цикл вывода случайных линий} 
гереае 
зееСо1 ох ($иасс (Вапаом (16))); {Случайный цвет} 
Ь1пе (Вапаом (х2-х1), Капаом(у2-у1), 
Вапаощ (х2-х1), Вапаом(у2-у1)) 
‚90611 КеуРгеззеа; 
1Е КеаЧКеу=#0 ЕЪеп 4 := ога (ВеааКеу); 
С1о5еСгарп 
епа 
епа. — 
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Процелуглп Г1реТо. Вычерчивает линию от текущего положения ука-— 
зателя до положения, заданного его новыми координатами. Заголовок: 


Ргосеаиге Т1пеТо (Х,У: Тпфедег); 


Здесь Х, У — координаты нового положения указателя, они же — ко- 
ординаты второго конца линии. 


Процедура _Т1пеВе1. Вычерчивает линию от текущего положения 
указателя до положения, заданного приращениями его координат. Заго — 
ЛОВОК: 


Ргосеаихте 11пеВе1 (0х, ПУ: Тпеесдег); 


Здесь ОХ, РУ — приращения координат нового положения указателя. 
В процедурах ИпеТо и МпеКе! линия вычерчивается текущим стилем и 
текущим цветом. 


Процедура 5е*Т1пе5+у1е. Устанавливает новый стиль вычерчиваемых 
линий. Заголовок: 


Ргоседиге Зее 1пеб®у1е (Туре, Рае кегп, ТВ1СсКк: Иокга) 


Здесь Туре, РаНегп, Тмск — соответственно тип, образец и толщина 
линии. | 
Тип линии может быть задан с помощью одной из следующих констант: 


соп$е 
$011аАгп 0; (Сплошная линия} 
Рос феа п = 1; (Точечная линия} 
СепхекГп = 2; {Штрих-пунктирная линия} 
Разреап = 3; (Пунктирная линия} 
ОзегВ11т = 4; {Узор линии определяет пользователь! 


Параметр РаНегп учитывается только для линий, вид которых опреде — 
ляется пользователем (т.е. в случае, когда Туре = ОзегВШлт). При этом два 
байта параметра РаНегп определяют образец линии: каждый установ — 
ленный в единицу бит этого слова соответствует светящемуся пикселу в 
линии, нулевой бит — несветящемуся пикселу. Таким образом, параметр 
рРаНегп задает отрезок линии длиной в 16 пиксел. Этот образец перио — 
дически повторяется по всей длине линии. 

Параметр ТН:ск может принимать одно из двух значений: 


соп$е 
МогиИ1 ав = 1; {Толщина в один пиксел} 
ТА1сКкИ1Ааен = 3; (Толщина в три пиксела} 


Отметим, что установленный процедурой стиль линий (текущий стиль) 
используется при построении прямоугольников, многоугольников и друтих 
(фигур. 

В следующем примере демонстрируются линии всех стандартных 
стилей, затем вводятся слово — образец и линия с этим образцом запо..— 
нения (рис.14.4). Для выхода из программы введите ноль. 
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Раф егп: 1 
Рафжекпт: 


_Раж&ент: 127 О ЗИ И Г А Г 


$о 11а п 
Фо +еаЁЕпл 


Сепфе тм 


Раёфегп: 65528 зна пла паи па ваз виа виа мае сие зе 


БазНнечЕеп 
Ра *егп: 


зововапававозоосссааввасавь Со+ +еаЕо 
вооон онано,: Сепфекг 


Рис.14.4. Образцы линий 


ОЧзез СКТ, СгарИ; 
соп5& 
32у1е: аггау [0..4] оЕ Зекара [9] = ( 
'5011АГпт ', "РоЕбеаГп ', "'Сепзех!т', 
'РазреаГптп'!, 'ОзехВ1%1п'!); 
уаг | 
А, г,е,1,),Ах,Ау: Тпеедег; 
р: Мога; 
Ъед1п 
{Инициируем графику} 
Я := БесесЕ; 
Тп1ЕСгарВ (а, г, '!); 
е := СгарбВеза16; 
1Е е <> ахок &Ъеп 
Иг1ЕеГп (СгаррЕгкогМзд (е)) 
е1зе | 
Ъед1п 
{Вычисляем смещение линий} 
Ах := СебМахх аах 6; 
Чу := СеЕМаху @Зх 10; 
{Выводим стандартные линии} 


Еог 1] := 0 0 1 @ {Для двух толщин} 
Ъед1п 
Рог 1 := 0 © 3 ао {Четыре типа линий} 
Бедап 


5ет1пе5$у1е(1, 0, 3*2+1); 
Ь1пе (0, (1+7)*4+1) *Аау, ах, (1+1*4+1) *ау); 
ОзеТехЕХУ (4х+10, (1+)*4+1) *ау, з6у1е[1]) 
епа 
епа; 
{Вводим образец и чертим линию. 
7 :=0; | 
Чу :;= (СеёМаху+1) а1х 25; 
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ААС ДЛЕ ЕДЕ ДВД ААС 


гереа® 
ОцеТехЕХУ (320,1*ау, 'Расфегп: !); 
СобохУ (50,7+1); 
ВеааГл (р); 
1Е р <> 0 Вет 
Бед1п 
ЗеЪ1пе5Еу1е (ОзехВ1ЕГп, р, МогиИ1аАеЬ); 
Т1пе (440,1*Ау+4, 600, 3*ау+4); 
1пс (7) 
епа 
ип611 р = 0; 
С1озеСгкарв 
епа 
епа. 


Процедура СеЕт1пебеее1паз. Возвращает текущий стиль линий. За— 
ГОЛОВОК: 


Ргосед4иге Сес11пебееЕ1па$ (уаг 56у1еТптЁРо: Г1пебеее1тпазТуре) 


Здесь 5К]ештшЮ -— переменная типа ЦМпе5е тозТуре, в которой воз— 
вращается текущий стиль линий. 


Тип тебеНтозТуре определен в модуле Старй следующим образом: 


Еуре | 
Т1пебее*1пазТуре = хесога 
Т.1пе5$у1е: Мога; {Тип линии} 
Раефегп : Мога; {Образец} 
Тр1скКпез$: МогаА {Толщина} 
епа; 


Процедура Зе Иг1+еМоае. Устанавливает способ взаимодействия вковь 


выводимых линий с уже существующим на экране изображением. Заго — 
ловОк: 


Ргосеааге ЗеЕ\Иг1ЕеМоае (Моае); 


Здесь Моае — выражение типа Пиедег, залающее способ взаимодей — 
‹твия выводимых линий с изображением. 

Если параметр Мое имеет значение 0, выводимые линии наклады — 
ваются на существующее изображение обычным образом (инструкциеи 
МОУ центрального процессора). Если значение 1, то это наложение 
осуществляется ( применением логической операции ХОК 
(исключительное ИЛИ): в точках пересечения выводимой линии с 
имеющимся на экране изображением светимость пиксел инвертируется на 
обратную, так что два следующих друг за другом вывода одной и той же 
линии на экран не изменят его вид. 

Режим, установленный процедурой 5е ИтйеМоае, распространяется на. 
процедуры Огаиро!у, Мпе, МпеКе| ПпеТо и Кесюп фе. Аля задания пара — 
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метра Мое можно использовать следующие определенные в модуле 
константы: 


[®{е) = 
СоруРиЕ = 0; {Наложение операцией МОУ} 
ХОВРаЕ = 1; {Наложение операцией ХО} 


В следующем примере на экране имитируется вид часового циферблата 
(рис.14.5). Для наглядной демонстрации темп хода «часов» ускорен в 600 
раз (см. оператор Ре1ау (100)). При желании Вы сможете легко усложнить 
программу, связав ее показания с системными часами и добавив се-— 
кундную стрелку. Аля выхода из программы нажмите на любую клавишу. 


Рис.14.5. Часовой циферблат 
Чзез Сгарв, СВТ; " 
\’ах 
Я, у, т1,:2,тхг,К, 
х1,у1,х2,у2,х01,у01: Тпфедех; 
Хазр,Уазр : Мога; 
ред1п 
{Инициируем графику} 
Я := Чееесе; 


298 ____ _ Глава 14 


Тп1ЕСгарВ (Я, г, '!'); 
К := СкариВезо1%; 
1Е К <> агоОК Вел 
Мг1 в еГл (СгарВЕсго:М$С (К)) 
е1зе 
Бед1п 
{Определяем отношение сторон и размеры экрана} 
х1 := беЕеМаххХ ах 2; 
у1 := СефеМаху ат 2; 
СесАзресеКа®1о (Хазр, Уазр); 
{Вычисляем радиусы: } 
х:= гоцпа (3*СеЕМаху*Уазр/8/Хазр); 


у1 := гоопа (0.9*т); {Часовые деления} 
у2 := гоппа (0.95*г); {Минутные деления} 
{Изображаем циферблат} 
С1:Сс]1е (х1,у1,г); {Первая внешняя окружность} 
С1гс1е (х1,у1, гола (1.02*г)); {Вторая окружность} 
Бог К := 0 0 59 @ {Деления циферблата} 
_ Ъедап | - _ 
1Е К мо 5=0 ЕЪеп 
ГГ := 11 | | | _ [Часовые деления} 
е1зе 
гг := 12; {Минутные деления} 


{Определяем координаты концов делений} 
х01 := х1+Воппа (кг*з1т (2*р1*К/60)); 

`’у01 := у1-Воппа(гг*Хазр* со5 (2*р1*К/60) /Уазр) ; 
х2 := х1+Воппа (г*з1п (2*р1*К/60)); | 
у2 := у1-Воппа (г*Хазр*соз (2*р1*К/60) /Уазр); 
Т1пе (х01,у01,х2,у2) {Выводим деление} 
ела; 
{Готовим вывод стрелок} 
Зе Мг1ЕеМоае (ХОВРа®); 
ЗеЕт1пе5еу1е (5о11аГп, 0, ТСК аеЕр); 


х := 0; {Счетчик минут в одном часе} 
{Цикл вывода стрелок] 
гереа®е 
Бог К := 0 о 59 а {К = минуты] 
1Е поЕ КеуРгеззеа +Веп 
Бед1п 


{Координаты часовой стрелки} 

х2 := х1+Войпа (0.85*.1*$1п (2*р1*г/60/12));. 

у2 := у1-Коцпа (0. 85*г1*Хазр*со$ (2*р1*к/60/12) /Уазр); 
{Координаты минутной стрелки} | 

х01 := х1+Воцпа (:2*5з1п (2*р1*К/60)); 

у01 := у!1- Вопла (х2*Хазр*соз (2*р1*К/60) /Уазр); 
{Изображаем стрелки} 

Т1пе (х1,у1,х2,у2);. 

Т1 пе (х1,у1,х01,у01); 
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Ре1ау (100); {Для имитации реального темпа 
нужно установить задержку 60000} 

{Для удаления стрелок выводим их еще раз!} 

Ъ1пе (х1,у1,х01,у01); 

Т1пе (х1,у1,х2,у2); 

{Наращиваем и корректируем счетчик минут в часе} 

1пс (г); 

1Е г=12*60 ЕЪеп 


епа 
11811 КеуРгеззеа; 
1Е ВеаЯКеу=#0 ЕВеп К := ога (ВеааКеу); 
С]озеСгарь 
епа 
епа. 


14.4. МНОГОУГОЛЬНИКИ 


Процедура _Вес+апа1е. Вычерчивает прямоугольник с указанными 
коорлинатами углов. Заголовок: 


Ргоседиге Кес{фапа1е (Х1,У1,Х2,У2: Тпеедег); 


Здесь Х1...У2 — координаты левого верхнего (Х1, У!) и правого нижнего 
(Х2, У2) углов прямоугольника. Прямоугольник вычерчивается с исполь — 
зованием текущего цвета и текущего стиля линий. 

В следующем примере на экране вычерчиваются 10 вложенных друг в 


друга прямоугольников. 


Чзез СгарЬ, СВТ; 
у\аг 
а,г,е,х1,у1, 
х2,у2,ах,ау: Тпбедег; 
Ъед1п 
{Инициируем графику} 
Я := Бежес*; 
Тп1ЕСгарВ (4, т, ''); 
е := СгарНВе$о1*; 
1Е е <> ахОК &Веп 
Йх1 еп (СгарВЕггогМзч (е)) 
е1зе 
Бед1п 
{Определяем приращения сторон} 
Ах := сеЕеМахх Я1х 20; 
Чу := СеЕМахУу а1ху 20; 
{Чертим вложенные прямоугольники} 
Бог а := 0 0 9 а@о 
Весфапа1е (а*ах, а*ау, СеЕМахх-@Ч*ах, СеЕМаху-а*ау); 
1Е КеаЧКеу=#0 ЕВеп А := ога (КеааКеу); 
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С1озесгарй 
епа 
епа. 


Процедура РхаиРо1у. Вычерчивает произвольную ломаную линию, 
заданную координатами точек излома. | 


Ргосеаиге ПОгамРо1у(М№: Мога; уах Ро1пЕз) 


Здесь № — количество точек излома, включая обе крайние точки; Ропи$ 
— переменная типа РойЁТуре, содержащая координаты точек излома. 

Координаты точек излома задаются парой значений типа И/огй: первое 
определяет горизонтальную, второе — вертикальную координаты. Для них 
можно использовать следующий определенный в модуле тип: = 


фуре 
Ро1пЕТуре = гесога 
х, У : Мога 


епа; 


При вычерчивании используется текущий цвет и текущий стиль линий. 
Вот как, например, можно с помощью этой процедуры вывести на экран 


график синуса: 


9зе$ Сгарп; 


соп8® 
№ = 100; {Количество точек графика} 
уах 
А, г, е: Тпведег; 
та : аггау [0..№+1] оЕ РозпеТуре; 
К : Иога; 
Ъед1п 


{Инициируем графику} 
Я := Бебесе; 
Тп1ЕСгкарВ (а, х, ''); 
е := СгарпВеза16; 
1Е е <> чгОоК ЕБеп 
Их1 сел (СсхарцВЕггогхМ5ча (е)) 
е] зе 
Беда 
{Вычисляем координаты графика} 
Бог К := 0 %0 М @о м1 п[к] а 
Беда 
х := %коапс (К*СефМахХ/М); 
у := Егопс (СееМаху* (-$1п (2*Р1*К/М) +1) /2) 


епа; 
{Замыкаем график прямой линией} 
ш[5асс (№) ].х := п[0].х; 
т [(засс (п) ].у := п[0].у; 


ОгамРо1у (М +2, м); 
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Веаа!лп; 
С1о5еСгарН 
епа 
епа. 

В этом примере для проведения горизонтальной прямой используется 
«замыкание» ломаной — первая и последняя координаты ее точек излома 
совпадают. 

Замечу, что хотя количество точек излома № — выражение типа И’ога, 
на самом деле внутри процедуры на этот параметр накладываются огра — 
ничения, связанные с конечным размером используемой буферной памяти. 
Вы можете убедиться в этом с помощью, например, изменения М в пре-— 
дыдущем примере: при №=678 график перестанет выводиться на экран, а 
функция СгарйКезиЁ будет возвращать значение —6 (не хватает памяти 
для просмотра областей). Таким образом, для этой программы пороговое 
значение количества точек излома составляет 679. В то же время для 
программы 


О5е$ СгарЦп; 
соп5Е | 
№=510; {Предельное значение, при котором 
на экране еще видна диагональная линия} 
уаг 
Аа,Кк: Тпбедег; 
Соо: агхау [1..№] оЕ Ро1пЕТуре; 
Ред1п | | 
Я := Бефес®; 
Тп1ЕСгарв (а,к,'!'); 
Бог К := 1 © М ао мт%Ь Соо[ [к] ао 
1Е оаа(Кк) еВеп 
Бед1п 


Ьед1п 
Х := сеЕбМахх; 
У := СеЕМахуУ 
епа; 
РгамРо1у (№, Соо); 
ВеааГлп; 
С1озеСгарй 
епа. 


это значение равно 510. В этой программе ломаная задается в виде мно-— 
тократно накладывающихся друг на друга диагональных линий. 


14.5. ДУГИ, ОКРУЖНОСТИ, ЭЛЛИПСЫ 
Процедура С1гс1е. Вычерчивает окружность. Заголовок: 
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Ргоседиге С1гс1е(Х,У: Тпеедег; В: Мога); 


Здесь Х, У — координаты центра; К — радиус в пикселах. 

Окружность выводится текущим цветом. Толщина линии устанавли— 
вается текущим стилем, вид линии всегда эоПаЁпт (сплошная). Процедура 
вычерчивает правильную окружность с учетом изменения линейного 
размера радиуса в зависимости от его направления относительно сторон 
графического экрана, т.е. с учетом коэффициента СеЁАзрес{Кано. В связи с 
этим параметр Е определяет количество пиксел в горизонтальном на-— 
правлении. 

В следующем примере в центре экрана создается окно, постепенно 
заполняющееся случайными окружностями. Для выхода из программы 
нажмите на любую клавишу. 


Озе$ СгарП, СВТ; 
чаг 
А, х,е,х,у: Тпфедег; 
`Ъед1п 
‘{Инициируем графику} 
а := Бефес*; 
Тп1ЕСгарВ (а, г, ''); 
е := СгарйВезо1{; 
Е е <> дхОК ЕВеп 
ИгтееГл (СгарпЕггкогМзча (е)) 


е]1зе 
Беда п 
{Создаем окно в центре экрана} 
х := СееМахх @1х 4; 


у := СеЕМаху @а1х 4; 

Весеапа1е (х,у,3*х,З*у); 

Зе\У1емРог® (х+1,у+1,3*х-1, 3З*у-1,С11рОп); 
{Цикл вывода случайных окружностей} 


гереае 
ЗеЕСо1ох (засс (Вап4ом (мй1%е))); {Случайный цвет} 
ЗесТ1пезу1е (0,0,2*КВапаом (2)+1); {и стиль линии} 
х := Вапаом (СееМахх); {Случайное положение} 
у := Вапаой (бееМахуУ); {центра окружности} 


С1гс1е (х,у, ВапЯом (СеЕМаху а1у 4)); 
11611 КеуРгеззеа; 
1Е КеаЯКеу=#0 фреп х := ога (ВеааКеу); 
С1озеСгарп 
епа 
ера. 


Процедура Агс. Чертит дугу окружности. Заголовок: 
Р-осеиге Агс(Х,У: Тпфедег; ВезА,ЕпадА,В: Мога); 
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Здесь Х, У — координаты центра; ВедА, Еп4АА — соответственно на-— 
чальный и конечный углы дуги; К — радиус. 

‚Углы отсчитываются против часовой стрелки и указываются в градусах. 
Нулевой угол соответствует горизонтальному направлению вектора слева 
направо. Если задать значения начального угла 0 и конечного — 359, то 
будет выведена полная окружность. При вычерчивании дуги окружности 
используются те же соглашения относительно линий и радиуса, что и в 
процедуре Сис!е. 

Вот как выглядят две дуги: одна с углами 0 и 90, вторая 270 и 540 гра 
дусов (рис.14.6}: 


о - 90 


Рис. 14.6. Иллюстрация процедуры Агс 
Следующая программа создает это изображение: 


1зез Сгарп, СВТ; 
\гах 
а, г, е : Тпм%едег; 
Хазр,Уазр: Мога; 
ед1п 
{Инициируем графику} 
Я := Бефбесе; 
Тп1ЕСгарВ (а, г, !''); 
е := СхгарЬВеза1*; 
1Е е <> чхгОКк Вел 
Иг1 еп (СгарВЕггогМзчд (е)) 
е1зе 
Ьед1п 
СесАзресЕВа*1о (Хазр,Уазр) ; 
{В = 1/5 от вертикального размера экрана} 
= гоцпа (Уазр*СеЕМахУ/5/ХАзр); 
= СееМахх а1у 2; {Смещение второго графика} 


г 
а 
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е := СееМаху Я1ху 2; {Положение горизонтальной оси} 
{Строим левый график} 

Глпе (0,е,5*г а1ху 2,е); {Горизонтальная ось} 
Т1пе (5*г ах 4,е ах 2,5*г а1х 4,3*е ах 2); 

Агс (5%*г а1ху 4,е,0,90,8); {Дуга} 
ОцеТехЕХУ (0, е+е @а1ху 8,'0 - 90'!); {Надпись} 

{Правый график} 

Т1пе (Я,е,а+5*т а1тх 2,е); 

Т1пе (49+5*х ау 4,е а1х 2, 4+5*г атм 4,3*е ах 2); 
Агс (а+5*г @а1у 4,е,270,540,85); 

ОцЕТехЕХУ (Ч, е+е азх 8,'270 - 540'); 

{Ждем нажатия на любую клавишу} 

3Е КеаЯКеу=#0 ЕБеп Я := ога (ВеааКеу); 

С1о5еСгари 


епа 


епа. 


Процедура Се-АгсСоог@а$. Возвращает координаты трех точек: центра, 


начала 


и конца дуги. Заголовок: 


Ргосеаиге СекАгсСоогаз (уах Соога$: АгсСоога$Туре); 


Здесь Соога5 — переменная типа АгсСоога$Туре, в которой процедура 
возвращает координаты центра, начала и конца дуги. 


Тип 


АгсСоога$Туре определен в модуле СгарА следующим образом: 
фуре 
АгсСоогазТуре = хесога | 
Х, У : Таведег; {Координаты центра} 
Хзсаге, Узбахе: Тпбедег; {Начало дуги} 
Хепа, Уепа : Тлеевдег; {Конец дуги} 
епа; 


Совместное использование процедур Агс и СеЁёАгсСоога$ позволяет 
вычерчивать сопряжения двух прямых с помощью дуг. Обратите внимание 
на коррекцию длины радиуса в следующем примере, в котором вычер— 
‹ивается прямоугольник со скругленными углами. 


зез Сгарь, СВТ; 


Соп$е 

.Ваах = 50; {Горизонтальный радиус} 
_ 1х = 400; {Ширина} 

_1у = 100; {Высота} 
\’ах 

а,г,е: Тпеедех; 


СОО` 


: АгсСоохазТуре;. 


х1,уУ1: Тпеедег; 
ха, уа: Мога; 
Ваау : Тпседег; {Вертикальный радиус} 


ед 
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{Инициируем графику} 


Я := БебесЕ; 
Тп1ЕСгарь (а, г, ''); 
е := СгарпВез$и1%; 


1Е е <> агхОоКк фБеп 
Мг1се[л (СгарцВЕгкогМзча (е)) 
е1зе 
Ьед1п 
СесАзресеВа*1о0 (ха, уа); {Получаем отношение сторон} 
{Вычисляем вертикальный радиус и положение фигуры 
с учетом отношения сторон экрана} 


Вау := гоцпа (Ва@Х* (ха/уа)); 

х1 := (СеЕМахХх-1х) ах 2; 

у1 := (Се Маху-2*Каау-1у) @а1у 2; 

{Вычерчиваем фигуру} й 
Т1пе (х1,у1,х1+1х,у1); {Верхняя горизонтальная} 


А’ус (х1+1х,у1+КааУу,0,90,Ваах); {Скругление} 
СесАгсСоога$ (соо); | 
у1ЕВ соо ао 
Бед1п 
Т1 пе (Хзкаге, Узеаку, Хэкаг®, Узфах++1у); 
{Правая вертикальная} 
Агс (Хзкаг&-ВаЯХ, Уз аг%*+1у,270,0,Ваах); 
СесАгсСоога$ (соо); 
Т1пе (ХзсагЕ, Узбах*, Хзбаг&-1х,Узфау®); 
{Нижняя горизонтальная} 
Агс (Хзфат*-1х, Узкат*-ВааУ, 180,270, Ваах) ; 
СееАгсСоога$ (соо); 
Т1пе (Хзфах®, Узбак®, Хзсах Е, Узкаг®-1у); 
Агс (ХзфагЕ+Каах, Узфаг%-1у, 90,180,Ваах) 
епа; 
1Е ВеаЯКеу=#0 &Веп а := ога (Веа@Кеу); 
С1озебсгарь | 
епа 
епа. 


Процедура Е111рзе. Вычерчивает эллипсную дугу. Заголовок: 
Ргоседагке Е111рзе(Х,У: Тпбедег; ВедА,ЕпаА, ВХ, ВУ: ШМокга); 


Здесь Х, У — координаты центра; ВедА, Еп4АА — соответственно начальный 
и конечный углы дуги; ЕХ, КУ — горизонтальный и вертикальный ра— 
диусы эллипса в пикселах. 

При вычерчивании дуги эллипса используются те же соглашения от— 
носительно линий, что и в процедуре Сисе, и те же соглашения отко— 
сительно углов, что и в процедуре Агс. Если радиусы согласовать с учетом 
масштабного коэффициента СеЁАзрес{КаНо, будет вычерчена правиленая 


окружность. 
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В следующей программе вычерчиватюся три эллипсных дуги (рис.14.7) 
при разных отношениях радиусов. Замечу, что чем выше разрешение 
графического экрана, тем ближе к единице отношение сторон и тем 
меньше первый график отличается от третьего. 


< ==“ 


Рис.14.7. Эллипсные дуги 


Озез Сгарп, СВТ; 
уаг 
А,г,е: Тпфедег, 
ха, уа: Мока; 
Бед1п 
{Инициируем графику} 
Я := Бекесе; 
Тп1ЕСкарН (а, г, ''); 
е := СгарпВезо1*; 
3Е е <> дхгОК &Веп 
Их ЕеГл (СгарВЕггогМзч (е)) 
е1зе 
Бед1п 
{Первый график} 
ОцЕТехЕХУ (50,40,'ВХ = ВУ!'!); {Надпись} 
пе (0,100,160,100); {Ось Х} 
Т1ре (80,55,80,145); {Ось У} 
Е111рзе (80,100,180,90,40,40); 
{Второй график} 
ОцЕТех ХУ (260,40,'ВХ = 5*ВУ'!); 
Т1пе (190,100,410,100); 
Т1пе (300,55,300,145); 
Е111рзе (300,100,0,359,100,20); 
{Третий график} 
ОцсТехЕХУ (465,40, 'АзресЕ Вае1о'); 
Т1пе (440,100,600,100); 
Т1пе (520,55,520,145); 
СесАзресеВа®*1о (ха, уа); 
Е111рзе (520,100,0,27С, 4С гоппа (40* (ха/уа))); 
1Е КеаЯКеу=+0 %Веп 
Я := ока (ВеааКеу`, 
С]озебстарР 
епа 
па. 
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14.6. КРАСКИ, ПАЛИТРЫ, ЗАПОЛНЕНИЯ 


Процедура 5еСо]юог. Устанавливает текущий цвет для выводимых линий 
и символов. Заголовок: 


Ргоседиге бееСо]1ог(Со1ох: ИМога); 


Здесь Со]ог — текущий цвет. 
В модуле Сгарй определены точно такие же константы для задания 
цвета, как и в модуле СКТ (см. п.13.2). 


Функция СееСо1ог. Возвращает значение типа У’ога, содержащее код 
текущего цвета. Заголовок: 


Рапсё1топ СееСо1ок: Пока; 


Функция СеЕМахСо1ог. Возвращает значение типа И/ог4, содержащее 
максимальный доступный код цвета, который можно использовать для 
обращения к 5е!Со!юог. Заголовок: 


ГапсЕтоп Се МахСо]1ох: ПИМога; 


Процедура бе ВКСо1ог. Устанавливает цвет фона. Заголовок: 
Ргосеацге ЗееВКСо1ог (Со1охг: Мога); 


Здесь Со/ог — цвет фона. 

В отличие от текстового режима, в котором цвет фона может быть 
только темного оттенка, в графическом режиме он может быть любым. 
Установка нового цвета фона немедленно изменяет цвет графического 
экрана. Это означает, что нельзя создать изображение, два участка ко— 
торого имели бы разный цвет фона. Для ССА-—адаптера в режиме вы- 
сокого разрешения установка цвета фона изменяет цвет активных пиксел. 
Замечу, что после замены цвета фона на любой, отличный от 0 (Васк) 
цвет, Вы не сможете более использовать цвет 0 как черный, он будет за— 
меняться на цвет фона, т.к. процедуры модуля Сгарй интерпретируют цвет 
с номером 0 как цвет фона. Это означает, в частности, что Вы уже не 
сможете вернуть фону черный цвет! 

Если Ваш ПК оснащен цветным экраном, следующая программа про-— 
демонстрирует работу процедуры 5еВКСо/юог. Программа выводит десять 
вложенных друг в друга прямоугольников, после чего циклически меняет 
цвет фона. Аля выхода из программы достаточно нажать на любую кла— 
вишу. 


зез СгарВ, СВТ; 
Соп$Е | 
МС: агхгау [0..15] оЕ $З&гата [12] = 
('В]1асКк', 'В1ае', 'Сгееп', 'Суап', 'Ве@', 'Мадепка', 
'Вгомп', '.19Н6Сгау', 'РагКкСгау' , '.1а1%В11е', 
'.1ареСгееп', '1196%Суап', 'Г1ар&Веа', 
'-191&Мадепфа'!, 'Уе11ом', 'ИБ1%$е'); 
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уах 
а, г, е, К, со1охк, ах, ау: Тпбедек; 
Ьед1п 
{Инициируем графику} 
Я := ПБебесЕ; 
Тп1ЕСгарВ (4, г, ''); 
е := СгарьВезо1{; 
1Е е <> ахОКк ЕБеп 
Их1 сел (СгарпВЕгког!Мза (е)) 
е1зе 
Бед1п 
{Выводим текст в центре экрана} | 
ОцЕТехЕХУ (200, СеЕМаху @а1х 2, 'ВАСКСКОПОМО СОГОВ'); 


Ах := беЕМахх @1у 30; {Приращение длины} 

у := СебМаху @1у 25; {Приращение высоты} 

Бог К := 0 0 9 4 {Выводим 10 прямоугольников} 
Весфапа1е (К*ах, К*ау, сееМахХ-К*ах, сеЕМаху-К*ау); 
со1ог := Б1аск; {Начальный цвет фона} 

гереа®е {Цикл смены фона} 


бееВКСо1ох (со1о:); 
ЗеЕг1115$у1е (0,Со1ог); 
Вах (345, СеЕМахУу 41% 2,440, СеЕМаху а1ху 2+8); 
ОчеТехехХУ (345, СеЕМахУ азу 2,№МС[ со1от:]); 
ае1ау (1000); 
1пс (со1ог); 
1Е со1ог > МЮ1Ее +Веп 
со1о0ох := В1аск 

ип611 КеуРгеззеа; 

1Е КеаЯКеу=+0 ЕВеп К := ога (ВеаЯКеу); 

С1о5еСгарВь 

ела 
опа. 


Функция СеЕВКкСо1ок. Возвращает значение типа У’ог4, содержагцее 
текущий цвет фона. Заголовок: 


РапсЕтоп СееВКСо]ог: Мока; 


Процедура 5еЕРа1е++е. Заменяет один из цветов палитры на нозый 
(вет. Заголовок: 


Ргосеаиге ЗееРа1ее*е (М: ИМога; Со1ог: ЗВогЕТр®); 


Здесь № — номер цвета в палитре; Соог — номер вновь устанавли — 
ьаемого цвета. 

Данная процедура может работать только с адаптерами ЕСА или УСА. 
(на не должна использоваться с 1ВМ8514 или 256 -—цветным вариантом 
УСА — для этих адаптеров предназначена особая процедура 5еКСВРаеНе 
(см. ниже). Первоначальное размещение цветов в палитрах ЕСА/УСА 


Использование библиотеки Сгарй 309 


соответствует последовательности их описания константами В]аскК,...И/Ее, 
т.е. цвет с индексом 0 — черный, | — синий, 2 — зеленый и т.д. После 
обращения к процедуре все фрагменты изображения, выполненные цветом 
с индексом М№ из палитры цветов, получат цвет Со/юог. Например, если 


выполнить оператор 
ЗееРа1е Ее (2,И51%е); 


то цвет с индексом 2 (первоначально это — бирюзовый цвет Суап) будет 
заменен на белый. Замечу, что цвет с индексом 0 отождествляется с 
цветом фона и может изменяться наряду с любым другим цветом. 

Следующая программа выводит на экран ряд прямых разного цвета и 
затем случайным образом меняет цвета палитры. 


Озез Сгарб, СВТ; 


уах 
а,тх,е,М, К, со1ох: Тпеедег; 
Ра1еефе : Ра1ебееТуре; 
Реа1п 


{Инициируем графику} 
Я := Бефес+*; 
Тп1ЕСгарЦп (а, г, ''); 
е := СгарНВез$у1*; 
3Е е <> ахОКк &Веп 
Ихг1ееГл (СгарВЕггохМзсд (е)) 
е1зе 
Ьед1п 
{Выбираем толстые сплошные линии} 
Зе 1пе5еу1е ($011АЬп, 0, ТЬ1СсКкитаен); 


СесРа1ееке (Ра1ееее); {Текущая палитра} 
ог Со1ог := 0 Фо Ра1ебфе.5127е-1 ао 
Ьед1п 


ЗееСо1ох (Со1ог); 
Т1пе (СеЕМахХх @1у 3,Со1ог*10,2*СееМахх @а1\ 3,Со1ог*:.0) 


епа; 
{Меняем палитру и ждем инициативы пользователя} 
иВ11е поЕ КеуРгеззеа ао 

Бог е := 0 во Ра1е ее. 5127е- 1 ао 

ЗееРа1ее фе (е, Вапаом (Ра1е к фе.517е)); 
1Е ВеаЯКеу=#0 ЕЪеп а := ога (ВеааКеу); 
С1озесгарвВ 
епа 
епа. 


Процедура беЕРа1еесе. Возвращает размер и цвета текущей палитры. 
загодовок: 


Ргоседиге СеЕРа1ет{е (умах Ра1ееееТпЕо: Ра1еефеТуре); 


_ Здесь РИеНешЮ — переменная типа РаеНеТуре, возвращающая размер 
и цвета палитры. 
В модуле Сгарй определена константа 
сопзе 
МахСо1ог$ = 15; 


фуре 
Ра1е сеТуре = гхесоха 
512е : Мога; {Количество цветов в палитре} 
Со1ох5 :; акхау [0..МахСо1о0огх$] оЕ ЗПоЕЕТПЕ 
{Номера входящих в палитру цветов} 


епа; 


С помощью следующей программы можно вывести на экран номера 
всех возможных цветов из текущей палитры. 


Озез Сгарп; 
\уагх 
Ра1ее фе: Ра1ееееТуре; 
А,т,е,кК: Тпфедег; 
Бед1п 
{Инициируем графику} 
Я := Бефес®; 
Тп1ЕСгарй (а, г, ''); 
е := СгарНВезо1(; 
1Е е <> агоОК еп 
Иг1 вел (СгарЬЕггохМзча (е)) 
е15е 
Ьед1п 
СеЕРа1ее {фе (Ра1ее+ее); {Получаем палитру} 
С]1озебгарВ; (Возвращаемся в текстовый режим} 
м1ЕВ Ра1ебфе @о {Выводим номера цветов} 
ог К := 0 %о ргеа($512е) ао 
Мг1{е (Со1огз [К] :5); 
ела 
епа. 


Процедура 5е+А11Ра1ее+е. Изменяет одновременно несколько цветов 
палитры. Заголовок процедуры: 


Ргоседиге 5е+А11Ра1еефе (маг Ра1ек\е); 
Параметр РаиеНе в заголовке процедуры описан как нетипизированный 
параметр. Первый байт этого параметра должен содержать длину М па— 


литры, остальные М байты — номера вновь устанавливаемых цветов в 
диапазоне от —1 до МахСо]ог$. Код —1 означает, что соответствующий 


цвет ИСХОДНОЙ палитры не меняется. 
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В следующей программе происходит одновременная смена сразу всех 
цветов палитры. 


9зез Сгарь, СВТ; 
уаг 
Ра1её ее: агхау [0..МахСо1ог$] о ЗВокЕТпЕ; 
а,г,е,кК: Тпфедег; 
Ъедап 
{Инициируем графику} 
Я := Безесе; 
Тп1&Сгарй (а, г, ''); 
е := СгарЬВез$а1*; 
1Е е <> чгхгОоК Вей 
Иг1сеЪп (СхарВЕггко:Мзч (е)) 
е1 зе | 
Бед1п 
{Выбираем толстые сплошные линии} 
Зе 1пебеу1е (5011арп, 0, ТЬ1скитаЕт); 
{Выводим линии всеми доступными цветами} 
Бог К := 1 во СеЕМахСо1ог ао 
Ьед1п 
зееСо1ок (К); 
Т.1пе (СеЕМаххХ @а1у 3,К*10,2*СеЕМахх азу 3,К*10) 


епа; 
Ра1е е[0] := МахСо1ог$; {Размер палитры} 
гереа* | {Цикл смены палитры} 
Бог К := 1 ®0о МахСо1ог$ ао 
Ра1е те[к] := Вапаом (5зисс (МахСоГог$)); 


ЗееА11Ра1еете (Ра1ес*е) 
\%п611 КеуРгеззеа; 
1Е ВеаЧКеу=#0 Вей К := ока (ВеааКеу); 
С1озеСгарь | | 
епа | 
епа. 


Функция Се+Ра1е+Ее51=е. Возвращает значение типа Пиедег, со- 
держащее размер палитры (максимальное количество доступных цветов). 


заголовок: 
ЕипсЕфоп СеЕрРа1екеб1те: Тпеедег; 
Процедура _СесреЁРаз1ЕРа1ееЕе. Возвращает структуру палитры, ус— 
танавливаемую по умолчанию (в режиме автонастройки). Заголовок: 
Ргоседиге СесреЁац1+Ра1ее ке (уаг Ра1еЕфе: Ра1еёкеТуре); 


Здесь Рене — переменная типа РаенеТуре (см. процедуру СеРаёенНе), в 
которой возвращаются размер и цвета палитры. 
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Процедура 5э=ЕЕ1115Еу1е. Устанавливает стиль (тип и цвет) заполне — 
ния. Заголовок: 


Ргоседахе 5ееЕ1115%у1е (Е111,Со1ог: Мога); 


Здесь ЕШ — тип заполнения; Со]ог — цвет заполнения. 

С помощью заполнения можно покрывать какие-либо фрагменты 
изображения периодически повторяющимся узором. Для указания типа 
заполнения используются следующие предварительно определенные 
константы: 


соп$Е 
ЕпреУЕ111 = 0; {Заполнение фоном (узор отсутствует) } 
501147111 = 1; {Сплошное заполнение } 
1пеЕ111 = 2; {Заполнение ------- } 
165$1а56Е111 = 3; {Заполнение ///////} 
5$1азВЕ111 = 4; {Заполнение утолщенными ///} 
ВК$]азйЕ111 =5; {Заполнение утолщенными \\\} 
ТЕВК$1азНЕ111 = 6; {Заполнение \\\\\\\} 
НаесвЕ11 1 = 7; {Заполнение +++++++} 
ХНаесвЕ111 = 8; {Заполнение ххххххх} 
Тпбег1еауеГг111= 9; {Заполнение прямоугольную клеточку} 
И1Аеро*Е111 = 10; {Заполнение редкими точками} 
С1озеро+Е111 = 11; {Заполнение частыми точками} 
ОзехгЕ111 = 12; {Узор определяется пользователем] 


Программа из следующего примера продемонстрирует Вам все стан— 
дартные типы заполнения. 


Чзез СгарН, СВТ; 
уаг 

Ч, г,е,к,7],х,у: ТпЕедег; 
Ьед1п 

{Инициируем графику} 

а := Бефесе; 

Тп1ЕСгарВ (4, х, ''); 

е := СгарНВеза1; 

1Е е <> чхоКк &Веп 

Их сел (СгарВЕггкогМзча (е)) 


е1зе 
Ъедап 
х := СеЕМахх а@а1у 6; {Положение графика} 
су := СеЕМаху ах 5; {на экране} 
Бог } := 0 0 2 @4 {Два ряда} 
Бог К := 0 © 3 @ {По четыре квадрата} 
Ъед1п 


Вескапа]1е ((к+1)*х, (1+1) *у, (х+2)*х, (4+2) *у); 

б$еЕЕг1115%у1е (К+7*4,)+1); 

Вах ((к+1)*х+1, (3+1) *у+1, (к+2) *х-1, (3+2) *у-1) 
епа: 
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3Е ВеаЯКеу=#0 фБеп К := ога (ВеааКеу); 
С1о5еСгарь 
епа 
епа. 


Если параметр ЕШ имеет значение 12 (ОзегЕШ), то рисунок узора оп-— 
ределяется программистом путем обращения к процедуре 5ей@ШРанНегп. 


Процедура _бе+Е111Раееегп. Устанавливает образец рисунка и цвет 
штриховки. Заголовок: 


Ргосеаике бееЕ111Раефегп (Ра эгп;: Е11]Раб®егпТуое; 
Со1ог: Мога); 


Здесь РаНегп — выражение типа ЕШРаНегпТуре; устанавливает образец 
рисунка для ЕРШ = ОзегЕШ в процедуре 5ей РШГе; Со]ог — цвет запол— 
нения. | 

Образец рисунка задается в виде матрицы из 8х8 пиксел и может быть 
представлен массивом из 8 байт следующего типа: 


фуре 
Е111Рас®егпТуре = акгау [1..8] оЕЁ Вуте; 

Каждый разряд любого из этих байтов управляет светимостью пиксела, 
причем первый байт определяет 8 пиксел первой строки на экране, второй 
байт — 8 пиксел второй строки и т.д. 

На рис.14.8 показан пример двух образцов заполнения. На рисунке 
черточкой обозначается несветящийся пиксел, а прямоугольником — 
светящийся. Для каждых 8 пиксел приводится шестнадцатиричный код 
соответствующего байта. 

Следующая программа заполняет этими образцами две прямоугользых 
области экрана. 


Образец Значение Образец Значение 
байта байта 
- Ш - -Ш-- Ш 549 о -------- зав 
и--Ш--Ш- 522 ---ШИ--- 548 
-Ш--Ш--Ш 349 --Ш--Ш-- 324 
И -И--Ш- 52 -1----1- $42 
-И--Ш--Ш 549 -1----№- 542 
и--Ш--Ш- 292 --Ш--Ш-- 324 
-Ш--Ш--Ш 349 - --Ши--- 348 
И -- Ш - - Ш 9 --- 388 


Рис.14.8. Образцы заполнения и их коды 


{зез СгарП, СВТ; 

соп$е 
ра*е1: Е111РаеЕегпТуре= ($49,592,$49,592,$49,$92,$49,$92) , 
рафЕ2: Е111РафсеегпТуре= ($00,5$18,$24,$42,$42,524,$18,$00), 
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уагх 
Я, г,е: Тпфедег; 
Бед1п 
{Инициируем графику} 
а := БебесЕ; 
Тп1еСгарн (а, г, ''); 
е := СгаррВезо18; 
1Е е <> чкоКк ЕВеп 
Их кетл (старьЕхгохМза (е) 
е1зе 
Бед1п 
1Е Ч=ССА &Беп 
беескарНМоае (0); {Устанавливаем цвет для ССА} 
ЗееЕ1115$у1е (ИзегЕ111,ИВ1е); 
{Левый верхний квадрат} 
беег111Раефегп (Рае 1,1); 
Ваг (0,0, СееМахх азу 2, Се%кМаху ах 2); 
{Правый нижний квадрат} 
ЗеЕг111Рабкегп (Раф 2,2); 
Ваг (СеЕМахх @41у 2,СеЕМахУ @а1ху 2,Се%ЕМахх, СееМах\У); 
1Е ВеаЧКеу=#0 ЕБеп 4 := ога (ВеааКеу); 
С1озебгари 
епа 
епа. | 


Если при обращении к процедуре указан недопустимый код цвета, 
вызов процедуры игнорируется и сохраняется ранее установленный об-— 
разец заполнения. В частности, если в предыдущем примере убрать 
оператор 


1Е а=ССА ЕВеп 
ЗееСгар!Моае (0); 
устанавливающий цветной режим работы ССА-—адаптера, на экран ПК, 
оснащенного адаптером этого типа, будут выведены два одинаковых 
прямоугольника, так как обращение 


5еЕЕ11]1Рабсфегп (раё*2, 2); 


содержит недопустимо большой для данного режима код цвета и обра-— 
щение игнорируется. Сказанное, однако, не относится к процедуре 
зеЕШ5ЕГе для значения параметра РШ в диапазоне от 0 до 11: программа 
будет нормально работать и в режиме высокого разрешения ССА— 
ёлаптера, причем все цвета палитры, кроме цвета фона, при этом заме — 
няются на белый. 


Процедура СеёЕ111Раееегп. Возвращает образец заполнения, уста — 
новленный ранее процедурой 5еёЕШРаНегп. Заголовок: 


Ргоседоге Сефг111Раебегп (мак Ракфегп: Е111РабсеегпТуре); 
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Здесь РаНегпл — переменная типа ЕШРаНегпТуре, в которой возвращается 
образец заполнения. 

Если программа не устанавливала образец с помощью процедуры 
е{РШРайегп, массив РаНегп заполняется байтами со значением 255 ($ЕЕ). 


Процедура _СеЕг111бее1паз. Возвращает текущий стиль заполнения. 
Заголовок: 


Ргосеаике Сефёг1115е (1па$ (маг РаеЕТпЕо: Е111бесе1пазТуре); 


Здесь РайЙтЮ — переменная типа ЕШ5$етодзТуре, в которой возвращается 
текущий стиль заполнения. 
В модуле ОСгарй определен тип: 


фуре 
Е111беЕ1п9$Туре = гесогка 
Раетегп: Иога; {Образец} 
Со10ох : Иога {Цвет} 
епа; | 


Поля РаЦегп и Со]ог в этой записи имеют то же назначение, что и 
аналогичные параметры при обращении к процедуре ей Ш5Еуе. 


Процедура _беЕВСВРа1ее%е. Устанавливает цветовую гамму при работе 
с дисплеем [ВМ 8514 и адаптером УСА. Заголовок: 


Ргосеацге ЗееВСВРа1ес*е (Со1М№ом, КедУа1], СгеепУа1,В1пще\Уа1: 
Тпеедег); 


Здесь СоЙМит — номер цвета; КеаУа[ СгеепУа! ВшеУа! — выражения 
типа Пиедег, устанавливающие интенсивность соответственно красной, 
зеленой и синей составляющих цвета. 

Эта процедура может работать только с дисплеем 1ВМ 8514, а также с 
глаптером УСА, использующим видеопамять объемом 256 Кбайт. В первом 
случае параметр СоП\Уит задается числом в диапазоне 0...255, во втором — 
в диапазоне 0...15. Для установки интенсивности используются 6 старших. 
разрядов младшего байта любого из параметров КеаУа|, СгеепУа1, ВиеУч1, 

В следующей программе в центре экрана выводится прямоугольник 
белым цветом, после чего этот цвет случайно изменяется с помощью 
процедуры 5ей КОВРаенНе. Аля выхода из программы нужно нажать любую 
клавишу. 


Изез Сгарп, СВТ; 


\гах | 
3г1уег, Моае, Егг, х], уУ1: Тпеедег; 
редап 
[Инициируем графический режим} 
Рух1уег := Бебесх; 
Тп1ЕСгарН (О0г1уег, Моае, ''); 


Егг := СгаррВеза1*; 
12 Егг<>0 +Вепл 
Иг1 ел (СгарнЕггогМза (Егг) ) 
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е1зе 312 Ог1уехг 141 [18ВМ8514, УСА] +Ъеп 


Бед1п 
{Выводим прямоугольник в центре экрана} 
х1 := СеЕМахх @1у 4; 
у1 := СеЕМаху @1у 4; 


беЕСо1ох (15); 
Вах (х1,у1,3*х1,3*%*у1); 
{Изменяем белый цвет на случайный} 
мр11е поЕ КеуРгеззеа ао 
бсеевксвРа1ес ке (15,Вапаоц (256) ,Вапаом (256), Капаом (256)); 

С]1озеСгарН 

епа 

е]1 зе 

Бед1п 
С1озебскарй; 
Иг1ее!л ('Адаптер не поддерживает ', 
'АСВ-режим управления цветами') 

епа 

епа. 


Процедура _Е10о4Е111. Заполняет произвольную замкнутую фигуру, 
используя текущий стиль заполнения (узор и цвет). Заголовок: 


Ргоседиге Е10оаЕг111(Х,У;: Тпфеедег; Вогаег: Йога); 


Злес’ Х, У -— координаты любой точки внутри замкнутой фигуры; 
Вогаег — цвет граничной линии. 

Если фигура незамкнута, заполнение «разольется» по всему экрану. 

Следует учесть что реализованный в процедуре алгоритм просмотра 
траниц замкнутой фигуры не отличается совершенством. В частности, если 
выводятся подряд две пустые строки, заполнение прекращается. Такая 
ситуация обычно возникает при заполнении небольших фигур с исполь- 
зованием типа [151а5ЕШ. В фирменном руководстве по Турбо Паскалю 
рекомендуется, по возможности, вместо процедуры НооаЕШ использовать 
ЕШРо/{у (заполнение прямоугольника). 

Следующая программа демонстрирует заполнение случайных окруж-— 
ностей. Сначала в центре экрана создается окно, в котором заполняется 
небольшой прямоугольник. Часть прямоуголника останется незаполненной, 
в чем Вы можете убедиться, так как программа в этот момент приоста— 
навливает работу, ожидая нажатия на клавишу ЕшЕг. Затем осуществ-— 
ляется вывод и заполнение случайных окружностей до тех пор, пока не 
будет нажата любая клавиша. Замечу, что прямоугольник заполняется 
полностью, если вместо типа ШМ$а5ВЕШ (косая штриховка линиями 
обычной толщины) используется 5]а5АЕШ (штриховка утолщенными ли- 
ниями). Если программа будет работать достаточно долго, она может 
‹«зависнуть», что лишний раз свидетельствует о несовершенстве реализо— 
ванного в ней алгоритма. 


Чзез Сгарп, СВТ; 
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уаг 
а, г, е, х, у, с : Ттёедег; 
Бед1п 
{Инициируем графику}; 
Я := Бебесе; 
Тп1&Скарр (4, г, !'); 
е := СгарвВеза1Е; 
1Е е <> агОоК ЕБеп 
Иг1 ел (СгарцВЕгкогкМзд (е)) 
е15е | 
Беда 
{Создаем прямоугольное окно} 
х := СеЕМахх @ах 4; 
у := СебМаху @1у 4; 
Весфапа1е (х,у,З*х,З*у); 
ЗеЕ\У1емРог® (х+1,у+1,3*х-1,3*у-1,С11рОп); 
{Демонстрируем заливку маленького прямоугольника} 
ЗеЕЕ1115%у1е (1651аз1ЁР111,СеЕМахСо1ог); 
Весвапа1е(0,0,8,20); 
Р10ооаг111 (1,1, СеЕМахСо1ог); 
ОчЕТехЕХУ (10,25, 'Ргезз Епфег...!); 
ВеааГп; {Ждем нажатия ЕпЕег} 
{Выводим окружности до тех пор, пока 
не будет нажата любая клавиша} 
гереа+е 
{Определяем случайный стиль заливки} 
Зеёг1115$у1е (ВКапаом (12), Вапдом (СеЕМахСо1о:+1)); 
{Задаем координаты центра и цвет окружности} 
х := Вапаот (беЕМахх @1х 2); 
у := Вапаом (бееМаху @1у 2); 
с := Вапаом (засс (СееМахСо]1ог)); 
бееСо1охг (с); 
{Выводим и заливаем окружность] 
С1гс1е(х, у, Вапаом (СбееМаху азу 5)); 
Е1ооаЕг111 (х, у, с) 
111 КеуРгеззеа; _ 
1Е ВеаЯКеу=#0 ®Ъеп х := ога (Веаакеу) ; 
`’С1озеСгарь 
епа 
епа. 


Процедура Вах. Заполняет прямоугольную область экрана. Заголовок: 
Ргоседихге Ват (Х1,У1,Х2,У2: Тпфедег); 


Злесь Х1...У2 — координаты левого верхнего (Х1, У1) и правого нижнего 
(Х2, У2) углов закрашиваемой области. 
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Процедура закрашивает (но не обводит) прямоугольник текущим об-— 
разцом узора и текущим цветом, которые устанавливаются процедурой 
зеаешьЕУ!е. 

Следующая программа дает красивые цветовые эффекты (закраска 
случайных прямоугольников). 


Озе$ Сгарр, СВТ; 
уах 
а, г, е : Тмеедег; 
Бед1п 
{Инициируем графику} 
Я := Рефесс; 
Тп1&Сгарй (4, г, ''); 
е := СгарпВези1с; 
1Е е <> агхоК &Веп 
Иг1сеГл (СгарпЕггогМзча (е)) 
е1зе 
Ьед1п 
{Создаем окно в центре экран} 
Ч := СеёМахх а4х 4; | 
г := СеЕМаху @1х 4; 
ВКесфапа1е (а, г,3*а,3*т); 
Зее \У1емРогеЕ (9+1, :+1,3*а-1,3*х;-1,С11рОп); 
{Цикл вывода и закраски случайныхногоугольников} 
гереае 
ЗеЕЕ1 115+ у1е (Капаом (12), Вапаом (зисс (беЕМахСо1ог)) ); 
Ваг (Вапаом (СееМахХ) , Капом (СееМаху), 
Вапаом (СеЕМахХх) ‚ Вапаом (СеЕМахуУ) ); 
41011 КеуРгеззеа; | 
1Е ВеаЯКеу=#0 реп 4 := ога (Веа@аКеу); 
С1озеСсгкарй | 
епа 
епа. 


Процедура _Вах3р. Вычерчивает трехмерное изображение параллеле — 
ципеда и закрашивает его переднюю грань . Заголовок: 


Ргоседаге ВагЗр (Х1,у1,Х2,У2,ПереВ: Тпфедег; Тор: Воо1еап); 


Здесь Х1...У2 — координаты левого верхнего (Х1, У1) и правого нижнего 
(Х2, У2) углов передней грани; Дер -— третье измерение трехмерного 
изображения («глубина») в пикселах; Тор — способ изображения верхней 
грани. 

Если параметр Тор имеет значение Тгие, верхняя грань параллелепигеда 
вычерчивается, в противном случае — не вычерчивается (этот вариант 
используется для изображения поставленных друг на друга параллелепи — 
педов, см. следующий пример). В качестве значения этого параметра 
может использоваться одна из следующих констант, определенных в мо- 
дуле агарпй: 
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сопзе 
ТорОп = Тгае; 
ТороЕЕ = Га1зе; 


При вычерчивании используется текущий стиль линий (5еНалпеб Ее) и 
текущий цвет (5еСо]ог). Передняя грань заливается текущим стилем' за — 
полнения (5еШ5ЕУе). 

Процедура обычно применяется при построении столбиковых диаграмм. 
Следует учесть что параллелепипед «прозрачен», т.е. за его незакра— 
шенными гранями могут быть видны другие элементы изображения. 

Следующая программа иллюстрирует различные аспекты применения 
процедуры Ваг3р. 


Озез Сгарп, СВТ; 
уах 
а, г, е: Тпедег; 
Бед1п 
{Инициируем графику} 
А := ПБебесЕ; 
Тп1ЕСхкарВ (4, г, ''); 
е := СгарвВезо1%; 
1Е е <> чгОоОК еп 
Иг1 се! (СгарВЕггохМза (е)) 
е1зе 
Бед2п | 
{Столбик с верхней гранью; } 
ВагЗр (80, 100, 120, 180, 15, ТорОп); 
{Столбик без верхней грани:} 
Ваг3Зр (150, 150, 190, 180, 15, ТороЕЕ); 
{Этот столбик "стоит" на следующем и прозрачен:} 
Ваг3Зро (230, 50, 250, 150, 15, ТорОп); 
Ваг3Зр (220, 150, 260, 180, 15, ТорОп); 
{У этого столбика нет верхней грани, и поэтому :н 
не мешает поставленному на него сверху:) 
Ваг3Зр (300, 150, 340, 180, 15, ТороЕЁЕ); 
Зе Т1пебеу1е (3,0,1); 
ЗеЕСо1ох (Уе11ом); 
5еЕЕ1115$у1е (1Е5]1]азпЕ111,Уе11о0\м); 
Ваг3Зр (300, 50, 340, 150, 15, ТорОп); 
1Е ВеаЧКеу=#0 ЕВеп а := ог4(ВеаЯаКеу); 
С1озесгарп; 
ера 
вла. 


Процедура Е111Ро1у. Обводит линией и закрашивает замкнугый 
многоугольник. Заголовок: 


Ргоседиге Е111Ро1у\М: Мога; тах Соогаз); 
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Здесь М — количество вершин замкнутого многоугольника; Соогаз — 
переменная типа РошТуре, содержащая координаты вершин. 

Координаты вершин задаются парой значений типа [1едег: первое 
определяет горизонтальную, второе — вертикальную координаты. Для них 
можно использовать следующий определенный в модуле тип: 

фуре 
Ро1пЕТуре = кесогка 
х, У : Тмедег 
епа; 


Стиль и цвет линии контура задаются процедурами 5еНлпебе и 
5е!Со]ог, тип и цвет заливки — процедурой 5е "ШФЕ/е. 
В следующем примере на экран выводятся случайные закрашенные 


многоугольники. 


Озез$ Сгарп, СВТ; 


уах 
Ч, г, е: Тпбедег; 
р : аггау [1..6] оЕЁ Ро1пЕТуре; 
п, К : Мога; 

Ьед1п 


{Инициируем графику] 
Я := Безесе; 
Тп1ЕСгарВ (а, г, ''); 
е := СгарНВеза1*; 
1Е е <> зхоОКк &ЪВеп 
Иг1Кегл (СкарнЕсгоЕМеа (е)}_ 
е1 зе 
Ъед1п 
{Создаем окно в центре экрана} 
Я := СефМахх ах 4; 
г := СеЕМаху @1х 4; 
Вес апа1е (а, г,3*а, 3З*х); 
Зес\У1емРог® (9+1, г+1,3*а-1,3*х-1,С11рОп); 
{Цикл вывода случайных закрашенных многоугольников} 
гереае 
{Выбираем случайный цвет и узор} 
ЗеЕЕ1115$у1е (Вапаом (12), Вапаом (зисс (бееМахСо1о:))); 
бЗеЕСо]1ог (Вапаоп(зисс (беЕМахСо1ох))); 
{Назначаем случайные координаты} 
п := Вапаом (4) + 3; 
Бог К := 1 оп 9@о м1 В р [к] ао 
Бед1п 
х := Вапаом (СеёМахх у 2); 
у := Вапаом (СеЕМаху аах 2) 


епа; 
Е111Ро1у (п, р) {Выводим и закрашиваем} 


110611 КеуРгеззеа; 
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3Е КеаЧКеу=#0 ЕБеп К := ога (ВеааКеу); 
С1озеСгкарВ 
епа 
епа. 


Процедура Е111Е111рзе. Обводит линией и заполняет эллипс. Заго — 
ЛОВОК: 
Ргосеаике Е111Е111рзе(Х,У,ВХ, ВУ: ТпЕедек); 


Здесь Х, У — координаты центра; КХ, КУ — горизонтальный и верти-— 
кальный радиусы эллипса в пикселах. 

Эллипс обводится линией, заданной процедурами 5еИлпе5 Ее и 5е!Со]ог, 
и заполняется с использованием параметров, установленных процедурой 
эаешШЬгГие. 


Процедура_ЗесЕог. Вычерчивает и заполняет эллипсный сектор. За-— 
ГОЛОВОК: 


Ргоседиге Зеског(Х,Уу: Тпбедегк; ВедА, ЕпаА, ВХ, ВУ: Иога); 


_Здесь ВедА, ЕпЧА — соответственно начальный и конечный углы эл-— 
липсного сектора. Остальные параметры обращения аналогичны пара— 
метрам процедуры ЕШЕШреве. 

В следующей программе на экран выводятся случайные закрашенные 
эллипсы и секторы. Аля выхода из программы нажмите любую клавищу. 


0зез Сгарйп, СВТ; 


уаг 
а, г, е : тпёедекг; 
Беда п 
{Инициируем графику} 
Я := БефесЕ; 
Т01ЕСкарь (а, г, ''); 
е := СгарПВез$а1$; 


1Е е <> ахОоК ЕВеп 
Их се! (СгаррЕггохМзд (е)) 
е).зе 
Бедап 
{Создаем окно в центре экрана} 
Я := сбебМахх @1х 4; 
г :;= СебМаху ау 4; 
Весфапа1е (а, г,3*а,З*хг); 
Зес\У1емРоге (4+1,г:+1,3*а-1,3*к-1,С11рОп); 
{Цикл вывода} 
гереае 
ЗееЕ1115+у1е (Вапдоп (12), 
Вапаом (зцсс (СеЕМахСо1ог))); 
ЗееСо1ог (Вапаом (засс (СееМахСо1о:))); 
Зесфог (Вапаом (СеЕМахХх а1“),Вапаом (СееМахуУ @1ху 2), 
ВКапаом (360) ,Вапаом (360) ,Вапаом (бСеЕМахх аа 5), 
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Вапаом (СееМахУ а1х 5)); 
Е111Е]11рзе (Капаоп (бееМахх ах 2), 
Вапаом (СеЕМаху @а1у 2),Вапаом (СеЕМахх @а3х 5), 

Вапаоп (СеЕМахУ @а1ху 5)) 

и1п$11 КеуРгез5еа; 

1Е ВеаЯКеу=#0 ЕВеп 4 := ога (ВеааКеу); 

С1озеСгарпв 

епа 
епа. 


Процедура _Р1е511се. Вычерчивает и заполняет сектор окружности. 
Заголовок: 


Ргоседаге Р1е511се(Х,Уу: Тпеедег; ВездА,ЕпадА,в: Иога); 


В отличие от процедуры 5есюг, указывается лишь один горизонтальный 
радиус К, остальные параметры аналогичны параметрам процедуры 5есюг. 

Сектор обводится линией, заданной процедурами 5еНапе5 Ее и 5еСо/ог, 
и заполняется с помощью параметров, определенных процедурой 
ЗаеЕшзе. Процедуру удобно использовать при построении круговых 
диаграмм, как, например, в следующей программе (рис.14.9). 


Озез СгарПп, СВЕТ; 

уаг 
а, г, е : Ттфедег; 

Бед1п 
{Инициируем графический режим] 
Я := БебесЕ; 


Рис. 14.9. Иллюстрация процедуры Ре$Исе 


Тл16СгарВ (а, т, ''); 
е := СгарПКеза1*; 
1Е е <> згОоКк Вел 
Иг1 фе!л (СгарЬЕггогМз9 (е)) 
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е1зе 

Бед1п 
{Выводим маленький сектор} 
ЗеёЕ1115у1е (\1АеПоЕЕ111, Ив1{е); 
Р1е511се (СеЕМаххХ @азу 2+5,СеЕМахУ @а1ху 2+4,270,360,100); 
{Выводим большой сектор} 
беЕЕ1115$у1е (501147111, Веа); 
Р1е511се (СеЕМаххХ ах 2,СбезМаху @а1х 2, 0,270,100); 
{Выводим надписи} 
ОчеТехЕХУ (СеЕМахх а1у 2+90,СеЕМаху а1х 2+70, '25%'!); 
ОчеТехЕХУ (беЕМахх @а1х 2-50, СеЕМаху а1у 2-20, '755');. 
{Ждем нажатия на любую клавишу} 
1Е ВеааКеу=#0 ЕВеп 4 := ога (КеааКеу); 
С1озебсгкари 

епа 

епа. 


14.7. СОХРАНЕНИЕ И ВЫДАЧА ИЗОБРАЖЕНИЙ 


Функция Тпаае5!те. Возвращает размер памяти в байтах, необходимый 
для размещения прямоугольного фрагмента изображения. Заголовок: 


ЕипсЕ1оп Тпаде$12е (Х1,У1,Х2,У2: Тп%едег): Мога; 


Здесь Х1...У2 — координаты левого верхнего (Х1, У1) и правого нижнего 
(Х2, У2) углов фрагмента изображения. 


Процедура _Се*Тпаае. Помещает в память копию прямоугольного 
фрагмента изображения. Заголовок: 


Ргоседиге СееТптаде (Х1,У1,Х2,У2: Тпеедек; уаг ВуаЕ) 


Здесь Х1...У2 — координаты углов фрагмента изображения; ВиЁ — пе— 
ременная или участок кучи, куда будет помещена копия видеопамяти с 
фрагментом изображения. 

Размер ВШ должен быть не меньше значения, возвращаемого функцией 
Гпаде$12е с теми же координатами Х/....У2. 


Процедура РаеТпаае. Выводит в заданное место экрана копию фраг-— 
мента изображения, ранее помещенную в память процедурой Се таде. 
Заголовок: 


Ргосеаиге РаЕТпаде(Х,Уу; Тпеедег; чак ВоаЕЁ; Моае: ИШога); 


Здесь Х, У — координаты левого верхнего угла того места на экране, 
куда будет скопирован фрагмент изображения; Ви — переменная или 
участок кучи, откуда берется изображение; Мое — способ копирования. 

Как видим, координаты правого нижнего угла не указываются, так как 
они полностью определяются размерами вновь выводимой на экран копии 
изображения. Координаты левого верхнего угла могут быть какими угодно, 
лишь бы только выводимая копия уместилась в пределах экрана (если 
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копия не может разместиться на экране, она не выводится и экран ос- 
тается без изменений). 

Параметр Мо4е определяет способ взаимодействия вновь размещаемой 
копии с уже имеющимся на экране изображением. Взаимодействие 
осуществляется путем применения кодируемых этим параметром логи — 
ческих операций к каждому биту копии и изображения. Для указания 
применяемой логической операции можно использовать одну из сле- 
лующих предварительно определенных констант: 


сопзе 
Могма1Рае= 0; {Замена существующего изображения на копию} 
ХогРаЕ = 1; {Исключительное ИЛИ} 
ОгРа® = 2; {/Объединительное ИЛИ} 
АпарРае = 3; {Логическое И} 
МоЕРаЕ = 4; {Инверсия изображения} 


Наиболее часто используются операции М№гтаиРш, ХОКРШ и М№оРш. 
Первая из них просто стирает часть экрана и на это место помещает 
копию из памяти в том виде, как она там сохраняется. Операция № Рш 
делает то же самое, но копия выводится в инверсном виде. Аля моно— 
хромного режима это означает замену светящихся пиксел на темные и 
наоборот. В цветном режиме операция № 1Риё применяется к коду цвета 
каждого пиксела. Например, для ИШЕ (код 15 или в двоичном виде 1111) 
эта операция даст код 0000 = 0 = В/асЕ, для Кей = 4 = 0100 получим 1011 
= 11 = [9НСуап и т.д. Операция ХОКРШ, примененная к тому же месту 
экрана, откуда была получена копия, сотрет эту часть экрана. Если опе-— 
рацию применить дважды к одному и тому же участку, вид изображения 
на экране не изменится. Таким способом можно довольно просто пере— 
мещать изображения по экрану, создавая иллюзию движения. 

Следующая программа рисует «Неопознанный Летающий Объект» 


— летающую тарелку на звездном фоне (рис.14.10). 


Рис.14.10. Иллюстрация процедур СеНтаде/РиНтаде | 
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Озе$ Сгарп, СВТ; 


сопзе 
г. = 20; {Характерный размер НЛО} 
рацзе = 50; {Длительность паузы] 
уаг 


А, м,е, хм, ум, х,у,1х,Ту, Ех, ху, 
5$12е,1,ах,аАу, ИтАен,Нетайе: Тпеедег; 
бацсег ;: Розпеег; 


]1аЪе1 
1оор; 

Бед1п 
{Инициируем графику] 
Я := ПБебесЕ; 
Тр1ЕСгарВ (а, м, ''); 
е := СгаррКеза1{; 


1Е е <> чхОК &Веп 
Иг1$ еп (СгарВЕггогМзч (е)) 


е1зе 
Бед1п 
х := г*5; 
у := г*2; 
хм := СеЕМахХх а1х 4; 
ум := СеЕМахУу а1х 4; 


{Создаем "тарелку" из двух эллипсов с усами антенн} 
Е111рзе (х,у,0,360,х,х а2у 3+2); 

Е111рзе (х,у-4,190,357,:,х а1у 3); 

Т1пе (х+7,у-6,х+10,у-12); 

Т1пе (х-7,у-6, х-10, у-12); 

С1хс1е (х+10,у-12,2);_ 

С1хс1е (х-10,у-12,2); 

Е1ооаЕ111 (х+1,у+4,ИВ1ее); 

{Определяем габариты НЛО и помещаем его в кучу} 


1х := х-г-1; 

1у := у-14; 

ух := х+1:+1; 

гу := у+г а1у 3+3; 
МтаЕн := хх - 1х+1; 


Незане:= ху - 1у +1; 

512е := ГПааде$1те(1х, 1у, тх, гу); 
СееМем (бацсег, 512е); 

СееТтаде (1х, 1у, гх, гу, бацсег^); 
{Стираем построенное} 

РаеТтаде (1х, 1у, Зацсегх^, ХогРа®); 
{Создаем звездное небо} 
Весфапа1е (хм, ум, З*хм, З*ум); 
Зес\У1еиРог® (хт+1, ум+1, 3*хт-1, З*ум-1,С11рОп); 
хш := 2%*хп; 

ум := 2*уп; 
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ог 1:=1 во 200 ао 
РаЕР1хе1 (Вапаом (хм), Вапаом (ум), МВ1%е); 
{Задаем начальное положение НЛО и направление движения} 
х := хм Ях 2; 
у := ум Я1х 2; 
Ах := 10; 
Ау := 10; 
{Основной цикл} 
гереаЕ 
РаеТмаде (х, у, сацсег^,ХогРа*); {Изображаем НЛО на} 
Ре]1ау (раизе); {новом месте и после} 
Ра Ттаде (х, у, Зацсег^, ХогкРа®); {паузы стираем его; 
{Получаем новые координаты} | 
1оор: х := х+ах; 
у := у+9ау; 
{НЛО достиг границы экрана?} 
12 (х<0) ог (х+М1а66+1>хп) ог 
(ухо) ох (у+Не190&+1>ум) ЕБВеп 
Ъед1п {Да - НЛО достиг границы: меняем 
направление его перемещения} 


х := х-ах; := у-ау; 
Ах := СебМахх а@азу 10 - Вапаоп (бееМахх @1у 5); 
Чу := Се Маху а1у 30 - Вапаом (СеЕМахуУ азу 15); 
дово 1оор 

епа 


1110611 КеуРгеззеа; 
1Е ВКеаЧКеу=+0 %ЕВеп х := ога (ВеааКеу); 
С1о5есгарВ 
епа 
епа. 


14.8. ВЫВОД ТЕКСТА 


Описываемые ниже стандартные процедуры и функции поддерживают 
вывод текстовых сообщений в графическом режиме. Это не одно и то же, 
что использование процедур Итие или ИтЦе[Гт. Дело в том, что специально 
для графического режима разработаны процедуры, обеспечивающие вывод 
сообщений различными шрифтами в горизонтальном или вертикальном 
направлении, с изменением размеров и т.д. Однако в стандартных 
шрифтах, разработанных для этих целей фирмой ВоПапа, отсутствует 
кириллица, что исключает вывод русскоязычных сообщений. 

С другой стороны, процедуры ИтИе и Итие[Ё[п после загрузки в память 
второй половины таблицы знакогенератора (а эта операция легко реали — 
зуется в адаптерах ЕСА и УСА) способны выводить сообщения с исполь— 
зованием национального алфавита, но не обладают мощными возмож— 
ностями специальных процедур. 
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В гл.24 обсуждаются приемы, с помощью которых можно изменять 
стандартные шрифты, добавив в них кириллицу, и/или приспособить 
процедуры ИтШе, Итие[т к выводу сообщений в графическом режиме. 

Ниже описываются стандартные средства молуля Стар для вывода 
текста. 


Процедура ОцЕТехЕ. Выводит текстовую строку, начиная с текущего 
положения указателя. Заголовок: 


Ргосе4иге Оп+Тех+ (Тхё: ЗЕх1па); 


Здесь Тх! — выводимая строка. 

При горизонтальном направлении вывода указатель смещается в конец 
выведенного текста, при вертикальном — не меняет своего положения. 
Строка выводится в соответствии с установленным стилем и выравнива — 
нием. Если текст выходит за границы экрана, то при использовании 
штриховых шрифтов он отсекается, а в случае стандартного шрифта не 
ВЫВОДИТСЯ. 


Процедура _ОзеТехЕХУ. Выводит строку, начиная с заданного места. 
Заголовок: 


Ргосеацке ОцеТехеХУ (Х,У: Тпеедег; Тхе: 5%гх4па); 


Здесь Х, У — координаты точки вывода; ТхЁ — выводимая строка. 
Отличается от процедуры ОшТех только координатами вывода. Ука-— 
затель не меняет своего положения. 


Процедура _5е+*Тех+5+у1е. Устанавливает стиль текстового вывода на 
графический экран. Заголовок: 


Ргосе4иге ЗееТех*5%у]1е (Гопе, 01хесе, 512е: ИМога); 


Здесь РопЕ — код (номер) шрифта; Риес! — код направления; 512е — код 
размера шрифта. 

Для указания кода шрифта можно использовать следующие предва-— 
рительно определенные константы: 


сопзе 
Регаз1еРопе = 0; {Точечный шрифт 8х8} 
Теар1ехРопе = 1; {Утроенный шрифт ТКЕГР.СНК} 
5та11Еопе = 2; {Уменьшенный шрифт ГТТТ. СНК} 
Запз5бек1ЕКГопе = 3; {Прямой шрифт $5АМ5.СНЕ} 
Сор 1сРопЕ = 4; (Готический шрифт СОТН.СНКЕ} 


Замечу, что эти константы определяют все шрифты для версий 4.0, 5.0, 
5.5 и 6.0. В версии 7.0 набор шрифтов значительно расширен, однако для 
новых шрифтов не предусмотрены соответствующие мнемонические 
константы. В этой версии помимо перечисленных Вы можете при обра— 
щении к 5еЁТех5 Ге использовать такие номера шрифтов: 
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в [|  эмь.слк [| Одноштриховый шрифт тина бе | 
8 | еее | Шрифт тина Титев Виа О | 
о [|  емо.ск — | Шрифт типа Сониег увеличенного размера | 


Шрифт Реюш! Рог входит в модуль Старй и доступен в любой момент. 
Это — единственный матричный шрифт, т.е. его символы создаются из 
матриц 8х8 пиксел. Все остальные шрифты — векторные: их элементы 
формируются как совокупность векторов (штрихов), характеризующихся 
направлением и размером. Векторные шрифты отличаются более богатыми 
изобразительными возможностями, но главная их особенность заключается 
в легкости изменения размеров без существенного ухудшения качества 
изображения. Каждый из этих шрифтов размещается в отдельном дис. 
ковом файле. Если Вы собираетесь использовать какой—либо векторный 
шрифт, соответствующий файл должен находиться в Вашем каталоге, в 
противном случае вызов этого шрифта игнорируется и подключается 
стандартный шрифт (проблема включения шрифта в готовую программу 
обсуждается в п.22.9). 

Замечу, что шрифт ДРемиИРопР создается графическим драйвером в 
момент инициации графики на основании анализа текстового шрифта. 
Поэтому, если Ваш ПК способен выводить кириллицу в текстовом режиме, 
Вы сможете с помощью этого шрифта выводить русскоязычные сообщения 
и в графическом режиме. В остальных шрифтах эта возможность появ— 
ляется только после их модификации (см. п.24.2). 

_ Аля задания направления выдачи текста можно использовать константы: 


соп$® | 
Ног1201х = 0; [Слева направо} 
Уе’гЕ01г = 1; {Снизу вверх} 


Как видим, стандартные процедуры ОшТехЁ и ОиТехЁХУ способны 
выводить сообщения лишь в двух возможных направлениях — слева на— 
право или снизу вверх. Зная структуру векторных шрифтов, нетрудно 
построить собственные процедуры вывода, способные выводить сообщения 
в любом направлении (см. в п.24.3.4 процедуру Ош5тд модуля Е_С1ТЕХИ). 

Каждый шрифт способен десятикратно изменять свои размеры. Размер 
выводимых символов кодируется параметром 512е, который может иметь 
значение в диапазоне от 1 до 10 (точечный шрифт — в диапазоне от до 
32). Если значение параметра равно 0, устанавливается размер 1, если 
больше 10 — размер 10. Минимальный размер шрифта, при котором еще 
отчетливо различаются все его детали, равен 4 (для точечного шрифта — 
1) 

Следующая программа демонстрирует различные шрифты (рис.14.11). 
Их размер выбран так, чтобы строки имели приблизительно одинаковую 
высоту. Перед исполнением программы скопируйте все шрифтовые файлы 
с расширением .СНЕЁ в текуший каталог. 
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Магое |517е эуп1ро]|5 


ТНР| 5 абсаео1Атопораге 
НЕТ Т|10 абсает ай: | к1мпораи 
абсаетай|КкппорагзТиу\мху? 


арго оц ииорасяйаляхцЕ 
ое 
обсаетойИКиппораг им\хут 
абсе ТориКитторатзеиял, 


арсае! = 61)КИппорагэфаух 


зосаегомикиппорогавии м 
асов] «мл иууу 


Рис.14.11. Различные шрифты 


27 


очоа в ам 


К (С м ЕР 


Озез Сгарь, СВТ; 
соп$Е 
Гоп Мамез: акгкау [1..10] оЕЁ ЗЕгзиа [4] = 
('ТВТР', 'ЬТТТ', '5АМ5!, 'СОТН', 
'ЗСВТ!, '51МР', 'Т$5СВ','ЪСОМ','ЕОКБО!, 'ВОЬО'); 


Тар1 = 50; 
Таю2 = 150; 
ТаьЗ = 220; 
уагх 
А, г,БЕг, {Переменные для инициации графики} 
У, ау, {Ордината вывода и ее приращение} 
З12е, {Размер символов] 
МахГРоп\, {Максимальный номер шрифта} 
К: Тпееаег; {Номер шрифта} | 
МТ, 512еТ, сумЬТ: 8З%Езпа; {Строки вывода} 
с: Сраг; 


Ргосеаиге ОпсеТехеи1еПТар (51,52,53,54: 53%Е1па); 
‚Выводит строки 51..54 с учетом позиций табуляции ТаЪ1..Тар.3 } 


Ъед1п 
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МохеТо ( (ТаЪ1-Техеитаев ($1)) ах 2,у); 
ОцеТехе ($51); 
МохеТо (ТаЪ1+ (Таф2-ТаЪ1-ТехЕмтаер ($52)) ах 2,У); 
ОчЕТехё ($2); 
МохеТо (ТаЪ2+ (Таб3З-Таь2-Техеитаен ($3)) ах 2,У); 
ОцЕТехё ($3); 
1Е 54='бутро15$' ЕВеп [Заголовок колонки $утро1$} 
МохеТо ( (Таб3З+СбееМахХ-Техеизаев ($4)) ах 2,уУ) 
е1зе {Остальные строки} 
МоуеТо (ТаЪ3+3,У); 
ОпеТехе (54) 

епа; 


Бед1п 
{Инициируем графику] 
Тп1ЕСгарВ (Я,х,''); 
Егг := СгаррВе$а1*; 
1Е Егг<>агОоК ЕВеп 
Мг1$е!лп (СгарВЕггогМ$4а (Егг)) 
е]1зе 
Беда 
{Определяем количество шрифтов;} 
{$ТРОЕРГ УЕВ70} 


МахГопЕ := 10; 
{5ЕГЗЕ} 

МахГоп® := 4; 
{5ЕМОТЕ) 
| бееТехЕ 5$ у1е (1,0,4); 

У := 0; 


ОцЕТехЕМ1ЕПТаь ('М№', 'Маме!, '512е', '5умбо1$'); 
{Определяем высоту У линии заголовка} 
У := 4*ТехЕНелаь* ('2') ах 3; | 
Г1пе (0, у, СеЕМахх, У); 
{Определяем начало У таблицы и высоту ЧУ каждой строки} 
У := З*ТехеНезане ('2') азху 2; 
ЧУ := (СеЕеМахУ-У) ау (МахРГоп®); 
{Готовим строку символов} 
ЗуШЮТ := ''; 
Бог с := 'а' Фо '2' ао 
ЗумЬТ := ЗуптЮоТ+с; 
{Цикл вывода строк таблицы} 
Бог К := 1 Во МахРопЕ ао 
Бед1п 
$11е := 0; 
{Увеличиваем размер до тех пор, пока высота строки 
не станет приблизительно равна @аУ} 
гереаЕ 
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1пс (512е); 
бестехЕ 5 у1е (К,0,517е+1); 
1111 (ТехеНетаНе('7')>=ау) ох (512е=10) 
ог (ТехеитаЕв (ГопЕМапез[К]) > (Таб2-ТаЪ1)); 
{Готовим номер МТ и размер 5$12етТ шрифта} 
ЗЕх (К,МТ); 
ЗЕг (512е,512етТ); 
{Выводим строку таблицы} 
бееТтехе5еу1е (К,Ног1201г,512е); 
ОцеТехЕ\1ЕПТаЪ (МТ, ЕопЕМамез [К], 512еТ, зумЬтТ); 
1пс (Уу,ау) 
епа; 
{Рисуем линии рамки} 
Весфапа1е (0,0, СеЕМахх, СеЕМаху); 
Т1пе (ТаЪ1,0,ТаЪ1,СееМаху); 
Г1пе (Таб2,0,Таь2,СееМаху); 
Т1пе (ТаЪЗ,0,ТаьЗ,СееМаху); 
{Ждем инициативы пользователя} 
Веаа!п; 
С1о5ебСгарй 
епа 
епа. 


Процедура 5е-ТехЕЛ15&1ЁЕу. Задает выравнивание выводимого текста 
по отношению к текущему положению указателя или к заданным коор— 


линатам. Заголовок: 


Ргоседаге бесТехеЛа$Е1Еу (Ног17,У\Уег®: Мога); 


Здесь Ноп2 -— горизонтальное выравнивание; Уег — вертикаленое ` 
выравнивание. 
Выравнивание определяет как будет размещаться текст — левее или 


правее указанного места, выше, ниже или по центру. Здесь можно ис- 
пользовать такие константы: 


{>} 1-5 ы 
ТеЕеТехе = 0; {Указатель слева от текста} 
СепсегТехе= 1; [Симметрично слева и справа, верху и снизу} 
В1ареТехе = 2; {Указатель справа от текста} 
ВоЕбомТехЕ= 0; {Указатель снизу от текста} 
ТортТехЕ = 2; {Указатель сверху от текста} 


Обратите внимание на неулачные, с моей точки зрения, имена мее— 
монических констант: если, например, Вы зададите [еНТехЕ что в переводе 
означает «ЛевыйТекст», сообщение будет расположено справа от текущего 
положения указателя (при выводе процедурой ОшТемхХУ — справа от 
заданных координат). Также «наоборот» трактуются и остальные кон- 
станты. 

Следующая программа иллюстрирует различные способы выравнивания 
относительно центра графического экрана (рис.14.12). 
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ВБ Техь, 


Рис.14.12. Выравнивание текста 


9зез$ СгарП, СВТ; 
уаг 
А, х, е : Тпмеедег; 
Ред1п 
{Инициируем графику} 
Я := Бебес&; 
Тп1ЕСкарВ (Я, г, ''); 
е := СгарНВе$ч1*; 
1Е е <> ахоКк еп 
Иг1тсеГл (СгарпЕггогхМзч (е)) 
е]1 зе 
Ъед1п 
{Выводим перекрестие линий в центре экрана} 
Т1пе (0, СееМаху азу 2,СеЕМахх, СеЕМаху алу 2); 
1пе (беЕМаххХ ау 2,0, СееМахх а1у 2, СеёМаху); 
{Располагаем текст справа и сверху от центра} 
ЗееТехЕЕу1е (Тгх1р1ехЕГопе,Ног1201х,3); 
бЗесТехЕа$Е1Еу (.еЕЕТехе, ВосфомТехе); 
ОпЕТехЕХУ (СееМахХх @а1у 2, СбеЕМаху а1у 2, 
'.еЕеТехе, ВоскомТех®'); 
{Располагаем текст слева и снизу} 
беЕеТехеЛа$&1ЁЕу (В1апеТехе, ТорТехе); 
ОпЕТехЕХУ (СеЕМахХх @41у 2, Се%Маху а1мх 2, 
'В1апеТехе, ТорТех®е'); 
1Е ВеаЯКеу=#0 %Веп а := ога (ВеааКеу); 
С1о5еСгарН 
епа 
епа. 


Процедура 5е=Озе’Свахк512е. Изменяет размер выводимых символов в 
соответствии с заданными пропорциями. Заголовок: 


Ргосеааге Зее ОзегСВак$1те (Х1,Х2,У1,У2: ШМога); 


Здесь Х1...У2 — выражения типа И/’ога, определяющие пропорции по 


торизонтали и вертикали. 
Процедура применяется только по отношению к векторным шрифтам. 


Пропорции задают масштабный коэффициент, показывающий во сколько 
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раз увеличится ширина и высота выводимых символов по отношению к 
стандартно заданным значениям. Коэффициент по горизонтали находится 
как отношение Х] к Х2, по вертикали — как отношение УИ к У2. Чтобы, 
например, удвоить ширину символов, необходимо задать Х1=2 и Х2=1. 
Стандартный размер символов устанавливается процедурой 5е! Тех 5 е, 
которая отменяет предшествующее ей обращение к 5е О5егСВаг{е. 

В следующем примере демонстрируется изменение пропорций 
уменьшенного шрифта. 


Озез$ СгарЬ, СВТ; 
у\аг 
а, г, е : ТлЕедег; 
Бедап 
{Инициируем графику} 
Я := Бебес®; Тп1ЕСгарВ (а, х, !''); 
е СгарпВези1%; 
12 е <> чгоК еп 
Иг1 еп (СгарпЕггохМзса (е)) 
е1зе 
Бед1п 
МохеТо (0, СеЕМаху а1х 2); | 
зеесТехе5еу1е (5та11ЕопЕ, Ног12701х, 5); 
ЗеЕсТехЕЛа$61Еу (ТеЕЕТехе, ВоЕебомТех®); 
{Выводим сообщение стандартной высотой 5} 
ОпеТехе ('М№огма1Т Изтаей,'); 
{Удваиваем ширину шрифта} 
$20зехСраг$1те (2, 1, 1, 1); 
ОпеТехЕе (' Рочю1е Илаев, '); 
{Удваиваем высоту, возвращаем стандартную ширину} 
ЗеОзехСВаг517те (1, 1, 2, 1); 
ОцЕТехе ('Ропю1е Не1зайе,!'); 
бЗеЕО0зегСВаг$1;е (2, 1, 2, 1); 
ОцеТехе (' РоцЬ1е М1Ааен апа Не19В®'); 
1Е ВеаЧКеу=#0 ЕВеп Я := ога (Веа@Кеу); 
С1озеСгкарь 
епа 
епа. | 


Функция ТехеиИ1аен. Возвращает длину в пикселах выводимой тек-— 
стовой строки. Заголовок: 


РипсЕ1оп Техем1аст (Тхе: $56Е4па): Иога; 


Учитываются текущий стиль вывода и коэффициенты изменения 
размеров символов, заданные соответственно процедурами бе! Техуе и 
зе ОегСВаг& те. 


Функция ТехЕНезаве. Возвращает высоту шрифта в пикселах. Зато — 
ловок. 
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ЕипсЕ1оп ТехЕНетоне(Тхе: $+г1п9): Мога; 


Процедура СеЕТехЕ5е 1паз. Возвращает текущий стиль и выравни— 
вание текста. Заголовок: 


Ргоседиге СееТехЕбеЕ+1п$ (уаг Тех*ТпЕо: Техебеее1тазТуре); 


Здесь ТехШ! — переменная типа Тех{беНтдзТуре, который в модуле 
агарй определен следующим образом: 


фуре 
Тех бес 1пазТуре = гесога 
Гоппе : Мога; [Номер шрифта} 
201хесЕ1оп: ИМога; {Направление} 
Спаг512е : Мога; {Код размера} 


Ног12 : Мога; {Горизонтальное выравнивание} 
У\УегхЕ : Мога [Вертикальное выравнивание} 
ера; 


Функция Тп5Еа110зегКоп+. Позволяет программе использовать не— 
стандартный векторный шрифт. Заголовок функции: 


Рапсё1оп 1п5ба1105ехКопЕ (Е11еМаме: $&г1п9): ТпЕедег; 


Здесь ЕИеМате — имя файла, содержащего векторный шрифт. 

Как уже говорилось, в стандартную поставку Турбо Паскаля версий 4.0 
— 6.0 включены три векторных шрифта, для версии 7.0 — 10. Функция 
пяюаПО5егРопЁ! позволяет расширить этот набор. Файл ЕЙеМате должен 
строиться по специальным правилам, подробно обсуждаемым в п.23.2. 
Функция возвращает идентификационный номер нестандартного шрифта, 
который может использоваться при обращении к процедуре 5е! Тех 5уе. 


Функция Тп5{а110зех0Ох1уег. Включает нестандартный графический 
драйвер в систему ВС!- драйверов. Заголовок функции: 


Рапсё1оп Тп56а1105ег)г1уекг (Е1]1еМапме: Зех1ла; 
АсборесесеРЕт: Ро1п%ег): Тпфедег; 


Здесь ЕИеМате -— имя файла, содержащего программу драйвера; 
Аиюреес1 РЕ — адрес точки входа в специальную процедуру автоопре— 
деления типа дисплея, которая в числе прочих процедур должна входить в 
состав драйвера. 

Эта функция расширяет и без того достаточно обширный набор стан— 
дартных графических драйверов и предназначена в основном для раз— 
работчиков аппаратных средств. 


14.9. ВКЛЮЧЕНИЕ ДРАЙВЕРА И ШРИФТОВ 
В ТЕЛО ПРОГРАММЫ 
В Турбо Паскале имеется возможность включения графического 


драйвера и штриховых шрифтов непосредственно в тело программы. Такое 
включение делает программу независимой от местоположения и наличия 
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на диске драйверов и шрифтов, а также ускоряет подготовку графических 
программ к работе (шрифты и драйвер загружаются вместе с программой). 

Включение драйвера и шрифтов осуществляется по следующей общей 
схеме. Сначала с помощью вспомогательной программы ВПУОВ.Л.ЕХЕ, 
входящей в комплект поставки Турбо Паскаля, драйвер и шрифты пре— 
образуются в ОВ/— файл (файл с расширением .ОВЛ. Аля этого вне среды 
Турбо Паскаля необходимо вызвать утилиту ВИМОВ/ с тремя параметрами: 
именем преобразуемого файла, именем получаемого ОВ/- файла и гло-— 
бальным именем процедуры. Эти имена, в принципе, могут быть произ — 
вольными, правильными для \М5-—ШО5 именами. Например: 


с: \Ер\Ь1пор) сда.691 сда сда@гу 


В результате такого обращения из каталога ТР на диске С будет вызвана 
программа ВИУОВБ] и ей будут переданы следующие параметры: 

ССА.ВСТ -— имя файла с преобразуемым драйвером; 

ССА — имя файла с расширением.ОВЛ т.е. ССА.ОВЛ который будет 
получен в результате исполнения программы ВИУОВЛ 

ССАРКУ — глобальное имя, под которым этот драйвер будет известен 
программе. . 

После этого можно написать следующий фрагмент программы: 


Чзез СгарЦ; 
Ргосе4иге ССАШВУ; ехеегпа1; 
{51 ССА.ОВУ} 


уаг 
а, г, е : Тпеедег; 
Бед1п 
1Е Веч1зсегВСТОг1уег (@ССАШВУ) < 0 еп 
Бедап | 
Иг1$сегп ('Ошибка при регистрации драйвера'); 
Ра1 | 
епа; 


Я := ССА; г := ССАН:; 
Тп1ЕСгкарВ (Я, г, ''); 


Как видно из этого примера, в программе объявляется внешняя про-— 
цедура с именем ССАОКУ (глобальное имя, указанное при обращении к 
ВИУОВУ), причем дается директива компилятору отыскать в текущем ка— 
талоге и загрузить файл ССА.ОВЛ в котором находится эта процедура. 
Затем осуществляется регистрация драйвера путем обращения к функции 
КебдяетВС1)иуег. Единственным параметром этой функции является адрес 
начала драйвера в памяти (@ССАОКУ). Функция возвращает значение типа 
Ллцедег, которое служит для контроля правильности завершения процедуры 
регистрации драйвера: если это значение меныше нуля, обнаружена 
ошибка, в противном случае функция возвращает номер зарегистриро — 
ванного драйвера. В примере контролируется правильность регистрации 
драйвера и, если ошибка не обнаружена инициируется графический 
режим работы экрана. 
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Аналогичным образом можно присоединить к программе стандартные 
штриховые шрифты (матричный шрифт 8х8 входит в состав модуля Сгарй 
и поэтому присоединять его не надо). Присоединение шрифта строится по 
описанной схеме за тем исключением, что для его регистрации вызывается 
функция КейЯетВС!ЕРотЕ. Например, после преобразования 


с: \Разса1\Ь1пор) 11%%.сВг 11% 11% 


можно использовать операторы 


Ргосейиге 114%: ЕхЕегпла1; 
[$ ЕЁ. 07} 


1Е Веа1зфегВСТРопе (611%) < 0 %Веп ... 


Обратите внимание: регистрация и драйвера, и шрифтов должна 
предшествовать инициации графического режима. 

Регистрировать можно также драйверы (шрифты), которые не компи — 
лируются вместе с программой, а загружаются в динамическую память. 
Например: 


Озез Сгарй; 


уаг 
р: Розпеег; 
Е: #11е; 
Ьед1п 
Азз1ап (ЕЁ, 'Г166.сВе'); {Открываем файл} 
Везее (ЁЕ,1); {ГТТТ.СНК для чтения} 
СеЕМем (р, Е11е512е(Е)); {Резервируем для него 
| область кучи нужного размера} 
В1осКВеаа (Ё,р^,Е11е512е (Е)); {Читаем файл} 
Иг1 ел (Вез1зкегВСТРоп® (р)) {Регистрируем шрифт} 


епа. 


ЧАСТЬ 2 


БИБЛИОТЕКА 
ТОВВО УБЮМ 


Глава 15 


ВВЕДЕНИЕ В ТОВВО УГЛОМ 


В этой главе мы попробуем разработать программу, которая использует 
некоторые возможности Тито \1$1оп. Пусть например, нам необходимо 
создать простейшую информационную систему — нечто вроде элек- 
тронной записной книжки. Предполагается, что данные, используемые 
этой системой, будут храниться в виде записей в дисковом файле. Наша 
задача — разработать удобную диалоговую программу, облегчающую 
доступ к файловым данным. 

Разработка программы, разумеется, не является самоцелью — ведь для 
нас это только повод для конкретного знакомства с Титро У1$1оп. Поэтому 
мы будем создавать программу постепенно, каждый раз фиксируя дос— 
тигнутые результаты. Если Вас интересует собственно информационная 
программа, используйте ее окончательный вариант, приведенный в 
прил.[1.5.4 


15.1. ПРОСТЕЙШАЯ ПРОГРАММА В ТОВВО \У1$1О0ОМ 


Работа болышинства прикладных программ проходит в три этапа: 
подготовка к работе, собственно работа и, наконец, ее завершение. В 
нашем случае к подготовительному этапу можно отнести такие действия, 
как анализ существования файла данных и его (файла) подготовка к рабо — 
те. На этапе завершения мы должны обеспечить необходимые действия по 
сохранению файла. Все остальные действия относятся к среднему этапу. С 
учетом этого можно написать слелдующую простейшую программу: 


Ъед1п 
{Подготовить работу программы} 
{Выполнить необходимые действия} 
{Завершить исполнение программы} 
епа. 


Если Вы попытаетесь выполнить эту программу, ничего не произойдет 
— ведь мы еще никак не конкретизировали необходимые действия. Так 
обстоит дело в Турбо Паскале, но не так — в ТшБо У!9оп! Для любой 
прикладной программы 'Гитро У131оп сразу же создает некоторую мини-— 
мальную программную реализацию, которую Вы можете затем постепенно 
наращивать в ходе детализации программы. Вот начальный вариант про — 
граммы с использованием Тито У191оп: 


9зе$ Арр; {Используется модуль АРР библиотеки Тигро У151оп} 
\аг 
МосерооКк: ТАрр11са®1оп; 
Беда п 
Мосебоок.Тп1*; {Подготовить работу программы} 
Мобербоок.Воап; {Выполнить необходимые действия} 
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МосероокК. Попе {Завершить исполнение программы} 
епа. 


В этой программе объявляется использование стандартного для Тито 
\У1$1юп модуля Арр (от аррПсаНоп — приложение, прикладная программа). 
Такое объявление открывает доступ прикладной программе к мощным 
возможностям Тао \У1310оп. Чтобы использовать эти возможности, мы 
объявили переменную МойеБоок (поеБоок — записная книжка) типа 
ТАррПсаНоп. Как Вы вскоре заметите, на букву Т в Тишфо У\У1$1оп начи— 
наются идентификаторы объектов. Таким образом, № офеБоок — это эк- 
земпляр объекта ТАррПсаНоп, т.е. объединение данных (полей) и методов 
обработки этих данных (процедур, функций, конструкторов, деструкторов). 
В объекте ТАррПсаНоп предусмотрены методы шй, Кип и Попе. Вызов этих 
методов и составляет исполняемую часть нашей программы. Если Вы 
подготовите и запустите программу, на экране ПК появится изображение, 
показанное на рис.15.1. 


о ооикоаснох 


с 


Рис.15.1. Вид экрана для простейшей программы 


Аля выхода из программы необходимо, как это следует из надписи в 
левом нижнем углу экрана, нажать АЁ—Х или подвести к этой надписи 
указатель мыши (если, разумеется, Ваш ПК. оснащен этим устройством) и 
нажать ее левую кнопку. 

Как видите, даже простейшая программа «знает», как создать экран, 
распознает команду АЙ-—Х и может работать с мышью. Совсем не плохо 
для трех исполняемых операторов, не так ли? Такие возможности дос— 


й тупны потому, что в объекте ГАррИсаНоп предусмотрены соответствующие 


методы. В этом смысле использование объектов напоминает использованле 
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подпрограмм из библиотек. Олнако в отличие от подпрограммы любой 
объект имеет все необходимые ему данные. Говоря об объектах, я часто 
буду использовать такие слова, как «знает», «умеет», «может», подчеркивая 
тем самым главную отличительную особенность объектов от традиционных 
подпрограмм — их «разумность»: последовательное проведение в жизнь 
принципа инкапсуляции (объединения) данных и всех необходимых для их 
обработки методов придает объекту определенную независимость от 
других элементов программы; объекты как бы «живут» в программе своей 
независимой жизнью. 

Простейшая программа не может выполнять никаких других действий, 
кроме уже перечисленных, так как именно эти действия запрограмми — 
рованы в методах шЁ и Кип объекта ТАррПсаНоп. В ходе их выполнения на 
экране создается изображение, имеющее три зоны: верхняя строка, 
нижняя строка и вся остальная часть экрана. Верхняя строка обычно ис— 
пользуется для размещения опций главного меню (не забывайте, что Татро 
\1591юп — это оболочка для диалоговых программ!). Нижняя строка — 
строка статуса: в ней указываются так называемые командные клавиши, 
т.е. клавиши или комбинации клавиш, которые вызывают нужные дей— 
ствия без перехода к промежуточному диалогу. Вся остальная часть экрана 
составляет «рабочий стол» программы — сюда будут помещаться сооб— 
щения, здесь будут размещаться окна, «выпадающие» меню (меню 
нижнего уровня) и т.п. 


15.2. ФОРМИРОВАНИЕ СТРОКИ СТАТУСА 


Стандартный вид экрана, показанный на рис.15.1, можно изменять. 
Попробуем придать ему некоторый специфический для нашей программы 
вил. Например, заменим в строке статуса стандартное сообщение 


А1Е-Х Ех1Е 
на русифицированное 
А16-Х Выход 


Таким образом, нам необходимо модифицировать стандартное поведение 
объекта № \1ероок. Аля этого мы должны отыскать в типе ТАрр/саНоп ме-— 
тод, ответственный за созлание строки статуса. Если мы обратимся к 
прил.116, то обнаружим, что объект типа ТАррИсаНоп содержит методы шИ 
и ДРопе, с помощью которых создаются и уничтожаются экземпляры 
объекта, но в нем нет метода, ответственного за строку статуса. Однако из 
таблицы наследования нетрудно определить, что этот метод (ШИЗа$Гте) 
он наследует от своего родителя ТРгодгат. Как изменить работу метода? В 
рамках объектно-— ориентированной библиотеки для этого поступают 
следющим образом: объявляется объект — потомок от стандартного объек — 
та, поведение которого необходимо изменить, и в новом объекте опи-— 
сывается свой метод, ответственный за это поведение. 
Изменим программу следующим образом: 


Озез Арр, ОБ]есЕ$, Мепа$, Рх1уегз, У1е\мз; 
фуре 
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_ ТМ№МосерооК = оБзесЕе (ТАрр11са1оп) {Создаем объект-потомок 
от ТАрр]1саЕ Топ; 
Ргосеаиге Тп1Е5+афа$11пе; \У1х6аа1; {Перекрываем старый 
метод Гп1лЕ5ЕабизГлпе новым} 


Ргосеацге ТМовбеБооК. Тп1 Е З6аеа$11пе; 
{Описание нового метода, с помощью которого 
создается строка статуса} 


уагх 
В: ТВес®; {Границы строки статуса} 

Бед1п 

_  СекЕхеепе (В); {Получаем в В координаты всего экрана} 
В.А.У := ргеа(В.В.У); [{[Помещаем в В координаты строки 


статуса} 

{Создаем строку статуса: } 

Зфабса$11пе := Мем (Рб$абаз1пе, 1п1% (В, 

{Определяем один вариант строки статуса: } 

МембЕафеазреЕ (0, $ЗЕЕЕЕ, {Устанавливаем для этого варианта 
максимальный диапазон контекстной 
справочной службы} 

{Определяем единственную клавишу А]Е-Х:} 

МеибфабазКеу ('-А1{-Х- Выход', КРАТЕХ, спОц1\, 

МТЬ), {Нет других клавиш} 

№11) {Нет других строк статуса} 


)) 
еп; {ТМ№оЕероок. ТптТЕ5ЕаЕЁи$11 пе} 


(------------------- } 
уагх 

Мосероок: ТМобероок; {Изменен тип переменной!} 
Ъед1п 


МосерооКкК. Тп1; 
МосеБьоок.Вип; 
МосерооКк.ропе 
_епа. 


Как видим, программа сразу же усложнилась. Во—первых, в ней ис- 
пользуются идентификаторы, которые определены в других модулях Тито 
\15юп, — эти модули мы перечислили в предложении (0$е5. Во-вторых, 
нам потребовалось объявить новый объект Т№офебоок как потомок от 
объекта ТАррПсаНоп. Объект-— потомок наследует от своего объекта — 
родителя все поля и методы и при необходимости может их дополнять 
своими полями и методами, а также перекрывать методы родителя. Как раз 
для того, чтобы перекрыть унаследованный от ТРгодгат стандартный метод 
ШиЗа$Гпе, ответственный за создание строки статуса, нам и понадо-— 
билось объявление нового типа ТМойероок. Строка 


Ргоседаге 1п1Еб$6абиз11пе; \У1х®ца1; 
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в объявлении этого типа указывает, что новый объект будет пользоваться 
одноименным, но иным, чем объект-—родитель, методом. Возможность 
замены методов на одноименные, но с другим содержанием называется 
полиморфизмом. 

Процедура ТМ№оеБоок.тиЗюа$пе раскрывает суть нового метода. В 
чей используется обращение к методам Мемзюа5)еЁ и МезЗюащ$Кеу, с 
помощью которых создается динамический объект типа ТУаш$Ёте. 
Программа ТАррПсаНоп обращается к методам этого объекта для обслу— 
живания строки статуса. | 

Татро У1$1оп позволяет определять несколько вариантов строки статуса. 
Каждый вариант создается с помощью метода Меи$а$)е!. В зависимости 
от текущего состояния программы (от контекста программы) 'ТитЬо У\У1510оп 
автоматически помещает в строку статуса нужный вариант. Так как в 
нашей программе используется единственный вариант строки статуса, мы 
указали максимально возможный диапазон контекста программы при 
обращении к методу Мемю$ПеЕ 

С помощью метода М№еиЗеа$Кеу в строке статуса определяется оче-— 
редная командная клавиша. При обращении к методу сначала указывается 
текст, высвечиваемый в строке статуса, причем символом « » выделяется 
та часть сообщения, которая будет подсвечена в строке статуса другим 
цветом: таким способом в Тифо У1$1оп указываются командные клавиши. 
Идентификатор АБАПХ задает комбинацию клавиш, а стОий — связанную 
с ней команду. 

В программе объявляется переменная А типа ТКесЕ. С помощью такого 
типа переменных программист задает координаты прямоугольного участка 
экрана. Эта переменная необходима нам для указания того места на эк- 
ране, где будет помещено сообщение 


А1Е-Х Выход 


определяющее командные клавиши АЙ-Х. Аля правильного задания этих 
координат мы использовали два предложения: 


сесЕхеепс (В); 
В.А.У := ргеа(В.В.У); 


В первом вызывается стандартный метод Тафо У19юоп СеЕхжепё с 
помощью которого в К помещаются координаты доступной в данный 
момент части экрана. Во втором — номер той строки (строки статуса), 
куда будет выводиться сообщение. В Тифо У131оп тип ТВесЁ объявляется в 
виде следующей записи: 


фуре 
ТВесЕ = гесогха 
А: хесохА {Координаты верхнего левого угла} 
Х: ВуЕе; 
У: Вубе 
епа; 
В: гесога [Координаты правого нижнего угла} 


Х: Вуе; 


344 Глава 15 


У: Вузе 


Таким образом, второе предложение лишь уменьшает на единицу 
вертикальную координату самой нижней доступной строки и устанав— 
ливает полученное значение в поле К.А.У (это поле задает вертикальную 
координату верхнего левого угла прямоугольного участка). Заметим, что в 
Тагоо У19юоп минимальные координаты задаются значением 0, в то время 
как в стандартном модуле САТ Турбо Паскаля минимальные координаты 
имеют значение 1. 

Обратите внимание на характерный прием, широко используемый в 
Тао У1$10оп: при обращении к методам Ме ашз)еЁ и МетчашзКеу 
последним параметром указывается переменная типа Роййег. Внутри ме-— 
тодов эта переменная трактуется как ссылка на новый метод, что позво — 
ляет организовать цепочку последовательных определений. Вложенная 
последовательность вызовов заканчивается зарезервированной константой 
МП. указывающей на конец цепочки. Если бы мы, например, захотели 
добавить в строку статуса определение клавиши Е10, связав ее с закры— 
тием активного окна, мы могли бы использовать такую конструкцию: 


МембЕаеазреЁ (0, $ЕЕЕЕ, 
МеистафазКеу ('-А1&-Х- Выход', КЬАТЕХ, стОй1, 
МембфаазКеу ('-Е10- Закрыть окно', КЬЕ10, стС1Тозе, 
МТЬ)), {Нет других клавиш} 

МТ) {Нет других определений} 


Описанный пример позволяет нам сделать очень важный вывод; 


Чтобы модифицировать стандартное поведение 
объекта, необходим. :; создать объект-потомок от 
этого объекта и перекрыть в нем нужный метод. 


15.3. ФОРМИРОВАНИЕ МЕНЮ 


Вернемся к смысловой части нашего примера и подумаем о том, какие 
еще свойства следует придать программе. Поскольку мы предполагаем 
работу с файлом, можно включить в программу код, реализующий строку 
меню с опцией «Файл», связав с этой опцией такие действия, как открытие 
уже существующего файла данных и/или создание нового. Здесь же 
можно предусмотреть возможность альтернативного выхода из программы. 
Кроме того, в главное меню следует поместить еще одну опцию, назовем 
ее «Работа». Эта опция должна открыть доступ к содержательной части 
программы. С учетом сказанного программу нужно дополнить следующими 
строками: 


соп$Е 
{Команды для обработчиков событий: } 
спМогкК = 203; {Обработать данные } 
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спро5 = 204; {Временно выйти в ДОС} 
\1пСом1: ТСопмтапабее = [смбауе, спМогКкК]; {Множество 
временно недоступных команд} 


Эти строки следует вставить сразу после предложения 05е$; они оп- 
ределяют коды команд, которые будут затем использоваться для вызова 
соответствующих частей программы. Кроме того, объявление объекта 
ТМ№оеБоок нужно дополнить строкой 


фуре 
ТМосерооКк = обЗесЕ (ТАрр11сае1оп) 
Ргосеаиге Тп1ЕМепаВаг; \У1к®ечаа1; {Перекрываем станадартный 
метод Тп1ЕМепиВаг} 
епа; 


в которой перекрывается прежний метод шИМепиВаг, ответственный за 
формирование строки меню. И, наконец, в разделе объявлений программы 
следует поместить описание метода шИМепиВаг и видоизменить описание 
метода Иа $Ё те: 


Ргосе4ике ТМосероок. Тп1ЕМепоаВаг; 
{Создание верхнего меню} 


уаг 
В: ТВесЕ; 
Бед1п 
сесЕхееп® (В); | 
В.В.У := засс(В.А.У); {В - координаты строки меню} 
МепоВах := Мем (РМепоВахг, Тп1® (В, 
МемМепа ( {Создаем меню} 


{Первый элемент нового меню представляет собой 
подменю (меню второго уровня). Создаем его} 
МеизаБМепа ('^ЁК^/ Файл', ВсМоСопеехЕ, 
{Описываем элемент главного меню} 


МемМепд ( {Создаем подменю} 
МемТеем ( {Первый элемент} 
'-1-/ Открыть!, 'ЕЗ3', КЬЕЗ, смОреп, ВсМоСопеехк, 
МемиТеем ( {Второй элемент} 
'-2-/ Закрыть!,'Е2', КЬР2, смбауе, ВсМоСопфехе, 
МемтТеет ( {Третий элемент} 
'-3-/ Сменить диск','!'!,0, спСВапае)1г, псМоСопвехе, 
Мем11пе ( {Строка-разделитель} 
МемТЕеп ('-4-/ Вызов ДОС','',0, смро$$Ве11, 


псМмМоСопфехе, 
МеиТееп('-5-/ Конец работы'!,'А1*-Х!, 
КЬАТЕХ, смОч1,ВсМоСопеехф, 
№1.)))))) {Нет других элементов подменю} 
), 
{Создаем второй элемент главного меню} 
МеиТеем ('-И-/ Работа','', КЬЕ4, спМогКк, псМоСопЕехеё, 
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МТЬ) {Нет других элементов главного меню} 
)))) | 
еп; {ТМ№оЕероок. Тп1ЕМепиВаг} 
[------------------ } 
Ргосеаиге ТМосероок. Тп1Е 5$ абаз11пе; 
{Формирует строку статуса} 
уаг 


В: ТВесЕ; {Границы строки статуса} 
Ред 
сееЕхеепе (ВК); {Получаем в Е координаты всего экрана} 
В.А.У := ргеа(В.В.Уу); 
ЗсафизТ1пе := Меи (Рббаба$11 те, 
Тп1е (В, {Создаем строку статуса} 
№Меи5баеи$реЕ (0, $ЕЕЕЕ, {Устанавливаем максимальный 


диапазон контекстной справочной службы} 

МеибфтаечазКеу ('-А16-Х- Выход', КЬАТЕХ, спОц1, 
Меибсаео$Кеу ('-ЁР2- Закрыть', КЬЕ2, сибаухе, 
МеибфафазКеу ('-ЁРЗ- Открыть', КЬЕЗ, стореп, 
МемзЕаеазКеу ('-Г4- Работа', КЬЕ4, спМогк, 
МеиббаеоазКеу ('-Е10- Меню', КЬЕ10, спиМепа, 
мтГ))))), {Нет других клавиш] 

МТт,) {Нет других определений} 

)); 

215аЪ1еСоптапа$ (\М1пСом1) {Запрещаем недоступные команды} 

еп; {ТМ№оЕеБоок. ГТп1Е5ЕаёизГ1пе} 


В новом варианте программы мы продвинулись дальше по пути кон- 
кретизации ее действий. Если Вы запустите программу и нажмете клавиши 
АП-Е (вызов опции «Файл» главного меню), на экране появится изо -— 
бражение, показанное на рис.15.2. 

Определение опций меню во многом напоминает определение ко- 
мандных клавиш в строке статуса. Отличие заключается лишь в том, Что с 
любой опцией меню может быть при необходимости связана встроенная 
справочная служба. В нашей программе мы не используем эту возмож— 
ность для чего задаем стандартный идентификатор АсМ№оСощех{ (нет 
контекстно — зависимой справки) при описании каждой опции. 

Подобно клавишам строки статуса командные клавиши меню выде-— 
ляются символом « ». Заметим, что не имеет смысла назначать в качестве 
командных клавиш клавиши кириллицы, так как при их анализе 'Гиатро 
У\У131оп игнорирует коды 128...255. Если бы. например, мы задали в качестве 
командной клавиши для опции «Файл» клавишу «Ф», нажатие АЁ—Ф не 
вызвало бы развертывания подменю, связанного с этой опцией (каки в 
Турбо Паскале, в Тито У1$10оп опции главного меню вызываются комби — 
нацией АЁ- <клавиша>, а опции меню нижнего уровня — просто нажа— 
тием нужной командной клавиши). 
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Е Фаил: : МИ Работа —_.: 


17 Открыть > СЕ 
|. 2 Закрыть 


М! 3/ Сменить диск __ | 


Рис.15.2. Вид окна с развернутым меню опции Файл 


15.4. КОМАНДЫ 


Необходимо пояснить назначение вновь введенных констант стХХХХ. 
Это так называемые команды, точнее их коды (шифр). Сразу же замечу, 
что префикс ст в идентификаторах команд не является следствием ка— 
ких —либо требований со стороны Тито У1$10оп, просто он принят для 
предопределенных (стандартных) команд, таких как стОий и стС]ове. 
Вновь вводимые команды не являются предопределенными, при их опи-— 
сании я заимствовал стандартный префикс только по соображениям 
стилистики. | 

Что же такое команды 'Титро \151юп? Внимательный анализ предыдущего 
варианта программы показывает, что эти коды еще никак не используются, 
они понадобились лишь для синтаксически правильного обращения к 
стандартным методам инициации строк меню и статуса. В новом варианте 
программной реализации Вы можете вызвать любую опцию главного меню 
или нажать любую командную клавишу — это не приведет ни к каким 
последствиям: пока работает только команда АН-Х, завершающая работу 
программы, и клавиши Е2, Е3 и Е10. Происходит это потому, что эти 
клавиши мы связали со стандартными командами стОий, стбауе, стОреп 
и стМепи и обрабатываются они где-то внутри Тито У1$10оп. Новые 
команды не известны системе, и их обработку мы должны взять на себя. 

Как мы увидим дальше, в Тао \У19оп есть средства контроля ко— 
мандных клавиш. Эти средства определяют факт нажатия на клавишу с 
помощью генерации кода соответствующей команды, который (код) будет 
в этом случае передан нашей программе. Таким образом, обработка команд 
заключается в расшифровке получаемых от Тигро \УМ1Яюоп кодов и передаче 
управления соответствующим частям программы. 
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Для шифровки команд в Гигфо У13оп используется 16 — разрядное слово, 
что позволяет определить до 65535 различных команд. Некоторые из этих 
кодов зарезервированы для использования внутри 'ТГитро У131оп, остальные 


доступны программисту: 


Код команды ° Зарезервировано Можно запретить 


м ж | 

ОРС ОИ ЗИОИ О-ЕЗОИИИ 
56...99 | Жо | о | 
1000...65535 | 1 | Не | 


Команды с кодами от 0 до 255 при необходимости могут быть временно 
запрещены, остальные команды запретить нельзя — вот почему исполь— 
зуется два диапазона доступных для программиста кодов команд. Вре— 
менное запрещение команд связано с тем очевидным свойством диало— 
говых программ, что отнюль не любая команда может исполняться в ка- 
ждом возможном состоянии программы. Например, бессмысленно ис-— 
пользовать команлу «Закрыть файл», если файл еще не открыт. Наоборот, 
если файл уже открыт, команда «Открыть файл» может стать временно 
недоступной пользователю. Механизм маскирования (временного за— 
прещения) команд позволяет избавиться от многочисленных проверок 
контекстуальной корректности тех или иных команд: программист может 
их запретить впредь до наступления какого —либо события, а запрещенные 
команды игнорируются средствами Тао \У19юоп и в программу пользо— 
вателя не передаются. 

В нашей программе имеет смысл запретить команды стбауе и стИ/о!гК 
до тех пор, пока пользователь не откроет нужный файл с данными. Запрет 
команд достигается обращением к стандартной процедуре 
П15аМеСоттапа$ (см. предыдущий вариант программы). Указанные в 
обращении к ней команды задаются в виде множества кодов (мощность 
любого множества в Турбо Паскале не может превышать 256, вот почему 
могут быть запрещены только первые 256 команд) и становятся недос— 
тупны впредь до обращения к процедуре ЕпаШеСоттапа$ (разрешить 
команды). 

Запрещенные опции меню (как и временно недоступные командные 
клавиши) выделяются на экране оттенком (пониженной яркостью). 


15.5. СОБЫТИЯ И ИХ ОБРАБОТКА 


Весьма важным принципом Тотро У1$1юп является принцип отделения 
процесса создания видимых изображений от процесса обработки данных. 
Это означает, что все действия по созданию разнообразных окон, меню и 
прочих видимых элементов можно осуществлять не заботясь о тех ко— 
мандах (действиях пользователя), которые булут связаны с ними. Именно 
так мы поступили при определении меню и строки статуса — коды команд 
лают возможность распознать соответствующие действия пользователя, 
однако сами эти действия пока еще никак не раскрыты. И наоборот, мы 
можем разрабатывать части программы, ответственные за обработку 
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действий пользователя, не связывая прямо эти части с созданием нужных 
видимых элементов. 

Таро У!13юп поддерживает два возможных способа действия пользо— 
вателя — с помощью клавиш клавиатуры и с помощью мыши. Любое 
такое действие пользователя с точки зрения ТитБо У151оп приводит к по- 
явлению события, т.е. к созланию небольшого информационного пакета, 
описывающего вновь возникшую ситуацию. События распространяются от 
одной части программы к другой до тех пор, пока не обнаружится под— 
программа, ответственная за обработку данного события. Эта подпро— 
грамма обычно очищает информационный пакет и таким образом бло-— 
кирует дальнейшее перемещение события. 

Пожалуй, именно механизм событий кардинально отличает Тито У1510п 
от других библиотек Турбо Паскаля. На первых порах это может вызвать 
определенные трудности, связанные с отладкой программ. Принцип не- 
зависимости обработки событий от процесса создания видимых элементов 
приводит фактически к ноявлению двух параллельных процессов в рамках 
одной программы: процесса создания видимых элементов и процесса об— 
работки событий. Говоря о программах Тито У\У131оп, следует помнить, что 
эти программы управляются событиями. Их трассировка (прослеживание 
работы) в среде Турбо Паскаль обычно достигается установкой и ис- 
пользованием контрольных точек. 

Подпрограммы, ответственные за обработку действий пользователя, 
называются обработчиками событий. Любой стандартный для Тиго У\1$1оп 
объект, обеспечивающий создание видимого элемента, имеет собственный 
обработчик событий (виртуальный метод Напа!еЕуеп!), который Вы можете 
перекрыть своим собственным методом, если Вас не устраивает стан-— 
дартная реакция объекта на то или иное событие. Существует такой метод 
и в объекте ТМ№оеБооК. По умолчанию этот объект использует обработчик 
событий, унаследованный им от объекта —родителя ТАррПсаНоп. Стан-— 
дартный обработчик знает, как реагировать на команды стОий и стМепи, 
но ему не известны новые команды стИ/огк, стОрепЕИе и другие. Чтобы 
программа смогла правильно обработать эти команды, мы должны пере-— 
крыть стандартный метод Нап ]еЕуепЕ объекта ТМоеБоок новым. Добавим 
в описание объекта ГМо{еБооК еще одну строку 


фуре 
ТМосерооК = оБЗесе (ТАрр11са*1оп) 


Ргосеасге Напа1еЕуерк (маг Еуеп®: ТЕуеп®е); У\У1г6ча1; 
епа; 


и поместим в раздел объявлений текст новой подпрограммы: 


Ргоседцхе ТМосероок.Напа1еЕуеп® (маг Еуеп®: ТЕуеп®); 
{Обработчик событий программы} 
Бед1п {ТМ№оЕероок.Напа1еЕуепЕ} 
Тпре’г16еа Напа1еЕуеп* (Еуеп®); {Обработка стандартных 
команд стОи1Ё и стМепи} 
1Е Еуепе.ИпаЕ = е\хСомтапа %Беп | 
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сазе Еуепе.Соттапа о 
{Обработка новых команд: } 


стОреп : ЕР11еОреп; {Открыть файл} 

стбауе : Е11ебауе; {Закрыть файл} 

сиСрапдер1г: Свапаер1г; {Сменить диск} 

стр0551е11 ; 205Са11; {Временный выход в ДОС} 

СШИогкК : МогКк; {Обработать данные} 
е1зе 

ех1 {Не обрабатывать другие команды} 
епа; 
С1еагхЕхуеп® (Еуеп®) {Очистить событие после обработки} 


епа; {ТМ№овероохк.Напа]еЕуепЕ} 


Чтобы новый вариант программы можно было выполнить следует 
предусмотреть «заглушки» для несуществующих пока процедур ЕИеОреп, 
ЕЦе5ауе и т.д. Например: 


Ргосеаиге Е11е0реп; 
Ъед1п 
епа; 


Поведение вновь созданного варианта программы внешне ничем не 
отличается от предыдущего: также будут созданы меню, строка статуса и 
основное поле экрана, программа по — прежнему будет распознавать ко — 
манды АП-Х и Е10. Однако теперь она будет реагировать и на новые 
команды. Чтобы убедиться в этом, установите контрольные точки в за- 
тглушках РИеОреп и ЕЙебауе и запустите программу вновь: нажатие на 
клавишу ЕЗ вызовет останов в контрольной точке РИеОреп — ведь именно 
с этой клавишей мы связали команду стОрепл в процедуре шиЗаш$Ё пе, в 
то время как нажатие на клавишу Ё2 не приведет к срабатыванию кон-— 
трольной точки РиИефауе, поскольку команда ст5ауе пока еще запрещена и 
обработчик Нап еЕуепЕ ее просто не «увидит». 


Чтобы использовать нестандартные команды меню 
или строки статуса, мы должны перекрыть обра-— 
ботчик событий программы, в новом обработчике 

выделить из потока событий команды и распо- 
знать их коды. 


Чтобы стали более понятны ‘действия обработчика событий, отметим, 
что тип ТЕуепЁ в Тифо У\У191оп определен как запись такого вида: 


фуре 
ТЕуепе = гесогха 
Иваё: Мога; {Определяет тип события] 
сазе Мога о {"Пустое" событие} 
е“Моцзе: ( {Событие от мыши: } 
ВаеФопз: Вубе; {Состояние кнопок} 


РоцЬ1е: Воо1еап; {Признак двойного 
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нажатия кнопки мыши} 

ИВеге: ТРо1пе); {Координаты курсора мыши} 
еуКеуромп: ( {Событие от клавиатуры: } 
сазе Тптедег оЁ 

0: (КеуСоае: Мога); {Код клавиши} 

1: (СпагСоае: Вуее; 

5сапСоае: Вуёе)); 
е\Меззаае: ( {Событие-сообщение: } 
Соптапа: Мога; {Код команды] 
сазе Мог оЁ 


0: (ТпЕРоР®г: Ро1пеег); 
1: (ТоЕоЪопа: ГопаТпе); 
2: (ТрЕоЙИога: Мога); 

3: (ТпЕоТле: Тпеедег); 
4: (ТпЕоВуее: Вусе); 

5: (ТпЕоСВахг: Сцаг)); 


епа; 


Стандартная маска еуСоттап позволяет выделить из потока событий 
только те, которые связаны с передачей команд между различными об-— 
работчиками событий. Именно таким способом стандартный обработчик 
ГАррПсаНоп.НапЙеБуепЕ сообщает новому обработчику ТМ№оеБоок.Напе- 
Еуе[ о возникновении события, связанного с вновь определенной ко-. 
мандой. Если бы мы не предусмотрели вызов стандартного обработчика с 
помощью оператора 


ТлВег1феа Напа1еЕуерЕ (Еуеп*); 


нам пришлось бы самим анализировать положение мыши или нажатую 
клавишу и интерпретировать их как соответствующие команды. Вклю — 
чение вызова ТАррИсаНоп.Нап ]еЕуепЕ в тело нашего обработчика событий 
избавляет нас от этой рутинной работы. 

В конце обработчика мы вызвали стандартную процедуру СеагЕуепь с 
помощью которой в переменную ЕуепЁ помещается сообщение № отт9д 
(«пустое» событие). Это событие игнорируется всеми обработчиками, так 
что программа будет повторять проверку состояния мыши и клавиатуры до 
тех пор, пока не произойдет нового события. Фактически тело процедуры 
ТАррПсаНоп.Кип (см. раздел исполняемых операторов нашей программы) 
состоит из бесконечно повторяющегося цикла проверки мыши и клавиа— 
гуры и передачи событий по цепи обработчиков событий. После получения 
любого события обработчик должен либо обработать это событие и очи- 
стить переменную ЕуепЬ либо просто вернуть управление обработчику 
верхнего уровня, если эта команда не предназначена для него, либо, на 
конец, сформировать и передать новое событие для реализации команд, 
которые распознаны им, но которые он выполнять не умеет или не дол- 
жен. 
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15.6. ПРОГРАММИРОВАНИЕ ДИАЛОГОВЫХ ЗАПРОСОВ 


В обработчике событий ТМоеБоок.НапеЕует мы предусмотрели вы-. 
зовы нескольких процедур, с помощью которых реализуются конкретные 
действия программы. Настала пора запрограммировать эти действия. 

Начнем с процедуры ЕИеОреп. Ее задача — выбрать один из возможных 
файлов с данными и подготовить его к работе. Конечно, программу можно 
было бы сделать менее гибкой, раз и навсегда «привязав» ее к какому -—то 
одному файлу, скажем, с именем поеБооК.аа{. Но даже и в этом случае 
следует решить проблему с местоположением файла данных, а также 
определить, что должна делать программа, если нужный файл не найден. 
Наша программа будет весьма гибкой в этом отношении: она позволит 
указать интересующий нас файл мышью или клавишами курсора, либо 
ввести ‘имя файла с помощью клавиатуры или взять его из буфера ранее 
введенных имен. Иными словами, поведение нашей программы будет в 
точности повторять поведение среды Турбо Паскаль в момент нажатия на 
клавишу РЁ3. 

Если Вы когда — либо программировали подобные действия в Турбо 
Паскале, Вы по достоинству оцените простоту их реализации в Тито 
\У131оп: 


Ргоседике Е11е0реп; 
{Открывает файл данных} 
уаг 
РЕ: РЕ11е01а1оа; {Диалоговое окно выбора файла} 
СопЕго1: Мога; 
$: Раб п5ег; 
Ъедап | 
{Создаем экземпляр динамического объекта: } 
М№ем (РЕ, 1п116('*.аа®', 'Выберите нужный файл:', 
'Имя файла', ЕаАОрепВае оп, 0)); 
{С помощью следующего оператора окно выводится на экран 
и результат работы пользователя с ним помещается в 
переменную СопЁго1:} 
СопЕго1 := РезКТор^.Ехес\У1ем (РЕ); 
{Анализируем результат запроса:} 
сазе СопЕго] оЕ 
5$а019.смЕ11еОреп, спок: 


Ьед1п [Пользователь указал имя файла:} 
РЕ^.СефЕ1]еМаще ($); (5 содержит имя. файла} 
"НИ ЗВ ° {Открыть файл} 
епа; 
еп; {сазе СопЕЁго1} 
215розе (РЕ, Попе) {Уничтожаем экземпляр} 


епа; {ГР1]еОреп} 


Для реализации этого фрагмента необходимо указать имя модуля 541019 
в предложении 0О5ез — в этом модуле описан тип РЕИе 1109 и преду-— 
смотрены все необхолимые методы для работы с ним. Кроме того, в про — 
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грамме используется переменная 5 типа Рай. Этот тип описан в модуле 
РО$ — сошлитесь также и на него. Сделайте нужные изменения в тексте 
программы, не раскрывая пока сущности действий 


{Открыть файл} 


запустите программу на счет и нажмите клавишу Ё3 — экран приобретет 
вид, показанный на рис.15.3. 


НОТЕВООК . ОЯТ 
..\ 


Рис. 15.3. Диалоговое окно выбора файлов 


Тип РЕЦе[ГЛа10д — это указатель на объект ТЕИе01о1049, создающий и 
обслуживающий стандартное диалоговое окно выбора файлов. Все дей-— 
ствия по созданию и использованию диалогового окна, показанного на 
рис.15.3, реализуются двумя операторами: 


Мем (РЕ, 1016('*.Чаё', 'Выберите нужный файл:', 
'Имя файла', ЕАОрепВие оп, 0) ); 
СопЕго1 := БезКТор^.ЕхесУ1ем (РЕ); 


Первый оператор инициирует новый экземпляр объекта ТЁЕИеО1а1од. Гри 
строковых параметра обращения к конструктору ШИ этого объекта задают, 
соответственно, маску выбираемых файлов (“.4а"), заголовок диалогового 
окна ('’Выберите нужный файл:) и заголовок окна ввода (“Имя файла’). 
Параметр @ОрепВиИоп указывает на необходимость включить в диало— 
говое окно кнопку Ореп. Последним параметром задается идентификатор 


протокола ввода. Доступ к этому протоколу открывается кнопкой [1] 
справа от окна ввода. Сам протокол хранится в куче в виде последова-— 
тельности вволдившихся ранее текстовых строк. Идентификатор протокола 
ввода позволяет при необходимости использовать один и тот же протокол 
в разных диалоговых окнах. 

Второй оператор 


12—1411 
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СопЕго1 := БезкКТор^.ЕхесуУ1ем (РЕ); 


помещает вновь созданное окно в основное поле экрана программы 
(ссылка ПГезКТор^) и инициирует диалог с пользователем. Результат 
диалога возвращается в переменной Сопйо]| значение этой переменной 
анализируется оператором 


сазе СопЕго] оЕ 


епа; 


Если СопИо] содержит коды команд стОК или стЕЦЙеОреп, то с по- 
мощью метода Се ИеМате объекта ТЕИе1о]0од в переменную 5 записы — 
вается полное имя файла (с предшествующим путем)!. Перед выходом из 
процедуры ЕШеОреп экземпляр объекта  ТЕРИеГа]оу уничтожается 


(удаляется из кучи) обращением к деструктору Допе. 
По описанной схеме в Титро \У1$оп создаются и используются любые 


другие диалоговые окна. 


Для реализации диалогового запроса необходимо 
создать диалоговое окно и с помощью функции 
Ехес\1еи объекта-владельца (программы) ини- 

циировать диалог с пользователем. Результат, 
возвращаемый этой функцией, будет содержать 
выбранную пользователем команду. 


Чтобы запрограммировать действия, связанные с открытием файла, 
следует вначале решить какие именно данные он будет содержать. На-— 
помню, что мы разрабатываем диалоговую программу управления 
«записной книжкой». Структура типичной записи в такой книжке состоит 
из трех полей: имя, телефон, адрес. Учитывая это, будем считать, что 
данные в файле хранятся в виде следующих записей: | 


соп$е 
ТМаше = 25; {Длина поля Мате} 
ГРВопе= 11; {Длина поля РПопе} 
ТАаЧхг = 40; {длина поля Аааг} 
фуре 
РафаТуре = хесоха {Тип данных в файле} 
Маме : ЗЕгала [1Мапе]; {Имя} 
РВопе: $Ех1па [ТРропе]; {Телефон} 
Аааг : З&гара [ТАааг | {Адрес} 
епа; 


1 В методе ТЕ11ер1а1од.беег11еМапе (уаг Мате: РаепбЕг) параметр обращения 
должен иметь тип Ра 5$!х. Этот тип определен в модуле РО$, — вот почему нам понадобилось 
сослаться на этот модуль в предложении Оез. Если указать компилятору на необходимость 
смягчить проверку строковых типов (директива компилятора {$У—}, то при обращении к 
Се{ЕЙеМате можно использовать переменную любого строкового типа, в том числе $%+1п9: _ 
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Поместим эти строки в начале программы, а перед описанием проце -— 
дуры ЕЙеОреп вставим определения следующих глобальных переменных: 


уагх 
РафаЕ11е: #11е оЁ РафаТуре; [Файловая переменная} 
ОрЁЕ11еЁЕ : Воо1еап; {Флаг открытого файла} 


Дополним текст процедуры РЙеОреп такими строками: 


сазе СопЕго1 оЕ 
35$а01а.спЕ11еОреп, спок: 
Ъед1п 
РЕ^.СефЕ11еМапе ($); 
А$51ап (рафаР11е,$); {Отсюда начинаются новые строки} 
{$т1-} 
Везет (РафаЁЕ1]1е); 
1Е ТОВеза16 <> 0 &Веп 
Вемг1{е (БабаЁ1]1е); 
ОрЕ11еЕ := ТОВезо1%=0; 
{$1+} 
1Е ОрЕ11еЕг ЕВеп 
Бед1п 
01 5аф1еСомтапаз (И1пСот2); 
Епаф1еСомтапа$ (№1пСом1) 
епа | 
епа; 
епа; 


С помощью оператора Х!5аМеСоттапа$ мы временно запрещаем набор 
команд, указанный в константе ИЙтСот2. Эта константа в нашем случае 
должна содержать команду стОреп; ее определение нужно включить сразу 
за определением константы ИЙЛтСот1: 


соп$5е 
И1пСом1: ТСотмапабее 
И1пСом2: ТСоттапабе® 


[спбауе, спМогК]; 
[спОреп]; 


Обращение к процедуре ЕпаМеСоттапа$ разрешает использовать 
команды ст5ауе и стИ/о/кК. 


15.7. ИНКАПСУЛЯЦИЯ НОВЫХ ПОЛЕЙ И МЕТОДОВ 


При попытке откомпилировать полученный вариант программы Турбо 
Паскаль сообщит о неизвестном идентификаторе ПО{5аМеСоттапа$. На 
первый взгляд это кажется странным — ведь аналогичное обращение в 
обработчике событий ТМоеБоок.НапеЕуегЕ не вызывало проблем! Все 
дело в том, что мы работаем с объектами, а следовательно, здесь очень 
важным становится контекст программ. Обработчик ТМоеБоок.Нап]еЕуещ 
— это метод объекта ТМоеБооК, который унаследовал от своих родителей 
многие свойства, в том числе и метод Г5аМеСоттапа$. Процедура 
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ЕЦеОреп не является потомком объектов Титфо У151юп и не имеет доступа к 
их полям и методам. 


В ТифФо \У1$10п все новые процедуры обычно ин- 
капсулируются в объекты, если в них необходимо 
получить доступ к специфическим средствам этих 
объектов. 


Поскольку процедура РЙеОреп вызывается из обработчика событий 
объекта Т№ 4{еБооК, нам следует включить ее в виде нового метода этого 
объекта: 


фуре 

ТМоЕерооКк = оБЗесЕ (ТАрр11са&1оп) 
Ргосеаиге Е11е0реп; 
Ргосеаиге Е11ебауе; 
Ргоседихге СвапдеП1г; 
Ргосеачее 1005Са11; 
Рхгосеаиге МогКк; 

епа; 


В этом фрагменте мы инкапсулировали в объект все методы, исполь — 
зуемые обработчиком событий. Разумеется, необходимо соответствующим 
образом изменить заголовок процедуры ЁРИеОреп, поскольку она теперь 
стала методом объекта ТМоеБоок: 


Ргоседихге ТМокероок.Е11еОреп; 


Аналогичным образом следует изменить и заголовки других инкапсу— 
лированных процедур. Теперь трансляция пройдет успешно, а после от- 
крытия файла станет недоступна команда Е3. 

Тексты двух других новых методов объекта ТМ№оеБооК не нуждаются в 
особых комментариях: 


Ргосеааке ТМофсерооКк.Е11ебауе; 
{Закрывает файл данных} 
Бедап 
С1озе (РафаЕ11е); 
ОрЕ11еЕ := Еа1зе; 
Епаб1еСоттапа$ (И1пСот2); {Разрешаем открыть файл} 
21 заЪ1еСоптапа$ (№М1пСом1) {Запрещаем работу и сохранение} 
епЯ; {ТМ№оЕеБоок.Е11ебауе}] 


Ргосеачге ТМосерооКк.Свапаер1т; 

{Изменяет текущий каталог} 

таг 
РО: РСНО1г01а1оа; {Диалоговое окно смены каталога/диска} 
Соп&гоь: ИМога; 

Ьед1п 
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Мем (РО, Тп1® (сЯМ№огва1,0)); _ ‚[Создаем диалоговое окно} 


Сопего1 :;= РезКТор^.ЕхесУ1ем (РО); {Используем окно} 
СВО: г (РО^.01гТпра*^.Баба^}); {Устанавливаем 

новый каталог} 
215розе (РО, Ропе) {Удаляем окно из кучи} 


еп; {ТМобероок.Срапдер1г} 


Несколько слов по поводу реализации процедуры ТМ№оеБоок.Срапдерих. 
В ней используется объект ТСАДИО1 109, входящий в модуль 5019. С 
помощью этого объекта создается диалоговое окно, позволяющее выбрать 
новый диск или каталог. После создания и использования экземпляра 
объекта ТСАРиП1а]04д в его поле 


01:Тприе^.Рафа^ 


устанавливается строка типа РаШ5И, залающая новый каталог (и, возмож — 
но, новый ДИСК). 

Чуть сложнее обстоит дело с процедурой РО$Са[Й которая должна 
реализовать временный выход в ДОС. Дело в том, что перед выходом 
необходимо сохранить в куче текущее состояние программы, а после 
возврата нужно восстановить состояние программы, в том числе и вид 
_ экрана. Чтобы реализовать имеющиеся в Тигоо У1$1юоп средства сохранения 
и восстановления программы, в предложение И5ез необходимо добавить 
ссылку на модуль Метоту. Вот текст метода ГТМоеБоок.РО5$Са!: | 


Ргосеацге ТМосебоок.рО5$Са11; 
{Временный выход в ДОС} 


соп5е | 
ЕхЕ ='Для возврата введите ЕХ1Т в ответ'+ 

-- ' на приглашение ДОоС...!; 

Ьед1п | 
РопеЕуеп® $; | {Закрыть обработчик событий} 
Ропеу\У1аео; {Закрыть монитор экрана} 
РопеМемогу; {Закрыть монитор памяти} 
ЗеЕМемТор (НеарР®г); {Освободить кучу} 
Их1се!л (6х%е); {Сообщить о выходе} 
эмарУесеог$; {Установить стандартные векторы} 


{Передать управление командному процессору ДОС:} 
Ехес (СеЕЕпу ('СОМ5ЗРЕС'),'!'); 
{Вернуться из ДОС:} 


ЗмарУес®огз$; {Восстановить векторы} 
ЗеЕМетТор (НеарЕпа); {Восстановить кучу} 
Тп1ЕМепоку; {Открыть монитор памяти} 
Тп1Е\У1аео; {Открыть монитор экрана} 
Тп1ЕЕуепе$; {Открыть обработчик событий} 
Тр1Ебу5ЕЕгоЕ; {Открыть обработчик ошибок} 
Веагачм {Восстановить вид экрана} 


еп; {1005Са11} 
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Процедуры ДопеХХХХ завершают работу отдельных частей Тито 
\У131оп, а процедуры ШИХХХХ осуществляют обратные действия. С по- 
мощью процедуры 5е МетТор в ДОС передается информация о факти-— 
чески используемой динамической памяти (по умолчанию программе 
предоставляется вся доступная память). Этот вызов освобождает неис— 
пользуемую в данный момент часть кучи для размещения в ней ко- 
мандного процессора СОММАМО.СОМ. После возврата из ДОС вызов 
5е!МетТор используется еще раз — для того, чтобы зарезервировать за 
программой всю ранее выделенную ей память. Процедура Кейгаи вос— 
станавливает все видимые элементы экрана. 


15.8. СОЗДАНИЕ И ИСПОЛЬЗОВАНИЕ ГРУПП 


Пора заняться основной содержательной частью нашей программы — 
процедурой У’огк. Прежде всего следует продумать способ взаимодействия 
пользователя с данными (интерфейс пользователя). От удачного выбора 
интерфейса во многом зависит успех разработки диалоговых программ: 
неудобный способ доступа, связанный с необходимостью ввода каких — 
либо команд или ответов на многочисленные вопросы, надолго отобьет у 
пользователя всякое желание работать с программой. Татро У1$0оп пре- 
лоставляет в Ваше распоряжение все необходимые средства для разра— 
ботки современного объектно — ориентированного диалога. В ходе такого 
диалога пользователь видит на экране объекты, о которых идет речь он 
может указать на любой объект и выбрать те действия, которые нужно 
осуществить над ним. 

При работе с электронной записной книжкой хотелось бы, чтобы на 
экране появилось сразу несколько записей, отсортированных в алфа-— 
витном порядке. Пользователь должен иметь возможность «листать» 
книжку, отыскивать в ней нужную запись, добавлять новые и исключать 
ненужные записи, редактировать их (вносить изменения). Таким образом, 
ядром диалога должно стать окно с текстом. При необходимости поль- 
зователь может смещать текст в окне в ту или иную сторону, перемещать 
само окно относительно границ экрана, менять его размеры. Все эти 
возможности типичны для многочисленных текстовых редакторов, систем 
программирования, систем управления базами данных и т.п. 

Для реализации этих действий в Титфо У1$91оп предусмотрен специ-— 
альный объект ТИЛпаот, экземпляры которого отображаются на экране в 
виде прямоугольного окна с рамкой и стандартными кнопками изменения 
размера и закрытия окна. Попробуем создать такое окно в нашей про-— 
грамме. Для этого изменим текст процедуры И/огК следующим образом: 


Ргосеааге ТМосебооКк.МокКк; 
[Работа с данными} 
уаг 
В: ТВесс; 
Ьед1п 
В.Азз1ап (0,0,80,23); 
РезКеор^.Тпзег® (Мем (РИ1паом, Тп1®°(В,'',0)) 
епа; {ИЙогк} 
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После запуска программы нажмите клавишу 23, укажите в диалоговом 
окне имя несуществующего файла (файл данных пока еще не создан), 
нажмите клавиши Ешег и Е4 — экран приобретет вид, показанный на 
рис.15.4. 


Я1{-Х Выход _Р2 Закрыть _Е3 Открыть Е4 Работа _Г18 Меню 
Рис.15.4. Окно просмотра данных 


Если Ваш ПК оснащен устройством ввода типа мышь. Вы можете пе 
ремещать это окно по экрану (надо «схватить» мышью верхнюю рамку 
окна, Т.е. подвести к ней указатель мыши, нажать левую кнопку и, 
удерживая кнопку нажатой, перемещать мышь}, изменять его размеры 
(«схватить» правый нижний угол), использовать стандартные кнопки из— 
менения размера (справа на верхней рамке) и закрытия окна (слева). 
Ничего другого окно не умеет. А как загрузить в него текст? Как получить 
хорошо знакомые по среде Турбо Паскаль полосы — указатели и управлять 
с их помощью положением текста? Для этих целей можно было бы ис- 
пользовать объект ТосгоЙег, представляющий собой окно с текстом и с 
двумя полосами — указателями. Однако по умолчанию такое окно не имеет 
‚рамки, а потому не может изменять своего размера, в нем нет стандартчых 
кнопок изменения размера и закрытия окна. Таким образом, и объект 
ГосгоЙег не решает всех проблем. Каков же выход? Нужно создать новый 
объект, объединяющий в себе свойства и ТИ/тао", и Тосгойег! В терминах 
Гигфо \У1$1оп такие составные объекты называются группами. 

Введем в программу следующий объект: 


фуре 
РИогхКМ1п =^ТИогКИ1п; 
ТИогКМ1п = оБЗесе (ТИзпаом) 
СопзЕкасвог Тп1{(Воцпаз: ТВес®); 


епа; 
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Новый объект является потомком ТИЙЛпаои и, следовательно, наследует 
все свойства родителя, в том числе рамку и способность перемещения по 
экрану. Дополнительные свойства ему должен придать новый конструктор 
ТИогкИшп.ШиИ, которому мы в качестве параметра передаем начальное 
положение и размеры создаваемого окна: 


СопзЕгисвог ТМогКИ1п.1Тп16 (Воипа$: ТВес®); 
{Создание окна данных} 


уаг 
Н$,\У5: Р5сго11Ваг; {Полосы-указатели} 
Тпеег1ог: Р$сго11ех; {Указатель на 
управляемое текстовое окно} 
Бед1п 
ТИ1паом. Тп1® (Воцпа$,'',0); {Создаем новое окно с рамкой} 
СеЕСс11рВес® (Воцпаз); {Получаем в ВОИМО$ координаты 


минимальной перерисовываемой 
части окна} 
Воцпа$.Сгом (-1,-1); {Устанавливаем размеры 
окна с текстом} 
{Включаем стандартные по размеру и положению 
полосы-указатели: } 
У5 := обапаага$сго11Вахг ($5УегЕ1са1+5ЮНапа1еКеуВоакга); 
Н5$ := ЭЗ6апдахгЯ$сго11Вахг ($ Ног12оп$а1+зоНапа1еКеуВоага); 
{Создаем текстовое окно:} 
Тпбегтог := Мем (Р5сго11ег, 1116 (Воцпаз, Н$, \У5)); 
Тизегк® (Тпбег1ог) {Включаем его в основное окно} 
епа; (ТМогкИ1п.Тп1Ё} 


С помощью вызова процедуры Се СПрКесЕ мы получаем размеры ми- 
нимального прямоугольника, который следует обновлять при любых пе 
ремещениях окна или изменениях его размера. Такой вызов позволяет до 
минимума сократить время вывода. Процедура Воипа$.Сгом изменяет 
вертикальный и горизонтальный размеры прямоугольника Воипа$: при 
положительном параметре соответствующий размер увеличивается, при 
отрицательном — уменьшается. Параметры —1,—1 учитывают рамку ос— 
новного окна. Функция Запаага$сгоПВаг создает указатель на управ— 
ляющую полосу стандартного размера. При обращении к ней параметр 
$6 УегИса1 (5ЬНоп2оп®ю]!) определяет положение полосы, а параметр 
56НапЙеКеуБоа!А разрешает использование клавиатуры для управления ею 
(если этот параметр не включить полоса будет управляться только с 
помощью мыши). Наконец, процедура 15егЁ включает вновь созданное 
окно ТэсгоЙВаг в основное окно ТИ/Лпаот’ так что теперь оба окна будут 
функционировать как одно целое. 


Аля создания группы необходимо в объект- 
потомок от ТОгоир (обычно - это объект ТИшаом 
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или потомок от него) вставлять нужные элементы 
с помощью метода шем. 


_ Осталось лишь нужным образом изменить процедуру И’о!Ё: 


Ргоседаге ТМосеооКк.МокКк; 
{Работа с данными} 


у\уагх 

В: ТВесЕе; 

РМ: РИохКИ1п; 
Бед1п 


В.Азз1апт (0,0,80,23); 
РМ := М№Меми (РМо’гКИ1п, Тп16(В)); 
РезкКТор^.Тпзег* (РИ) 

еп; {Иохгк} 


Если исполнить подготовленную таким образом программу, на экране 
появится изображение, показанное на рис.15.5. 


й1Х Выход Г2 Закрыть ЁЕ3З Открыть Е4 Работа 


Рис.15.5. Окно с полосами прокрутки 


15.9. ВЫВОД, ТЕКСТА 


По сравнению с рис.15.4 мы добились немногого, ведь пока еще не 
решена главная проблема — вывод нужного текста. Разумеется, в Вашем 
распоряжении всегда имеется процедура И/’КИТЕЁ №, однако вывод текста «в 
лоб» с помощью этой процедуры практически никогда не используется в 
"ГитЬо У1$1юп, так как в этом случае выведенный текст не будет связан с 
окнами. 

В объекте ТосгоЙег для вывода текста предусмотрен абстрактный метод 
Ргау. Абстрактным он называется потому, что не выполняет никакой 
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полезной работы. Однако именно к этому методу обращается обработчик 
событий объекта ТосгоПег всякий раз, когла понадобится обновить на 
экране вид окна. Чтобы объект выполнял все заложенные в него функции, 
нам необходимо перекрыть этот метод новым. Мы уже знаем, что для 
этого нужно объявить новый объект: 


фуре 

РТпеег1ог =^ТТпфег1ог; 

ТТпреехг1ок = оБдесе (Т5сго11ехг) 
СопзЕгасвог 1Тп16(учахг Воцпа$: ТВесЕ; 

Н$,\Уб: Рбсго11Ваг); 

Ргоседиге ПОгам; \У1г6па1; | 
Ргосеаиге КеааЕ11е; 

епа; 


Мы перекрыли абстрактный метод Пгау, стандартный конструктор ШИ 
и инкапсулировали в объект новый метод КеааЁРИе. Новый конструктор 
предназначен для инициации экземпляра объекта ТбсгоЙег. Кроме того, с 
помощью метода КеааРиИе он должен прочитать все записи файла данных и 
подготовить соответствующий массив строк — это сократит время на 
обновление текста процедурой Пгам'. 

Перед тем, как двигаться дальше, подумаем о способе хранения строк 
для процедуры ПОгам. Если все необходимые действия по чтению нужной 
записи из файла и преобразования ее к текстовому формату возложить на 
процедуру Ога", наша программа станет слишком медленной, в особен — 
ности, если файл данных записан на дискете. Поэтому предусмотрим такие 
глобальные переменные: 


соп$% 
Мах11пе = 300; {Максимальная длина массива} 
ТТ1пе = ТМапе+ГРпопе+ГАЯЯк; {Длина строки} 

уагх 
М.1пез: Мога; {Истинная длина массива строк} 


Т1пез: агхау [1..Мах!1пе] оЕЁ ЗЕхапа [111пе]; {Массив строк} 
Теперь нетрудно подготовить процедуру КеааРие: 


Ргосеацаге ТТпеег1охг.ВеааЕ11е; 
[Читает содержимое файла данных в массив Г1пе$} 
\аг 
К: Трседег; 
5: БЕгапа; 
Рафа: РафаТуре; 
Бед1п 
зеек (РафаЁР11е,0); 
МТ1пез := Е11еб1те (РафаЁ11е); 
1Е №:1пез > Мах!11пе &Веп 
`МЬ1тез := МахЬ1те; 
ог К := 1 во №11ез$ ао 
Беда 
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Веаа (РабаЁР11е, @аафа); 
"ЕВ аафа ао 


Ред1п 
5 := Мапе; 
мВ11е ГепоЕВ ($) < 1Мапе ао 
$ := 5+' 1; 
5 := 3+РВопе; 
\рВ11е ТепоЕВ ($) < 1Маме+ЬРвопе ао 
$ := 5+' 1; 
$ := $+Аааг 
епа; 
ТЪ1пе$[К] := 5 
епа; 


епа; {ВеааЕг11е} 


В этой процедуре из записей файла данных готовится массив строк 
[Г/пез, причем начало каждого поля выравнивается так, чтобы поля обра-— 
зовали колонки — такая форма вывода поможет легко найти на экране 
каждое поле. 

Теперь займемся процедурой Пгами’; 


Ргосеацхе ТТпеег1ог.Огам; 
{Выводит данные в окно просмотра} 


уаг 
п, {Текущая строка экрана] 
к: Тпседег; {Текущая строка массива} 


В: ТОгамВаЕЕех; 
Со1ог: Ву%е; 


Ъедап 
Со1ог := СебСо1ог (1); {Использовать цвет 
основного текста} 
ог п := 0 ®о ргеа(512е.уУ) ао 


{512е.уУ - количество строк окна} 

Ьед1п | 

К := Ое16а.У+п+1; [Ре]Еа.У - номер 
первой выводимой строки} 

МохеСпаг (В,' ',Со1огх,517е.Х); 
Мотебзег (В, 
Сору (№1пез[Кк],Ше1%*а.Х+1,512е.Х),Со1ог); 
Мг1сеГз пе (0, №, 517е.Х,1,В) 

епа 

епа; {ТТрпЕегтог.Огаи} 


Работа процедуры основана на использовании текущих размеров и 
положения текстового окна относительно текста. Эти параметры хранятся 
в полях 512е и ОПейа объекта ТзсгоПег и обновляются всякий раз, когда 
пользователь манипулирует полосами управления или изменяет размеры 
окна. Для вывода текста используются три процедуры: МоуеСвВаг, Моуе5и, 
Ипие[пе. Каждая из них оперирует переменной В типа ТОгаиВиЕЕг, 
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представляющей собой последовательности кодов выводимых символов и 
их атрибутов. Процедура МоуеСпаг заполняет переменную В указанным 
символом (‘") и атрибутом (Со1о’. Процедура Моуе5 копирует строку в 
переменную В, а с помощью ИтИеЦпе осуществляется вывод буфера В на 
экран. 


Для вывода изображений (текста) перекрывайте и 
используйте метод Огам объекта-владельца 
нужной части экрана. Это обеспечит автомати- 
ческое изменение изображения и его прорисовку 
при изменении границ или положения поля вы- 
вода. 


15.10. ЦВЕТОВАЯ ПАЛИТРА 


В процедуре Пгау переменная Со]ог задает атрибуты (цвет символов и 
цвет фона) символов, выводимых с помощью методов МоуеСраг и Моте5И. 
С помощью функции Се Со]ог она устанавливается таким образом, чтобы 
символы на экране отображались цветовым сочетанием с номером 1. В 
Тао У19юоп используется гибкая система установки цвета отдельных 
видимых элементов. Элемент изображения связывается не с каким-то 
конкретным цветом, а с индексом в таблице цветов, называемой палитрой. 
Количество элементов палитры зависит от количества цветовых сочетаний, 
используемых при выводе элемента изображения. Например, в Тосгойег 
используется двухэлементная палитра цветов: первый элемент устанав— 
ливает цвет нормального текста, второй — выделенного текста (рис.15.6). 


1 2 
в |?) Палитра Тзсго Пег 


Подсвеченный текст 
Нормальный текст 


Рис.15.6. Палитра объекта ТосгоПег 


Числа 6 и 7 в этой палитре указывают не конкретные цвета, а номера 
позиций в палитре объекта — владельца. Для нашего случая объектом — 
владельцем будет ТИЛпаот' Таким образом, цвет номер 1 палитры ТФсгоПег 
лишь указывает на шестое по счету цветовое сочетание в палитре ТИЛтдот 
(рис.15.7). 
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рамка пассивна 
Рамка активна 

Кнопка рамки 

Страница Тосго ег 

Элемент управления Т5сго |] ег 
Нормальный текст Тосго]]ег 


Выбранный текст Т5сго 1 ]ех 
| Г Зарезервировано 


Палитра ТЫ!тдоч 


Подсвеченный текст 
Нормальный текст 


Рис. 15.7. Связь палитр Тосгойег и ТИПпаом 


Шестой элемент палитры ТИ”пао"\ в свою очередь ссылается на 13-й 
элемент палитры своего владельца — ТРгодгат. Объект ТРгодгат — это 
начальный видимый элемент любой программы в Тафо У1$9юоп. На нем 
заканчивается любая цепочка ссылок, Т.е. его палитра содержит кон-— 
кретные атрибуты символов. Тринадцатый элемент этой палитры содержит 
значение $1Е, что соответствует выводу желтого символа на синем фоне — 
именно Таким образом отображается нормальный текст в окне ТФсгойег, 
если это окно вставлено в ТИшаот. Если бы объект ТосгоЙег был помещен 
непосредственно на панель экрана, то значение 6 в первом элементе па— 
литры Тосгойег указывало бы на 6—й элемент палитры ТРгодтат, содер — 
жащий атрибуты $28 (темно — серые символы на зеленом фоне). Цветовые 
палитры в Тито У1$1оп содержат такие значения по умолчанию, чтобы 
любая комбинация цветов давала приятную цветовую гамму. При необ— 
ходимости пользователь может изменить любую цветовую палитру. 

Вернемся к нашему примеру и рассмотрим реализацию конструктора 
ЛиЕ 
СопзЕхгасвок ТТпеехг1ог.Тп1Е (уаг Воипаз$: ТВесЕ; 

Н5,\У5: Рбсго11Ваг); 
[Создает окно для данных} 
ред1п 

Тпре’гтее@ Тп1{ (Воцпаз, Н5, \5); 

ВеааЕ11е; 

СгомМоае := аЕсСкомН1Х + аЕСгомН1У; 

5е11м1* (ЪТ1пе, М1пез$) 
епа; {ТГрЕеглог. Тп1 Е} 
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Объект ТбсгоЙег имеет поле Сгом/Моае, которое определяет, как элемент 
будет изменять свои размеры, если пользователь потребует этого. Па— 
раметр 9Е@го"ШХ предписывает окну Т5сгоЙег изменяться таким образом, 
чтобы правая его граница всегла находилась на постоянном расстоянии от 
правой границы владельца. Точно также дгои У задает неизменным 
расстояние нижней границы окна Т5сгоЙег от нижней границы владельца. 
Таким образом, окно ТосгоЙег всегда будет занимать всю внутреннюю 
часть окна— владельца ТИ/тао"м. С помощью процедуры $еИати (Х,У) мы 
задаем горизонтальную Х и вертикальную У границы перемещения окна 
относительно текста. Эти границы будут выдерживаться при управлении 
окном с помощью клавишей или мыши; какими бы не были текущие 
размеры окна, нажатие на клавишу Епа, например, смещает его вправо 
так, чтобы самым правым видимым символом был Х-й символ текста. 
Нажатие на клавиши СШ-Ро)п смещает окно вниз по тексту таким 
образом, чтобы самая нижняя строка окна соответствовала У—й строке 
текста. Иными словами, параметры Х и У задают координаты правого 
нижнего угла виртуального (воображаемого) экрана неограниченных 
размеров, на котором находится текст и по которому «скользит» окно. 
Левый верхний угол виртуального экрана всегда имеет координаты (0,0). 

Осталось отредактировать конструктор ТИогКИЛп.ти: нужно изменить 
тип переменной Пёепог 


уаг 


Тпеег1ох: РТплкег1ог; 


и обращение к конструктору: 
Тпбег1ог := Мем(РТо*+ег1ог, Тп1& (Вопп@з, Н5, \5))}; 


Но не спешите запускать программу на счет: ведь файла данных пока 
еще нет, а поэтому Вы ничего не увидите на экране. Чтобы все-таки 
оценить достигнутые результаты, измените текст процедуры КеааРИе — 
добавьте в него следующие строки: 


Ргосе4аке ТТпЕег1ог.КеааЕ11е; 
[Читает содержимое файла данных} 
зах 
Е: Еехе; 
ред1п 
$ := сору(Рагат5ет (0),1,ро$('.',Рахатмзег (0)))+'раз'; 
аз$1ап (Ё,$5); 
гезее ({); {Открываем файл с текстом программы} 
УЬ1пез := 0; 
мр11е поЕ ЕОГ(ЁЕ) апа (№1пез$ < МахЬ1пе) ао 
Бедзп 
1пс (№МЬ1пез); 
ВеааГлп (Е, 11пе$ [№Ь1пе$]) 
ера; 
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с1о5$е (Е); 
ех1*; 


епа; (КеааГг11е)} 


Добавленные строки заставят процедуру прочитать в массив ШМпез текст 
самой программы (если Вы будете запускать программу из среды Турбо 
Паскаль, не забудьте установить компиляцию в дисковый файл опцией 
СОМРЦИЕ/РЕ$ТИУАТОМ, иначе оператор 


5:=сору (Рагатзег (0)},1,роз('.',Рагамбет (0)))+'раз'; 


не сможет установить в 5 правильное имя файла с текстом Вашей про— 
граммы). После запуска программы нажмите клаишу Р3, задайте имя 
несуществующего файла, нажмите клавиши Ещег и Ё4 — на экране поя— 
вится изображение, показанное на рис.15.8. 


Е/ Файп НЦ/ Работа: > о 

[8] 

Изез Йрр, 0Ъ]есё$, НМепиз, Шг1чегз, Мепогу, сг®, 
У1ен5, 3%41019, 100$, 01а109$; 


915 
[Нате = 25; {ЦПлина поля имени} 
ГРпопе= 11; {Длина поля телефона} 
ТАадг = 48; {длина поля адреса} 


Мах. 1пе= ЗВ9; 
Ы,11е = [Мапе+.Рлопе+Тяа4г; 


{Команды для обработчиков событий: } 


сп0репг1]е = 298; 
спЗауе!11е = 281; 
смбНо 1х = 282; 
смуогК = 283; 
см00$ = 284, 


У1пСом1; ТСоммап4Зеф = 
[смЗачуеЁ 1 |е,смЧогК]; 
УЧ! псот2:; ТСоммап4зее = [см0ОрепЕ 1 1е]; 


Орг11еЁг : Воо1еап = Ра1зе; {Признак открытого файла} 


Рис.15.8. Окно с текстом программы. 


Это окно откликается на нажатие клавиш управления курсором, ко— 
манды РдОр, Ра)п, СШ-РдОр и т.^. подобно тому, как ведет себя окно 
редактора в среде Турбо Паскаль. С помощью мыши Вы можете пере— 
мещать его по экрану, изменять размеры, закрывать — все эти действия .. 
реализует стандартный обработчик событий объекта Т5сго/ег. 


15.11. ИСПОЛЬЗОВАНИЕ КОЛЛЕКЦИЙ 


Для вывода текста мы использовали глобальный массив Шпез. Как 
известно, длина любого массива в Турбо Паскале не может превышать 
длину сегмента данных (64 Кбайт). Это ограничение можно убрать, если 
воспользоваться еще одним механизмом ТитЬо У15$10оп -— коллекциями. 
Подобно массивам, коллекции представляют собой набор элементов, в 
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которых можно хранить любые данные включая экземпляры любых 
объектов. К. элементам коллекции можно обращаться по индексу, однако, в 
отличие от массива, коллекция размещается в куче, поэтому ее суммарная 
длина ограничивается всей доступной памятью и может быть больше 64 
Кбайт. Кроме того, размер коллекции не лимитируется при ее создании и 
может динамически изменяться в процессе работы программы. 

Коллекции обладают целым рядом новых свойств. В частности, к любой 
коллекции можно применить метод РогБасй, который осуществит заданные 
Вами действия над каждым элементом коллекции. Таким способом можно, 
например, быстро отыскать элемент, удовлетворяющий заданным требо — 
ваниям. Наконец, в Тио У\У1$юоп определены отсортированные коллекции, 
элементы которых упорядочиваются по заданному ключу. Все это делает 
коллекции более предпочтительным способом хранения данных, чем 
массивы Турбо Паскаля. — 

Попробуем заменить массив ИШпез на отсортированную коллекцию. 
Введем в объект Гшёепог новое поле Р5: 


туре | 
Т]п6ег1ог = оБзесе (Т5сго11ег) 
РЗ: Р5&г1п9Со11ес®1оп; 


епа; 


Тип РЫшпаСоЙесноп в Тито \У9юоп определен как указатель на эк- 
земпляр объекта ТэшпаСоПесИоп, представляющий собой отсортиро— 
ванную коллекцию строк. Сортировка строк осуществляется по обычным 
правилам сравнения строк по А$СП-кодам. Если вновь помещаемая 
строка уже существует в коллекции, она не дублируется (при желании 
программист может разрешить дублирование одинаковых строк}, поэтому 
в общем случае количество элементов коллекции может оказаться 
меньшим количества помещенных в нее строк. 

Для создания коллекции удалите ненужные теперь глобальные объяв — 
ления Мах пе, Ипез и МИпез (в коллекции есть другие средства доступа к 
элементам) и измените метод КеааРИе слелдующим образом : 


Ргосеиге ТТпеег1ог.КеааЕ11е; 
уаг 
ред1п 
Р5 := М№ем (РЗЕг1п9Со11есЕ1оп, Тп1(100,10)); 
$ := сору(Рагатбет (0),1,ро$('.',Рагатбег (0)))+'раз'; 
азз1ап (ЁЕ,$5); 
гезее (Е); {Открыть файл с текстом программы} 
мр11е поЕ (ЕОЕ(ЁЕ) ог ГомМетогу) ао 
Ьед1п | 
ВеааГлп (Ё,5); | 
1Е з <> ' ' Бел Р5^.Тлзеге (Мемсег (5)) 
епа; 
С1о5е (Е); 
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ех1{; 
Сеек (РафаЁ11е,0); 
у\р11е поЕ (ЕОГ(ДРафаЕ11е) ог ГомМетогу) @о 
Бед1п 
Веаа (ВафаЁЕ1]е, аафа); 
у1ЕП Заба ао 
Бед1п 
епа; | 
1Е 5<>'' Вел Р5^.Тизег® (Мембег (5)) 
епа; 
епЯ; /РеааЕР11е} 


В приведенном фрагменте мы предусмотрительно изменили только ту 
часть программы, которая стоит после оператора Ех и которая зависит от 
удаленных глобальных определений. Вы должны сделать эти изменения 
(они все равно нам пригодятся) или закомментировать эту часть текста, 
чтобы получить синтаксически правильный вариант программы. 

С помощью оператора 


Р5$ := М№ем (РЗ г1паСо11есе1оп, 1п1е(100,10)); 


инициируется экземпляр коллекции, причем параметр 100 определяет 
начальный размер коллекции, а параметр 10 — шаг наращивания кол— 
лекции, если ее размер превысит 100 элементов. Оператор 


1Е °<>'!'! ЕВБеп РЗ^.ТлзегЕ (МембЕг(5)) 


вставляет очередную непустую строку в коллекцию. Заметим, что кол-— 
лекции Р5^ передается не строка 5, а лишь указатель на нее, т.к. функция 
№5 размещает строку в куче и возвращает ее адрес. Функция № и5и не 
может разместить в куче пустую строку, поэтому мы вставляем в кол- 
лекцию только непустые строки. 

Функция ГотМетогу используется для контроля за размерами дина-— 
мической памяти: она возвращает значение Тгие, если в куче осталось 
менее 4 Кбайт. 

В последний оператор метода Пёепог.шй внесите слелдующее изменение: 


Сопзегасеог ТТпеег1ог.Тп1 (уаг Воппаз$: ТВесе; 
Н$,\5: Р5сго11Ваг); 


Зее! 1т1 (ТТ1пе,Р5^.Сопп®) 
ера; /ТТпЕеглог.Тп1Е} 


Другим станет также и реализация метода Тр(епог.Огаи’: 


?госеацке ТТпеег1ог.Огам; 
уаг 

п,к: Тпедег; 

В: ТОгамиьоЕЕег; 
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‚р: Р5ЗЕгапа; 
Со1огх: Ву%е; 
Ьед1п 
Со1ох := СееСо1охг (1); 
Бог п := 0 Фо ргеа(512е.уУ) ао 
Бед1п 
К := ПБе1$а.У+п; 
МоуеСпаг (В,' ',Со1охг, $517е.Х); 
1Е К < ргеа (Р$^.Соцп®) ЕБеп 
Бед2п 
р := Р5^.АЕ (К); | 
Моуебехт (В, Сору (р^,ШВе1+а.Х+1,512е.Х),Со1ог) 
епа; 
Иг1 ве 1 пе (0,№, $12е.хХ,1,В) 
епа 
епа; (ТГлЕеглок.О)гаи} 


Элементы коллекции нумеруются, начиная с номера 0. Длина коллекции 
(общее количество ее элементов) хранится в поле Р5^.Соцпе. Функция 
Р5^.АФ (К) возвращает указатель на К-й элемент коллекции. 

Созданная коллекция размещается в динамической памяти, поэтому 
после использования ее следует удалить из кучи. Для этого перекроем 
стандартный деструктор Допе: 


фуре 
ТТлеег1ог = оБзесе (Т5сго]11ег) 


Резфегасеог Попе; У1г%ца]1; 


епа; 
Резегасвог ТТпеег1ог.Оопе; 
Ьед1п 

21 зрозе (Р5, Попе); {Удаляем коллекцию} 

Тпрег16еа Попе {Выполняем стандартный деструктор} 
епа; | 


Еще раз хочу обратить Ваше внимание на особенность программиро — 
вания в среде Титро У1$1оп: Вы определяете метод, но не указываете, когда 
он должен быть выполнен. Правильно сконструированный объект уже 
«знает», когда он ему понадобится! Так было в случае правила Огау, так 
же обстоит дело и с деструктором Попе: обработчик событий окна 
ТИЛпаом вызовет этот метод, как только он получит событие стСапсе] 
(закрыть окно). Чтобы убедиться в этом, установите контрольную точку в 
строке 

21зрозе (Р$, Попе); {Удаляем коллекцию} 
и запустите программу. Останов в контрольной точке произойдет только в 
том случае, если Вы загрузите окно с текстом и попытаетесь выйти из 


программы. Если из программы выйти сразу после ее запуска, контроленая 
точка не сработает. 
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Вид экрана с окном просмотра отсортированного файла показан на 
рис.15.9. | 


/ Фаип Н/ Работа 


[1] Выберите нужную запись. Е5С - переход к диапогу [11— 
располагаться в теле обработчика событий — 7 


диапазон контекстной справочной |. 
службы } . 


статуса Мепиз} 
| ГаОрепВи{$оп,й)); 
НЗ,93: Р8сго11Ваг); 

015аь]еСоммап4з (И 1пСом2 } 

Епаь 1еСоммап4з$ (Ч 1пСом1 ) ; 
г! 1е0реп; 
НТ.) )2}}) {Нет других элементов подменю} 
Нем [%еп(’7А”/ Открыть’, ’Ё3’,КЬЕЗ, смОрепЁ 1 1е,ИсНоСоп%ех+, 
Нем [епт (*7В”/ Закрыть’, ’Р2’,КЬЕ2, смЗачеР 1 ]е,НсНоСоп*ех%, 
Нем Г 4еп(’7С”/ Сменить диск’, ’’,@, смСА01г , сМоСоп+*ехф, 
Нем {еп (*7]”/ Вызов ДОС’, ’’,8,см00З , ИсНоСот+%ех+ , 
Нец [Фет (’”0”/ Конец работы’, ’й1%-Х’,КЪЯ1%Х , смди {+ ‚ НсМоСотфех*, 
НемГ. 1те ( {Вставить строку-разделитель} 
Венг 1{е (афаЁ!]1е), 
Ъед1т 
ета 
1 Орг11еЁ фЛет ЧогК 

3 .= Наме, | 


Рис.15.9. Окно с отсортированным тестом программы 


15.12. УКАЗАТЕЛЬ НА ЭЛЕМЕНТ СПИСКА 


Как уже отмечалось с помощью процедуры Огам можно выводить 
обычный текст и выделенный текст. Попробуем использовать это об— 
стоятельство для того, чтобы поместить в окно просмотра указатель на 
текущий элемент данных. Для этого добавим в Тйиепог еще одно поле: 


суре 
ТТпеег1ог = оБдесе (Т5ско11ег) 
Госае1оп: Мока; 


Поле ГосаНоп будет хранить номер той строки, которая отождествляется 
с выбранной строкой и которая на экране должна выделяться цветом. 
Лобавьте в конце метода КеааРИе строку 


Госае1оп := 0; 
и измените метод Огаму: 


Ргоседиге ТТпфхегзог.Огам; 
[Выводит данные в окно просмотра} 
уаг — 

п,к: Тибедег; 

В: ТОгамВаЕЕег; 

р: Р5егапа; 
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Со]1ох: ВуЕе; 
Ъед1п 
1Е Пе1$а.у > ГосаЕ1оп &Веп 
Тоса&1оп := ПБе1ка.у; 
1Е Госае1оп > Пе1ка.У+ргеа (512е.у) +ЪВеп 
Тоса®1оп := Пе1$а.У+ргеа (512е.уУ); 
Бог п := 0 Фо ргеа(512е.у) ао 
Бед1п 
К := Ое1ва.У+п; 
1Е К=ГосаЕ1оп Вей 
Со]1ог := СеЕеСо1ог (2) 
е]1 зе 
Со1ог := СеЕСо1охг (1); 


еп; {ТТрпЕехглог.Огаи} 


Вначале проверяется, попадает ли строка с номером, хранящимся в 
ГосаНоп, в число выводимых строк. Если это не так, значит пользователь 
изменил размеры окна или сдвинул его относительно текста; в этом случае 
нужным образом корректируется значение ГосаНоп. Такая проверка га— 
рантирует, что в окне всегда будет выводиться текущая строка. Перед 
выводом очередной строки сравнивается значение ее номера с величиной 
ГосаНоп и, если величины совпадают, строка выводится цветом 2 из па- 
литры Тосго[ег (темно — синими символами на сером фоне). 

_ Создав указатель в окне, нужно предусмотреть и средства воздействия 
на него. Для этого нам понадобится проверять действия пользователя с 
мышью и клавиатурой и изменять положение указателя. Вы не забыли, что 
все действия программы в Ти фо У\1510оп выполняются с помощью обра-— 
ботчика событий? Перекроем стандартный метод Нап Ш]еЕуепЁ в объекте 
ТГиепог: 


фуре 

ТТилсег1охг = оБ]еф (Т5сго11ег) 

Ргосе4иге Напа1еЕуеп® (уаг Еуепе: ТЕуеп®); У1г®ча1; 
епа; 
Ргосе4цге ТТпфег1ог.Напа1еЕуеп® (уаг Еуеп*: ТЕуепЕ); 
[Обработчик событий для окна данных} 
таг 

В: ТРо1пЕ; 
ред1п 

Тлре’г1ееа Напа1еЕуеп® (Еуеп®); 

сазе ЕхепЕе.\МПае оЕ 


еУуМозпзероимт : {Реакция на щелчок мышьк} 
Ьед1п 
МаКе!Госа]1 (МоцзеТеге, КВ); {Получаем в В локальные 


координаты указателя мыши} 
Тоса®1оп := Ое16а.У+В.У; 
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Ргам 
епа; 
еуКеуро\мт : {Реакция на клавиши + -] 
сазе Еуепф.КеуСо4е оЕЁ 
КрСгауМ1па$: 4Е Тоса®1оп > Ше]+а.УуУ &Ъеп 
Ьедзп 
аес (.оса*1оп); 
Ргам 
епа; 
КЮСгауР1а$: 4Е ГосаЕ1оп < Бе1%а.У+ргеа (512е.уУ) +Веп 
Ред1п 
1пс (оса 1оп); 
Ргам 
епа; 
епа 
епа 
еп; (Т.ГпЕеглог.Напа]еЕуепЕ} 


В новом методе вначале вызывается унаследованный обработчик со— 
бытий ТосгоПег.НапШМеЕуещт, с помощью которого обрабатываются все 
стандартные действия с окном (смещение текста, изменение размеров и 
Т.А.). Затем обрабатываются события от нажатия кнопки мыши и от 
нажатия клавиш «+» и «—» из зоны цифровых клавиш (на клавиатуре ПК 
они выделяются серым цветом). С клавишей «+» связывается действие 
«Сместить указатель вниз на одну строку», с клавишей «—» — «Сместить 
вверх». Выбор серых клавиш «+» и «-—» для смещения указателя вызван 
тем, что клавиши управления курсором используются для смещения окна и 
обрабатываются стандартным обработчиком событий. Заметим, что на- 
жатие кнопки мыши будет обрабатываться в ТосгоПег.НапеБуег! только в 
том случае, если указатель мыши находится на рамке окна или на полосах 
управления. Если указатель сместить внутрь окна, нажатие на кнопку 
мыши будет преобразовано в событие еуМоизеропе и передано в аш 
обработчик. В этом случае глобальная переменная МоизеИТеге содержит 
абсолютные координаты указателя мыши (т.е. координаты относительно 
левого верхнего угла экрана). Чтобы получить номер соответствующей 
строки текста, мы сначала с помощью оператора 


МакКеГоса1 (Мопзейвеге, В); 


получаем в переменной К локальные координаты мыши относительно 
границ окна Тосгойег. Оператор 


Тосае1оп := Бе1ф$а.У+В.У; 


устанавливает в поле ГосаНоп номер той строки текста, на которой рас-— 
полагается указатель мыши. . 


374 Глава 15 


15.13. АИАЛОГОВОЕ ОКНО ВЫБОРА РЕЖИМА 


Подведем некоторые итоги. Мы создали программу, которая погружает 
пользователя в среду объектно — ориентированного диалога Татфо У131оп: 
она поддерживает командные клавиши, работу с мышью, может сменить 
каталог или диск, выбрать нужный файл и загрузить его в окно просмотра. 
Не так плохо для 300 строк программного текста! Наша дальнейшая задача 
— реализовать другие режимы работы (поиск нужной строки, добавление 
и уничтожение строк, их изменение). Для двух из них (уничтожение и 
редактирование строки) в программе необходимо каким-то образом 
указать ту строку, с которой будет работать пользователь. Мы уже реа— 
лизовали эту возможность предусмотрев в окне просмотра текста 
управляемый указатель. Поэтому режим просмотра можно принять в 
качестве основного режима работы с данными. В связи с этим следует 
несколько изменить метод ТМоеБоок.НапеЕуепЕ предусмотрев в нем 
автоматический переход в режим просмотра данных в случае успешного 
открытия файла с данными: 


Ргоседоге ТМосеБоок.Напа1еЕуепт* (маг Еуеп®: ТЕуеп®); 
{Обработчик событий программы} 
Ъед1п 
Тпрехг1феа Напа1еЕуепе (Еуеп®); 
1Е Еуепе.МНае = еуСоптапа еп 
сазе Ехеп®.Соптапа оЕ 
спОрепЕ11е: 
Бед1п 
Е1]еОреп; 
1Е Орг11еЁ Вей ИЙогК 
епа; 


епа; {ТМосебооКк.Напа1еЕхет* } 


Как из режима просмотра данных перейти к другим режимам? Воз— 
можно несколько решений. Я предлагаю для этих целей воспользоваться 
командой стС]о$е (закрыть окно просмотра): в момент, когда пользователь 
в режиме просмотра данных нажмет клавишу Е5с или воздействует мыплью 
на кнопку «Закрыть окно», на экране должно раскрыться диалоговое окно 
выбора режима, предлагающее одно из пяти возможных продолжений: 

» закрыть окно просмотра; 
удалить текущую запись 
искать нужную запись; 
редактировать текущую запись; 
добавить запись (записи). 

Для реализации этой идеи в уже созданный нами обработчик событий 
'Г]иепог.НапеЕуеп следует ввести обработку события стС/]05е: 


сопзе 
{Команды для обработчиков событий: } 
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стСап 

‚ спре1ефе 

спбеагс® 

спЕа1 

спАаа 
ЕипсЕ1оп Сопёего1: Иога; 


{Создает и использует диалоговое окно выбора режима работы} 


Ъед:п 
Сопего]? := с 
епЯ; {СопЕго1} 


Ргосеачге ТТофек1ог.НапалеЕуепе (уах Еуепе: ТЕуеп®); 


205; 
206; 
207; 
208; 
209; 


пСап 


{Обработчик событий для окна данных} 
Ргосе4иге Пе1ефеГ!Г%еп; 
{Удаляет указанный В ГосаЕ1оп элемент данных} 
Бед1п 


епа; 


{Ре1ебетТЕет; 


Ргосеадоаге Ааатеет (Ба: Воо1еап); 


{Добавляет новый или редактирует старый элемент данных} 


Ъед1п 


епа; 


{дАаатЕеп} 


Ргосеапге ЗеагспТеем; 
{Ищет нужный элемент} 
Ъедап 


епа; 


уагх 
В: 


{ЗеагсАТЕет} 


ТРо1пе; 


1аЪе1 С15; 

Ъедзп {ТГпЕег`лог. Напа1еЕуепЕ}. 
Тпрег1еЯ Напа1еЕуеп® (Еуеп*); 
сазе Еуепф.МПае оЁ 


(015: 


е\хСопштапа: 


сазе Етеп+. Соптапа, ОЕ 


смС1о05е: 
Бед1п 


сазе Сопего]1 оЕЁ 


стСап, 


стСапсе! : 


спЕЯТЕ 


спре1еее: 
стбеагсВ: 


спАаа 


ЕпЯМо@Яа1 (стСапсе1); 


{Получить 
основного 


АааТфем(Тгае); 
Ре1есеТ$ем; 
ЗеагсйТ®ем; о 
даатеем (ЕГа1зе); о 


команду из 
диалогового окна} 
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спбоом: ех1; 

епа; | 

еуМоп5еромп: {Позиционировать мышью} 
еуКеуПо\мт : {Позиционировать клавишами + -} 
сазе Ехепф.КеуСо4е оЕ 

КЬЕзс: дофо С1$; 

КЬСгауМ1па$: 1Е Госае1оп > Пе1$а.УуУ &Веп 


епа; {ТГоЕег1ог.Напа1еЕуептЕ} 


В этом фрагменте мы расширили набор нестандартных команд 
(константы стСап, .., стАаа), ввели новую функцию СопНо| и преду-— 
смотрели необходимые процедуры в теле обработчика событий. Заметим, 
что режимы редактирования записи и добавления новой записи очень 
схожи по организании диалога с пользователем, поэтому они реализуются 
в рамках одной процедуры АааПет и управляются параметром обращения 
к ней. 

Функция СопНо| используется для создания диалогового окна выбора 
продолжения. В качестве значения этой функции будет возвращаться одна 
из пяти новых команд. В начальном варианте функция возвращает команду 
стСап, что интерпретируется обработчиком событий как указание на 
завершение работы с диалоговым окном. Поэтому, если Вы вставите 
указанный текст в программу и запустите ее, поведение программы ос— 
танется прежним. 

Займемся реализацией функции Соп!о/. Она должна создать диалоговое 
окно выбора режима, получить с его помощью команду, идентифици— 
рующую выбранный режим, и вернуть эту команду в качестве своего 
значения: 


КапсЕтоп СопЕго1: Мога; 
[Получает команду из основного диалогового окна} 
сое 


Х = 1; 

Ъ = 12; 

РХ= 13; 

Ва: аггау [0..4] оЕ ЗЕг1та [13] = {Надписи на кнопках:} 


('-1- Выход ','-2- Убрать ','-3- Искать \", 
'^4^ Изменить '!,'-5- Добавить \'); 
Тхё: аггау [0..3] оЕ $%гата [52] = ( 
{Справочный текст:} 
'Убрать - удалить запись, выделенную цветом', 
'Искать - искать запись, начинающуюся нужными буквами’, 
‘Изменить - изменить поле (поля) выделенной записи!, 
'Добавить - добавить новую запись!'); 
ча: 
В: ТВесе; 
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р; РО1а1од; 
К: Трбедег; 
Ьед1п 
В.Азз1ат (7,6, 74,15); 
р := М№м (РО1а1оа,Тп1% (В, 'Выберите продолжение:'!))}; 
"1ЕВ р^ ао 
Бед1п 
Рог К := 0 Фо 3 ао {Вставляем поясняющий текст} 
Бед1п 
В.Аззтап (1,1+К,65,2+К); 
Трзег* (Мем (Р5бае1сТехе, 1п1& (В,#3+ТхЕ[к]))) 
епа; 
Рог К := 0 Фо 4 ао {Вставляем кнопки:} 
Бедлп 
В.Азз1 апт (Х+К*ЬХ, 6, Х+К*ОХ+Ь, 8); 
Трзег® (М№ем (РВаЕФоп, 
1016 (В, Ви [К], смСап+КкК, БЕМ№огма1))) 


епа; 
бе1есеМехе (Га1зе); {Активизируем первую кнопку} 
епЯ; | 
СопЕго1 := РезкТор^.ЕхесУ1еи (0); {Выполняем диалог} 


епЯ; {СопЕго1} 


Сначала создается диалоговое окно с заданными размерами (чтобы 
программе стал доступен тип ТР1а109, укажите в предложении И5е$ модуль 
Р1а1095). Затем в цикле 


Рог К := 0 0 3 @ 


в окно вставляется поясняющий текст (см. рис.15.10). Этот текст не связан 
с диалогом и называется статическим. Для вставки статической строки в 
любой видимый элемент используется конструктор ТоюнсТехти, кото -— 
рому в качестве параметров передаются координаты строки и сама строка. 
Как Вы уже могли заметить идентификаторы объектов в Гатро У!Зоп 
начинаются на букву Т, а идентификаторы типов —указателей на экзем — 
пляры этих объектов начинаются на букву Р. Таким образом, РЫайсТехЕ — 
это тип — указатель на экземпляр объекта ТоюайсТехЕ поэтому оператор 


Тпрзег% (М№ем (Рбкае1сТехе, Тп1 (В, 'Текст!'!)) 


помещает строку «Текст» на место, заданное координатами переменной К. 
Отметим, что если строка начинается на символ #3, то при выводе на 
экран она будет размещаться в центре прямоугольника К. Мы используем 
это соглашение и дополняем каждую выводимую строку этим символом. 

В цикле 


Рог К := 0 о 4 ао {Вставить кнопки:} 


в окно вставляются пять кнопок. При их инициации используется то 
обстоятельство, что определенные нами команды стСап, .., стАа4 обра-— 
зуют непрерывное множество [205..209]. 
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Г/ Файл Ч/ Работа | 
РЭ ] миоииинкииим Выберите нужную запись. Е5С - переход, к длапогу 


11= 
7 


= ]=——————————— Выберите продолжение: 
и.“ “г. Убрать - чдалить запись, выделенную” цветом | | 
| _ Искать - искать запись, начинающуюся на нужную букву (буквы) 
Изменить - изменить попе (поля) выделенной записи | 
Добавить - добавить новую запись 


Выход Я Убрать ВЕ 


р2 Закрыть РЗ Открыть Г4 Работа 


Рис.15.10. Диалоговое`окно функции Соп!го! 
Особо следует остановится на операторе 
‘Зе1ес&Мех® (РГа1зе}; {Активизируем 1-ю кнопку} 


Дело в том, что по умолчанию активизируется тот элемент диалогового 
окна, который задан (вставлен в окно) последним. Чтобы изменить ак- 
тивность по умолчанию, используется вызов процедуры 5е]есИ\УехЕ которая 
смещает активность к следующему элементу. Так как элементы образуют 
замкнутую цепь (от последнего элемента активность переходит к первому}, 
параметр обращения к этой процедуре указывает направления смещения: 
если он имеет значение Ра/5е, активным станет следующий в цепи элемент, 
если Тгие — предыдущий. | 

Прежде, чем Вы попробуете запустить эту программу на счет, внесем в 
нее несколько изменений. Во-первых, пора убрать имитацию данных, 
показываемых в окне просмотра. Для этого в процедуре ТЛЁепог.КеааРПе 
необходимо удалить строки 


$ := сору(Рагамбетг (0),1, роз(*". '‚„Рагамбех (0) ))+'раз' 
а$5$1ап (Ё,5); 
ех1(; 
Надеюсь что Вы заблаговременно подготовили остальной текст э“‘ого 
метода, если это не так, вставьте операторы 


зееК (ПафаЁ1]1е, 0); 
\В11е поЕ (ЕОРГ (ПафаЕ11е) ог ГозМепогу) ао 
\ед1п 


ела; 


Введение в Тито УЗ1оп 


Госае1оп := 0 


(см. с.369). 
Во-вторых, обратили ли Вы внимание на то, что в процедуре 
ГМоеБоок.У/огКк (см. с.361) указатель РУ/ инициируется оператором 


РИ := Меми (РИогКМ1т, Т1п16(В)); 


з динамическая память, выделенная для размещения экземпляра объекта 
ГИ/огЕИПп, не возвращается обратно в кучу? Если да, то у Вас есть хо— 
эошие шансы избежать многих неприятностей при программировании в 
среде Тифо У1Я1оп. Конечно же, нам следовало где-то в программе по- 
заботиться об удалении ненужного нам экземпляра объекта. Чтобы не 
усложнять программу, я не стал этого делать: если вставить оператор 


015розе (РИ, Попе) 
сразу за оператором 
РезкКТор^.Тпзеге (РИ) 


го вновь созданное окно будет тут же удалено с экрана, поэтому оператор 
015розе нужно разместить в обработчике событий ТМоеБоок. Нап еЕуегё 
подумайте, где именно). 

После включения диалогового окна в цепочку действий, связанных с 
лнициацией РУ’, появилась возможность приостановить исполнение про-— 
`раммы в процедуре И/о!К: вместо оператора 


РезКТор^.Тпзег® (РИ). 
зставьте следующие строки: 


Сопёго1 := РезкКТор^.ЕхесУ1ем (РИ); 
215розе (РИ, Попе) 


1 добавьте описание переменной СопНо!; 


уатх 


‚СопЕго1: Мога; 


В отличие от процедуры п5ей процедура ЕхесУе\ не только помещает 
зидимый элемент на экран, но и приостанавливает дальнейшее исполнение 
трограммы И/огК до тех пор, пока не закончится диалог с пользователем. 

И, наконец, еще одно усовершенствование. Работа с программой станет 
’лобнее, если сразу после чтения файла с данными она перейдет к их 
токазу. Реализовать это очень просто: добавьте вызов процедуры \\!о1К в 
троцедуру ЕПеОреп следующим образом: 


Ргосеаикге ТМокероок.ЕГ11еОреп; 
Бед1п 


1Е ОрЕ11еГг еп 
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ИохкК {Переходим к работе} 


Если Вы внесете в программу все описанные изменения и запустите ее 
на счет!, то при попытке выйти из режима просмотра на экране булет 
развернуто диалоговое окно, показанное на рис.15.10. «Нажатие» на любую 
кнопку этого окна не приводит ни к каким последствиям — наше окно 
пока откликается только на стандартную команду стС]о5е, связанную с 
клавишей Е5с. 


15.14. ОБРАБОТКА КОМАНА ПОЛЬЗОВАТЕЛЯ 


Обработчик событий диалогового окна поддерживает только стан- 
дартные команды стС]оз$е, стОК, стСапсе!. Как заставить его реагировать 
на команды пользователя? Вы правы: нужно перекрыть стандартный об— 
работчик событий. 

Введем новый объект ТО19ИЙЛп как потомок объекта ТО1а10д и пере- 
кроем его метод Нап еЕуепЕ 


туре 
Р019\М1п =^Т019М1п; 
Тр19М1п = оБзесе (ТО1а109) 
Ргосе4иге Напа1еЕуеп* (уаг Еуеп®: ТЕуеп®); У1гЕаа1; 
епа; 


Хх 


В новом методе следует сначала вызвать стандартный обработчик, а 
затем проанализировать событие: если оно не очищено и содержит ко- 
манду, значит была нажата какая-то командная кнопка, и нам следует 
заставить обработчик закрыть окно и вернуть эту команду как результат 
диалога с пользователем: 


рРгоседиге Тр019И1п.Напа1еЕуеп® (уахг Еуепе: ТЕуепе); 
[Обработчик событий для основного диалогового окна} 
ред1п 
Тпрег1феа Напа1еЕуепе (Еуеп®); 
1Е Еуепе.МРа$ = еуСопштапа ®Веп 
ЕпаМоЯа1 (Еуепе.Сомтапа) {Закрыть окно и вернуть команду! 
епа; 


Метод ЕпАМоаа! используется для того, чтобы завершить работу с 
диалоговым окном и вернуть команду в программу, использующую это 
окно. Измените описание переменной ДР в функции СопИо] на 


уаг 


1 Файл с данными РабаТуре пока еще не существует. Чтобы программа смогла нормально 
работать, в диалоговом окне открытия файла укажите произвольное имя, например МУГАТА. 
После завершения работы программы будет создан пустой файл МУРАТА.РАТ. 
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р: РО1а9\М1п; 
и обращение к методу ши: 
р := Мм (РО1аМ1п, 1п016(...)); 


и вновь запустите программу. теперь нажатие на любую кнопку диало— 
гового окна приведет к его закрытию. 


15.15. РЕДАКТИРОВАНИЕ И ДОБАВЛЕНИЕ ЗАПИСЕЙ 


Для редактирования и добавления записей создадим окно, показанное 
на рис.15.11. 


Рис.15.11. Окно ввода/редактирования записей 


Режим редактирования отличается от режима добавления записей двумя 
обстоятельствами: во-первых, в режиме редактирования поля ввода 
ланных окна должны содержать текст, взятый из редактируемой записи, а 
з режиме ввода эти поля пусты. Во-вторых, режим редактирования за— 
зершается сразу после нажатия на клавишу Етег, в то время как в режиме 
звода нажатие на эту клавишу означает добавление к файлу текущей за — 
тиси и переход к вводу следующей: режим ввода завершается командой 
тС]о5е (клавиша Е$с). С учетом этого оба режима реализуются в рамках 
2дной процедуры АааЙет (Еай), а параметр ЕаЙ указывает нужный ре-— 
жим: если ЕЙ = Те, реализуется режим редактирования, если Ра]5е — 
режим добавления записей. Вот текст этой процедуры: 


Ргосеацке Адатееп(Еа1е: Воо1еап)} 
{Добавляет новый или редактирует старый элемент данных} 
2оп$Е 

у = 1; 
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ау= 2; 
= ГМапе+ГРропе+Гдааг; 
уаг 
Рафа: БафаТуре; 
В: ТВесЕ; 
ТпМ1п: РО1а]1о9; | 
ВМаме, ВРРопе,ВАааг: РТпра&Ь1пе; 
СопЕго1: Мога; | 
О1аСоцп®: Мога; 
$: 56г1па; 
р: Р5Ег1па; 
Ьед1п —. 
Зеек (РафаЕ11е,Е11е512е (РакаЁР11е)); _ {Добавляем записи 
в конец файла} 
гереа+ {Цикл ввода записей} В | 
3: Еа1е Вел (Готовим заголовок]. 
$ := 'Редактирование:' 
е] зе 
Ьед1п 
ЗЕг (Е11е512е (РафаЁ11е)+1,$);. 
умр11е Гепдеп($) < 3 &@ 
3 := '0'+5$; 
$ := 'Вводится запись М '+$ 


епа; . —- о 
г111СВахг (Рафа, $12е0Е (Рафа),' '); = [Заполняем поля 
| пробелами} 
В.Аз$1апт (15,5,65,16); _ о . 
ТпИ1п :;= М№м (РО1а1оч, Тп1е (В, $)); {Создаем окно} 
УтЕВ ТрИ1п^ до _ о 
Ьед1п {Формируем окно;} 


В.А$$1ап (2,у+1, 2+1Мапе, у+2); | 

ВМаме := Мем (РТпраГ1пе, Тп1 (В, ТМаце)); 
Тпзегф (ВМапе); | | ‚ {Поле имени} 
В.Азз1ап (2, у,2+1Мапе, у+1); 

ТпзегЕ (№ем (РЬаре]1, 

1116 (В, 'Имя',ВМате))); 

В.Аз$1ап (2, у+Ау+1, 2+ГРПВопе, у+9у+2); 

ВРВопе := Мем (РТпраЕЬ1пе, 

1016 (В, ЬРВопе)); И о 
Тлзег® (ВРВопе); {Поле телефона; 
В.Азз1апт (2, у+Ау, 2+РВопе, у+ау+1); 
Трзеге (№ м (РГафе1, 

1116 (В, 'Телефон',ВРпопе))); 
В.Азз1апт (2, у+2*аАу+1, 2+ГАааг, у+2*ау+2); 
ВАааг := Меч (РТируе1те, 11016 (В, ГАааг));. | 
Тизеге (ВАааг); | о {Поле адреса} 
В.Аз51ап (2, у+2*ау, 2+1АЧаг, у+2*ау+1); = 
1пзег® (Мем (РГафе\, | 


Введение в ТигЬо "$1оп о. И —.. 383 


Т11 (В, 'Адрес',ВАЧаг))); 
{Вставляем две командные кнопки:}_ 
В.Аз$1ап (2,у+3*ау+1,12,у+3*ау+3); 
Тпзег* (М№еи (РВа& оп, | 
Тп1* (В, 'Ввести'!, смоОК, БЕБеЕао1*))); 
К.Азз1ап (2+20,у+3*ау+1, 12+20,у+3*ау+3); 
Тпзеге (Мем (РВаеЕоп, 
1116 (В, 'Выход', смСапсе1,РЕМогма1))); 
5е1есЕМехЕ (Га]1зе) {Активизируем первую кнопку} 

епа; {Конец формирования окна} 

1Е ЕаЕ %Беп м1Ъ Рафа @о | 

Ьед1п {Готовим начальный текст:} 
р := Р5^.АЕ(Тоса®1оп); {Читаем данные из записи} 
$ := р^; 
Маше := сору (3,1, Мате); 
РВопе:= сору ($, 5ч9сс (ТМате)', .РВопе); 
Аааг := сору ($, зчсс (ТМате+ЁЬРропе) , ГАааг); 
ТлпИ1п^.беерака (Рафа) {Вставляем текст в поля ввода} 


епа; 
Соп*го1 ;= БезКТор^.ЕхесУ1ем (ТпИ1п); {Выполняем диалог} 
1Е Сопеёго]=смОК Веп м1Ь Бака ао 
Ъед1п | 
1Е Еа1е &Веп 


Ре1есе!Тхем; {Удаляем старую запись} 
Мате := ВМаме^.Рафа^; | | 
РРопе:= ВРНВопе^.Бафа^; 
Аааг := ВАааг^.Бафка^; 
$[0] := сре (Ъ); 
Е111СВах($[1],Ь,' !'); 
поте (Маме [1],5[1],Бепдев (Мате) ); 
тшоуе (РнНопе[1],$[$асс (ТМапме) ], Цепает (Рпопе)); 
поуе (Аааг [1], $3 [засс (ТМапме+Ррпопе) ]‚ епдаеВ(Аааг)); 
О1ЯАСочпеЕ := Р5^.Соцп®; {Прежнее количество записей} 
Р5^.Тпзегф (Меи5ег ($)); {Добавляемв коллекцию} 
{Проверяем добавление} 
1Е О1АСбСоспЕ <> Р$З^.СоцпЕ &Беп 
Иг1$е (РабаР11е,Бафа) {Да - добавляем в файл} 
епа | 
11011 Еа1е ог (Сопего1=стСапсе1); 
Ргам 
епа; {дааТ%еп} 


Вначале указатель файла смещается в самый конец, подготавливая 
добавление записей (судя по всему, режим добавления будет использо — 
ваться гораздо чаще, чем режим редактирования). Затем формируется 
заголовок окна и само окно. Операторы | 


1Е Еа1е +Ъед и"1ЕВ Рафа ао - 
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Ъед1п {Готовим начальный текст: } 


готовят начальное состояние полей ввола в режиме редактирования. 
Оператор 


ТрИ1п^ .ЗеЕерафка (Рака) 


помещает подготовленный текст в нужные поля. При обращении к про-— 
цедуре 5е Ша данные должны быть предварительно подготовлены в 
строгом соответствии с порядком создания диалоговых полей в окне и 
типом их данных. Поскольку в нашем случае формат данных в полях ввода 
окна совпадает с форматом файловых данных, мы можем использовать 
одну и ту же переменную как для работы с файлом, так и для установки 
начальных значений диалоговых полей. 

В самом общем случае пользователь должен объявить новый тип, со— 
ответствующий формату помещаемых в окно данных, и использовать 
выражение этого типа в качестве параметра обращения к процедуре 
5еаа. Например, если бы в нашем окне было предусмотрено только одно 
поле ввода «Телефон», то установку данных можно было бы осуществить 
таким оператором: 


ТпИ1п^.беерафа (РафаТуре .РПопе) 


гле РааТуре.РВопе — выражение типа 51т9д [ГРАопе]. 

Контроль за соответствием типа устанавливаемых данных порядку 
объявления и типу данных диалоговых полей полностью возлагается на 
программиста. 

В операторах 


1Е СопЕго1=споОкК Веп м1 Пафа ао 
Бед1п 


епа 


данные, полученные из диалогового окна, помещаются сначала в отсер-— 
тированную коллекцию, а затем — в файл. С помощью оператора 


1Е 0О1аСозпЕ <> Р$5^.Соцпе %Веп 


проверяется изменение количества данных в коллекции (напомню, чт7о в 

отсортированную коллекцию можно поместить только уникальную запись). 

Если количество записей в коллекции изменилось, значит новая запись не 

совпадает ни с одной из уже имеющихся и ее следует поместить в файл. 
Операторы 


1Е Еа1е %Ъеп 
Ре]1езетеем; {Удаляем старую запись} 


предварительно удаляют старую запись с помощью обращения к проце-— 
дуре ДеееПет. 
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15.16. УДАЛЕНИЕ ЗАПИСИ 


При реализации режима удаления записи нам нужно учесть тот факт, 
что порядок следования записей в файле и коллекции может быть раз— 
личным. Поэтому в процедуре РеееПет организуется цикл поиска в 
файле удаляемой записи: 


Ргосеацке Пе1ефхетеепт; 
{Удаляет указанный в ГосаЕ1оп элемент данных} 
уах 
р: Тлседехт; 
Рек: Р5Ег1 па; 
5: бег1па; 
Рафа: ПафаТуре; 
Бед1п 
Р5Ег := Р5^.Аф (оса б1оп); {Получаем текущую запись} 
5 := сору (Р5®&г^,1,ГМапе); 
зеек (РафаЁЕ11е,0); 
р := -1; {р - номер записи в файле} 
гереае {Цикл поиска по совпадению поля Мате: } 
110с(0); 
геаа (Ра*аЁЕ11е,Пафа); | 
"1 Рафа Ао мЬ11е ГепдеП (Маме) < 1ТМапе ао 
_ Маме := Маме+' ' 
‘ип611 ПРафа.Мапе=з; 
зеек (РафаЁ11е,ргеа (Е11е512е (РафаЁ11е))); 
геаа (РафаЁГ11е,Пафа); {Читаем последнюю запись} 
зеек (Паб аЁР11е,0); 
мх1$е (рафаР11е,Рафа); {Помещаем ее на место удаляемой} 


зеек (РафаЁЕ11е,ргеа (Е11е5127е (РафаЕ11е))); 


Е хгопсаее (РафаЁЕ11е); {Удаляем последнюю запись} 
м1ЕВ Р5^ ао РП := ТпаехоЕ (АЕ (Тоса®1оп)); 

Рб^.АсЕгее (10); {Удаляем строку из коллекции} 
Огам {Обновляем окно} 


эепа; {ПБе1есетеем} 


15.17. РЕЖИМ ПОИСКА ЗАПИСИ 


Для поиска нужной записи сформируем диалоговое окно, показанное на 
рис.15.12. 


13—1411 
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‚Р/ Файл ; М/..Работа 


[1] Выберите нужную запись. ЕЗС - переход, К диалогу [11=1 
йгафонов В.Й. 114-43-32 А 


Якопов Л.Я. 284-12-89 [] 
И 263-56-68 Москва, чл.Бажова, д.15, кор.1, кв.114 с: 
Бабаджанян Л.В. 299-27-92 
Бабкин К.Е. 141-69-83 
Балтян В.К. 232-95-23 
Бирюков В.Ф. 248-84-69 
—=—=—=————- Поиск записи: 

`’Введите шабпон для поиска: 


Гладилина Г.И. 263-28-28 
Гриднев Г.Ф. 222-26-28 
Гусев В.М. 203-95-92 
268-14-26 


Рис.15.12. Окно ввода шаблона поиска 


С помощью этого окна пользователь может задать несколько начальных 
букв, используемых как ключ для поиска записи. Получив данные из этого 
окна, процедура эеагсйет организует поиск первой от начала коллекции 
строки, для которой не выполняется условие 


РаЕфегп >= Тем 


где РаНегп — образец поиска, [ет — текущая строка коллекции. Най— 
денная строка указывается как текущая в поле ГосаНоп и организуется 
вывод соответствующего текста в окне просмотра. 

В реализации процедуры 5еагсАПет указанная проверка осуществляется 
для строк, предварительно преобразованных к прописным буквам с го-— 
мощью внутренней процедуры Ир5п9д, т.е. поиск игнорирует возможную 
разницу в высоте букв шаблона и строк коллекции. 


Ргосеасге беагсПТееп; 

[Ищет нужный элемент} 

Гапс1оп ОрбЕг1па($: $%г1п9): З%хата; 
[Преобразует строку в верхний регистр} 


чах 
к: тоседег; 
ред1п 
Бог К := 1 о Гепа ($) ао 
ЗЕ [К] п ['а'..'2'] &Беп 
5[К] := сЬг (ога ('А'!) +ога ($[К])-ога('а')) 
е1зе 12 $[К] 1п ['а'..'п'!] Бер 
[К] := сх (ога ('А') +оха ($ [К] ) -ога ('а')) 
е1зе 1Е <[К] 21п ['р'..'я'] ЕБеп 


$[к] := сот (ога ('Р') +ога (3[К])-ога('р'))}; 
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ОрзЕг1па := $ 
епа; {ОрбЕг1па} 


уагх 
ТпМ1п: РО1а1о9; 
В: ТВесЕ; 


$: ЭбЕапа; 
р: РТираЕЬ1пе; 
К: Мога; 
Бедап (5беагсрТЕепт} 
К.Азз1ап (15,8,65,16); 
ТрИ1п := Мем (РО1а1о9, 
Тп16 (В, 'Поиск записи:'!)); 
м1 ЕВ ТпИ1п^ ао 
Бед1п 
В.Азз1ат (2,2,47,3); 
р := М№Мем (РТпрае1пе, Т1п1е(8В,50)); 
Тпзег® (р); 
В.Азз1ап (1,1,40,2); 
Тпрзехф (М№ем (РТафбе1, Тп1®(вВ, 
'Введите образец для поиска;:',р))); 
В.Азз1ап (10,5,20,7); 
Тпзеге (Мем (РВаЕ оп, 
101% (В, 'Ввести!, спок, БЕШеЕац1*))); 
В.Азз1ат (25,5,359,7); 
Тизеге (М№ем (РВае оп, 
111% (В, 'Выход', смСапсе1,БЕМ№огма1))); 
Зе1есЕМехе (Га1зе) 
епа; 
1Е ПезкКТор^.ЕхесУ1ем (1ТпИ1п) = стСапсе1 фБеп 
ех1{; 
$ := р^.ПБафба^; 
Госаё1оп := 0; 
иВ11е (Ор5Ег1па($) >= ОрбЕг1па (РЗЕг1па (РЗ^.АЕ (Тоса&1оп))^)) 
апа (Госае1оп < ргеа (Р5^.Соцпе)) ао 
1пс (Тосаё1оп); 
1Е (Госа&1оп < ПОе1$а.У) ох 
(Тосае1оп > ПОе1*а.У+ргеа (5$12е.уУ)) %Ъеп 
>2сго11То (Ре1фа.Х, Госа*1оп) | 
е1зе 
Ргам 
еп; {беагсрТеем} 


15.18. ИТОГИ 


Итак, мы завершили создание диалоговой программы, обслуживающей 
электронную «записную книжку». В ходе ее реализации Вы познакомились 
« некоторыми возможностями диалоговой среды Тито У!Зюоп. Я не стёвил 
себе целью дать здесь подробное описание всех или даже использованных 
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в программе средств Титфо У190оп — этому посвящены остальные главы 
этой части книги. В частности, вне рамок примера остались такие важные 
механизмы, как потоки, ресурсы, препроцессорные и постпроцессорные 
события и многие другие возможности Тито \131оп. Однако уже рас-— 
смотренные средства свидетельствуют о том, что грограммирование в 
Титро У\У151оп существенно отличается от традиционных методов создания 
программ, и это отличие является следствием широкого использования в 
Титро \131оп механизмов объектно — ориентированного программирования. 

Наша программа, насчитывающая всего около 600 строк, обеспечивает 
весьма высокий уровень диалога с пользователем: в ней используются 
командные клавиши, «выпадающие» меню, удобные диалоговые окна, 
поддержка мыши. Думаю, что вряд ли каким —либо другим способом мы 
смогли бы создать столь сложную диалоговую среду программой такого 
объема. Таким образом, Тито У\У131оп является превосходным инструментом 
для разработки диалоговых программ, ориентированных на текстовый 
режим работы экрана. Использование этой срелы в Ваших программах 
резко сократит сроки их создания и повысит качество. 

Разумеется, созданная программа далека от совершенства, однако даже 
в этом виде она, как показывает мой собственный опыт, может быть 
достаточно полезной. При желании ее можно взять за основу создания 
более сложной информационно — поисковой системы. 


Глава 16 


ОБЩАЯ ХАРАКТЕРИСТИКА ОБЪЕКТОВ 


Все свойства Тигоо У1$ю0п заключены в полях и методах входящих в 
библиотеку объектов. Каждый объект предназначен для тех или иных 
целей, поэтому, если Вы хотите использовать какие—то возможности 
Титро У19оп, Вы должны создать и использовать экземпляры объектов с 
нужными Вам свойствами. Этот процесс не представляет никакой слож— 
ности: вспомните обычные переменные или константы Турбо Паскаля; 
если, например, в программе понадобится осуществить преобразование 
строковых данных, Вы объявляете переменную типа 5Ё1п9, для реализации 
математических вычислений — переменную типа Кеа! и т.л. Точно также 
обстоит дело и с объектами: для создания окна Вы можете объявить пе 
ременную типа ТИЛпаот для использования отсортированной коллекции 
строк — переменную типа ТошпаСо[есйолп и т.д. Например: 


уаг 
Муй1паом: ТИ1пдом; 
МуСо11ес&1о0оп: Т5Ехг1п9Со11есе1оп; 


Однако для многих практических применений Вы можете не найти 
среди объектов ТитЬо У1!$1оп такого, который бы имел все нужные Вам 
свойства. В этом случае Вы должны создать новый объект как потомок от 
какого —либо стандартного объекта Тигфо У19оп и наделить его допол— 
нительными свойствами. Если, например, вновь создаваемое окно пред— 
назначено для вывода отсортированных текстовых строк, Вы можете из— 
менить его конструктор ШИ, обеспечив в нем создание и использование 
экземпляра объекта ТотаоСо[есИоп: 


-уре 
Муй1паомТуре = оБзес® (ТИ1п@аом) 
МуСо11есе1оп: Р5&г1п9Со11есё1оп; 
СопзЕгасфог Т1п1(; 
епа; 
сопзЕкгасеог МуМ1паоиТуре.1Тп1*; 
ред1п 
МуСо11есЕзоп := Мем (Р5&г1п9Со1]1есе1оп, Тп1е(...)); 


епа; 


Чтобы выовь создаваемый объект был по возможности простым в 
реализации, он должен наследовать от объекта— родителя максималеное 
количество нужных ему полей и методов. Таким образом, ключом к ис- 
пользованию Татфо \У131оп является знание тех свойств, которыми обладают 
ее стандартные объекты. Изучению объектов посвящена фактически вся 
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эта часть книги, в этой главе мы дадим наиболее общую их характеристи — 
Ку. х 


16.1. СТРУКТУРА ОБЪЕКТОВ 


Все множество объектов Титро \У131оп строится на базе трех прими-— 
тивных объектов: ТРойШЁ, ТКесЁ и ТОБесЕ. Примитивными они называются 
потому, что не являются потомками каких—либо других объектов, но 
используются или могут использоваться как основа порождаемых от них 
деревьев родственных типов (рис.16.1). 


Рис.16.1. Примитивные объекты Тигро У$1оп 


Объекты ТРошЁ и ТЁКесЁё используются для задания координат точки 
(ТРотй и прямоугольника (ТКесй на экране. В Тигфо У1$1юп эти объекты не 
имеют потомства, но используются всеми другими объектами, связанными 
с созданием изображений на экране ПК. Объект ТОБес служит основой 
иерархии всех других объектов Титро У19юп, кроме ТРойЁ и ТЁесЕЁ (см. 
рис.16.2). 

Объект ТОБес| не имеет данных (полей) и содержит три метода: Ши, 
Ётее и Попе. Конструктор ШИ осуществляет распределение памяти и яв- 
ляется основой всех других конструкторов 'Гао \У1$10оп. Метод ЁРгее ос- 
вобождает память распределенную конструктором. Деструктор Допе не 
выполняет никакой работы — это абстрактный метод, который всегда 
перекрывается в объектах — потомках. 


16.2. АБСТРАКТНЫЕ ОБЪЕКТЫ И МЕТОДЫ 


Объект ТОБесЕ никогда не используется самостоятельно и служит ос- 
зовой для начинающегося с него дерева объектов. В Тито У\У131юоп есть и 
другие объекты, не предназначенные для самостоятельного использования 
з программах. Такие объекты называются абстрактными. В правильно 
сконструированной программе никогда не создаются и не используются 
экземпляры абстрактных объектов. Эти объекты просто объединяют в себе 
некоторые общие для всех своих потомков поля и методы. 

Во многих объектах Тито У1$1оп используются абстрактные методы, т.е. 
методы, которые не содержат исполняемых операторов и служат заго — 
зовками для аналогичных методов в объектах — потомках. Абстрактные 
методы всегда являются виртуальными и должны перекрываться в го— 
томках. Например, абстрактными являются деструктор ТОБесЁДопе, ис- 
пользуемый для удаления экземпляра объекта из кучи, метод 
ТэоцеаСоПесйоп.Сотраге, с помощью которого осуществляется сортировка 
коллекций, метод ТСшяег.Ргез$, ответственный за обработку собыгия, 
связанного с выбором элемента управления в диалоговом окне. В боль— 
пинстве абстрактных методов предусмотрен вызов глобальной процедуры 
АБзНась предназначенной для аварийного завершения работы программы 
и выдачи соответствующего диагностического сообщения. 
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Рис.16.2. Иерархия объектов Тигро Уз$оп 


Некоторые методы не являются абстрактными, но предоставляют ляшь 
минимум возможностей и поэтому почти всегда перекрываются в потом — 
ках. Такие методы называются псевдоабстрактными. Примером псевдо — 
абстрактного метода может служить метод Т\еу.Огам, ответственный за 
тлерерисовку видимого элемента: по умолчанию он ничего не делает и 
оставляет выделенную ему часть экрана без изменений. 


16.3. ФУНКЦИОНАЛЬНОСТЬ ОБЪЕКТОВ 


В функциональном отношении все потомки объекта ГОБ]есЕ делятся на 
две группы: видимые элементы и невидимые объекты (рис.16.3). 

Видимые элементы могут быть терминальными видимыми объектами 
или группами видимых элементов. Любой элемент группы в свою очередь 
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может быть группой элементов, однако все группы в конце концов за- 
канчиваются терминальными видимыми объектами. 


ТО ]ес+ 


Терминальные Группы | Поток 
видимые 


видимых 


объекты элементов 


Рис.16.3. Видимые и невидимые объекты 


Все терминальные видимые объекты (или просто видимые объекты) 
являются потомками объекта Т\еу, который придает им специальные 
свойства, отсутствующие у невидимых объектов. Объект Т\Меж — это 
прямой потомок ТОБесЕ (см. рис.16.2), представляющий собой пустую 
прямоугольную область экрана. В программе почти никогда не исполь-— 
зуются экземпляры этого объекта, однако от него прямо или косвенно 
порождаются все видимые элементы — как стандартные для Тигоо У1<1оп, 
так и создаваемые программистом. Каждый порождаемый от Т\Иеи Еи- 
димый объект владеет прямоугольной частью экрана и наследует его 
псевдоабстрактные методы Огам и Нап еЕуепЕ. Метод ПОгам является ос— 
новой специализированных методов, обеспечивающих создание изобра— 
жений. Метод НапаЙеЕует — это центральный метод, с помощью которого 
реализуется цепочка связанных друг с другом обработчиков событий. 
Каждый видимый элемент может обрабатывать связанные с ним собьтия 
— это является одним из важнейших отличительных свойств видимых 
элементов. | 

Семейство невидимых объектов включает в себя потоки, ресурсы, 
контролеры, коллекции и списки строк. Невидимые объекты по существу 
представляют собой обобщение таких важных механизмов Турбо Паскаля, 
как файлы и массивы, учитывающее особенности объектно- 
ориентированных программ. Вы можете использовать невидимые объекты 
в любых программах, в том числе и не пользующихся изобразительными 
возможностями Тигфо \У131оп. В частности, они могут оказаться полезными 
при разработке программ, рассчитанных на графический режим работы 
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дисплея (видимые объекты Титро У19Чоп рассчитаны исключительно на 
гекстовый режим работы). 


16.4. ОБЗОР ВИДИМЫХ ЭЛЕМЕНТОВ 


Видимый объект — это любой объект, который является потомком 
Т\Ует и может быть изображен на экране в текстовом режиме работы 
дисплея. Важным свойством видимых объектов является возможность 
объединения нескольких видимых объектов в группу, рассматриваемую 
как единое целое. Любым элементом группы в свою очередь может быть 
новая группа, в которую могут входить другие группы и т.д., однако любая 
группа видимых элементов всегда заканчивается терминальными види— 
мыми объектами. 


16.4.1. Группы видимых элементов 


Абстрактная группа 


Абстрактная группа — это объект Т@гоир. Этот объект, вообще говоря, 
не является абстрактным, однако его экземпляры практически никогда не 
используются в программах: основное назначение объекта — служить 
основой иерархии родственных объектов пользователя. Хотя группа вла— 
деет прямоугольным участком экрана, она становится видимой только за 
счет визуализации своих элементов. Элементы группы организуются в 
связанный список: каждый элемент имеет поле Оипег, содержащее ука— 
затель на своего владельца, и поле Мех с помощью которого указывается 
следующий элемент списка. 


Панель экрана 


Панель экрана — это объект ТДезКюр, созлающий фоновое изобра— 
жение рабочей зоны экрана. Т)езКюор является прямым потомком Т@гоир 
и, следовательно, может владеть произвольным набором видимых эле-— 
ментов. Заполнение панели экрана осуществляется другими видимыми 
элементами, такими как ТИЛпаот, ТГаод и т.п. Обычно владельцем 
труппы ТРез$Кюор является программа — объект ТАррИсанНоп или его го— 
ТОМКИи. 


Программы 

Все программы, использующие средства Титфо \У1$10оп, должны поро-— 
ждаться от объекта ТРгодгат или его единственного потомка ТАррПсапоп. 
(ба объекта создают на экране стандартное изображение строки меню, 
панели экрана и строки статуса, т.е. являются владельцем группы, со— 
стоящей из ТМепиВаг, ТРезКюр и ТУаш$Шпе (рис.16.4). 

ТАррПсайоп отличается от своего родителя только методами ШИ и Ропе, 
с помощью которых осуществляется инициация основных подсистем Тито 
\У131оп и их закрытие: 


СопзЕхоасвог ТАрр11сае1оп.Тп1е; 
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Бед1п 
Тп1ЕМепохгу; 
Тп16\У1аео; 
Тп1ЕЕуепе$; 
Тп16бузЕггохг; 
Тп1ЕН1$богу; 
ТРгодам.Тп1 Е 

ера; 

Резёхас®охг ТАрр11сае1оп.Попе; 

Бед1п 
ТРгодгат.рРопе; 
РопеН1$5$огу; 
Ропезуз5Ехггог; 
РопеЕуеп{ 3$; 
Ропе\У14ео; 
РопеМетогу 

епа; 


_ Строка меню 


Панель экрана -—-———» 


Строка статуса —_ ОИ 


Рис.16.4. Стандартная группа ТРгодагт 


Обычно программа пользователя связывается с экземпляром 
ГАррПсаНоп или его потомка. Если Вас не устраивает стандартная после — 
довательность инициации и закрытия подсистем Того У131оп, Вы должны 
создать и использовать потомка от ТРгодгат. 


Окна 


Для создания и использования окон в Титфо У1$1оп предусмотрен объект 
ГИЛпаом. Обычно этот объект владеет объектом ТЁРгате и поэтому очер— 
чивается прямоугольной рамкой со стандартными кнопками изменения 
размера и закрытия. Вы можете перемещать окно, изменять его размеры и 
закрывать используя методы Т\Уемж или перекрывая их собственными 
методами. Если окно имеет номер от 1 до 9, его можно сделать активным 
(выбрать) командными клавишами АЙЁ-— №, гле М — номер окна. Если окно 
имеет несколько видимых элементов, его обработчик событий интерпре-— 
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тирует нажатие на клавиши Та и 5ШИ- ТаБ как команду активизации 
следующего (предыдущего) видимого элемента. 


Диалоговые окна 
Объект ТО!а]од порожден от ТИЛпао\м и предназначен для реализации 
взаимодействия с пользователем. В отличие от ТИЛпао\ диалоговое окно 
не может изменять свой размер (но может перемещаться по экрану). Его 
обработчик событий генерирует команду стСапсе!| в ответ на нажатие 
клавиши ЁЕзс (или воздействие мышью на кнопку закрытия) и команду 


стреюи! в ответ на нажатие ЕпЕг. 


16.4.2. Терминальные видимые объекты 


Рамки 


Для создания рамки окна и кнопок изменения размера окна и его за- 


крытия предназначен объект ТЁРгате (рис.16.5). 

Этот объект никогда не используется самостоятельно, но только в 
группе, связанной с объектом ТИПпаом. Последний имеет поле Егате с 
указателем на ассоциированный объект ТЁЕгате. 


Кнопка Кнопка 
закрытия окна распахивания окна 
[8] [1] 


Кнопка 
изменения размеров 


Рис.16.5. Рамка окна (объект ТЁЕгате) 


Кнопки 
Объект ТВиИоп — это прямоугольник с надписью, имитирующий 
кнопку панели управления. Обычно ТВийоп является элементом грулпы 
'ГР1а]109 и «нажатие» на кнопку инициирует событие, связанное с каксй— 
либо стандартной командой или командой пользователя. 
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Кластеры 


Кластеры представляют собой прямоугольные видимые элементы, 
имитирующие несколько зависимых или независимых кнопок (см. 
рис.16.6). 


Устройство вывода: Вип копии: 


[Хх] Инверсная — 
[Хх] Горизонтальная 
С ] Перевернутая 


Экран 


С) 
(+) Принтер 
( ) Файл 


а) 6) 


Рис.16.6. Примеры кластеров: а} с зависимыми кнопками; 6) с независимыми кнопками 


Для создания и использования кластера предусмотрен абстрактный 
объект ТСш5ег и его потомки ТВаатоВиНоп$, ТСВесКкВохез и 
ТМшисСВескВохез. Объект ТСШ№и$ег имеет 16—разрядное поле Ущие, ка- 
ждый разряд которого связан со своей кнопкой в кластере. Его потомки 
отличаются способом изменения состояния этих разрядов: ТКа1оВиНоп$ 
устанавливает содержимое разряда выбранной кнопки в 1, предварительно 
очистив поле Уаше, а ТСрескВохез переключает его содержимое, сохраняя 
остальные разряды неизменными. Многопозиционная кнопка 
ТМшнсСВесКВохез может иметь от одного до 8 связанных с ней разрядов в 
поле Уаше. Количество разрядов зависит от количества возможных со-— 
стояний кнопки, которых может быть до 256. 

Таким образом, кластер может содержать до 16 кнопок и выбирать один 
из возможных вариантов (объект ТКаоВиНоп$} или несколько вариантов 
(ТСВесЕВохез и ТМшШИСВесКВохе$). Аля переключения кнопок используется 
мышь или клавиатура. В последнем случае клавишей ТаБ выбирается 
нужный кластер, а клавишами смещения курсора — нужная кнолка; 
состояние выбранной кнопки меняется нажатием на клавишу Пробел. 


Меню 


Для выбора одного из нескольких возможных продолжений в диало-— 
говых программах широко используются меню. Объект ГМепи\еи и его 
потомки ТМепиВаг и ТМепиВох существенно упрощают создание и ис- 
пользование меню в среде Тито У131оп (рис.16.7). 

Любая программа в Тито У15$1оп всегда владеет строкой меню. Пере-— 
крывая ТАррПсайоп.тИМепиВаг, Вы можете использовать метэды 
М№ембиБ/Мепи, М№еиПет и МеиШте, чтобы создать и использовать сзою 
систему вложенных меню. 
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Г/ Файл Ч” Работа: — 


Открыть 
Закрыть 


Сменить диск - 


Вызов ПОС 
Конец работы й1%-Х 


Рис.16.7. Пример меню 


Строки ввода 


Для ввода различных текстовых строк с клавиатуры ПК в Тито У!91оп 
используется тип ГтриИипе (рис.16.8). Использование этого объекта дает в 
распоряжение пользователя мощные возможности встроенного редактора, 
обрабатывающего алфавитно — цифровые клавиши, клавиши перемещения 
курсора влево/вправо, а также клавиши ВасК5расе, Ре! шзеп, Ноте, Епа. 


ПИ 


Введите имя файла. 
. да ва о 


Рис.16.8. Пример строки ввода 


Протокол ввода 


Абстрактный объект ТЕ$ю0гу реализует механизм выбора строки вкода 
из списка ранее введенных строк (из протокола ввода). Объект ТН:50гу 
обычно ассоциируется с объектом ТшриНМате и становится доступны: с 
помощью клавиши смещения курсора вниз (см. рис.16.8). Протоколы врода 
запоминаются в динамической памяти в виде связанных списков и им2ют 
идентификатор (поле Н15югу)), позволяющий использовать один и тот же 
протокол в нескольких объектах ГТтриШте. 


Скользящие окна (скроллеры) 


С помощью объекта ТбсгоЙег реализуется так называемое скользяцее 
окно, Т.е. окно с текстом, положение которого (текста) относительно 
траниц окна может меняться. Условимся для краткости такие объекты в 
дальнейшем называть скроллерами, а процесс смещения текста в окне — 
скроллингом. В общем случае размеры окна скроллера могут быть зна— 
чительно меныше полных размеров просматриваемого текста: средства 
скроллера дают возможность вывести на экран любой фрагмент текста. 
Обычно скроллеры объединяются в одну группу с объектами Т5сгоПВаг, 
представляющими собой горизонтальную или вертикальную полосу. Эти 
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полосы (полосы скроллинга) указывают положение окна относительно 
полных границ текста и используются для реализации скроллинга с по- 
мощью мыши. Скроллинг текста осуществляется также в ответ на нажатие 
клавиш смещения курсора и клавиш РдОр, Ра)п, Ноте, Епа, СШ- РаОр, 
СШ- Рарп. 

Потомки ТосгоПег — объекты ТТехФе\се и ТТегтта! облегчают реа— 
лизацию скользящих окон специального вида: объекты содержат методы, 
обеспечивающие запись текстовых строк в скроллер и чтение этих строк 
из него. Объект ТТегийта! отличается от своего родителя наличием внут— 
реннего кольцевого буфера, предназначенного для запоминания текстовых 
строк, и соответствующих методов доступа к буферу. Размер буфера не 
может быть больше 64 Кбайт. Типичное применение этих объектов — 
реализация так называемых драйверов текстовых устройств. Например, 
можно связать существующий текстовый файл с объектом ТТегтша! и 
обеспечить непосредственное считывание строк файла в окно скроллера. 


Просмотр списков 


Абстрактный объект ТМИ5И7етжег предоставляет в Ваше распоряжение 
средства просмотра списка строк и выбора из этого списка нужной стро — 
ки. Списки строк выводятся в окне, управляемом полосами скроллинга. 
Типичное применение объектов ТИ5ЁГИЛетег — просмотр списка файлов. 
Обычно для этих целей используется потомок Т5ЁТЛетжег — объект 
ТИЯВох, с помощью которого списки файлов выводятся в одну или не-— 
СКОЛЬКО КОЛОНОК. | 


Статический текст 


Объекты ТУайсТех{ — это терминальные видимые объекты, исполь— 
зуемые для вывода текстовых сообщений. В отличие от строк, созданных 
непосредственным обращением к процедуре ИтиеЁп, текстовая строка 
объекта ТУайсТех{ может входить в группу видимых элементов (например, 
окно) и управляться этой группой. Статический текст игнорирует любые 
события, посланные к нему. Типичное применение ТУансТех{ — создание 
различного рода информационных окон или поясняющего текста в диа— 
логовых окнах. 


Строки статуса 


Самая нижняя строка экрана в Ти фо У131оп представляет собой строку 
статуса. Эта строка создается с помощью объекта Ту аш$Ипе. Строка 
статуса обычно содержит список наиболее важных командных клавиш. 
Элементы строки можно также выбирать мышью. Содержание строки 
статуса может изменяться в зависимости от контекста программы. Для 
этих целей в объекте предусмотрено поле Пе!5, содержащее указатель на 
связанный список типа ТЗав$Л)еЁ В каждом элементе этого списка есть 
два поля Мш и Мах, залающие диапазон контекста для данного варианта 
строки. Контекст программы определяется полем ТМеи.Нерсьв. 
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16.5. НЕВИДИМЫЕ ЭЛЕМЕНТЫ 


16.5.1. Потоки 


Поток — это обобщение процедур ввода/вывода данных. Потоки имеют 
все необходимые методы, позволяющие им правильно обрабатывать любые 
наборы данных, в том числе — экземпляры объектов Тагро У131юп. Базовый 
абстрактный объект Тойеат служит основой для специализированных 
потоков. Он имеет поле 5{а 5$, определяющее режим доступа к данным 
(только чтение, только запись или и чтение и запись одновременно). В 
объекте предусмотрено 7 абстрактных методов: Е№ш$В, Се!Ро$, де ге, Кеаа, 
оееЕ, Тгипсще и УЦе. Это методы должны перекрываться в потомках 
Тэнеат для того, чтобы придать потокам необходимые свойства. Перед 
использованием любого вновь созданного объекта в потоке его необходимо 
зарегистрировать. В ходе регистрации объекта ему приписывается уни— 
кальный идентификатор, позволяющий Тигфо У1$1оп автоматически рас— 
познавать тип данных, циркулирующих в потоке. Каждому стандартному 
объекту Тифо У131оп уже приписан уникальный номер в диапазоне от 0 до 
99. Аля регистрации вновь создаваемых объектов программист может 
использовать номера от 100 до 65535. 


Потоки рО5 


ТРО55Иеат — это специализированный поток, реализующий небуфе — 
ризованный ввод/вывод. Метод ШИ этого объекта позволяет создать новый 
или открыть уже существующий дисковый файл, задав его имя и режим 
доступа. В объекте перекрываются все абстрактные методы Т5Шиеат за 
исключением Т5Неат.Ни5$Н. В большинстве программ удобнее использовать 
буферизованный поток ТВибйеат, порожденный от ТДО$5еат. 


Буферизованные потоки 


ТВиБбиеат реализует буферизованную версию ТРО55Неат. Наличие 
знутреннего буфера существенно увеличивает скорость доступа к данным. 
Объект перекрывает абстрактный метод Т5йеат.Ни5$Р, используемый для 
выталкивания данных из буфера. Выталкивание данных означает чтение 
(запись) данных из буфера перед закрытием потока и очисткой буфера. 


Потоки ЕМь 
Объект ТЕЛМ55Неат реализует обмен данными с так называемой ЕМ$ — 
памятью (ЕМ5$ — от Ехрапаеа Метогу 5ресшсаНоп — спецификация 


расширенной памяти, т.е. оперативная память превышающая основные 
для ДОС 640 Кбайт). Новые поля этого объекта содержат обработчик ЕМ$, 
число страниц, размер потока и текущую позицию внутри него. 


Ресурсы 


Файл ресурсов (объект ТКезоигсеЕЦИе) — это специальный вид потока, 
элементы которого могут индексироваться с помощью строковых ключей. 


428 Глава 15 


При сохранении в потоке очередного элемента (объекта) ему приписы -— 
вается текстовая строка, которая идентифицирует этот элемент. Для бы- 
строго поиска нужного элемента поток сохраняет в дисковом файле стро — 
ки — индексы в виде отсортированной коллекции строк вместе с указателем 
на положение в файле индексируемого элемента и его размером. 

Основное назначение файла ресурсов — обеспечение относительно 
простого способа доступа к диалоговым элементам. Например, вместо того, 
чтобы создавать диалоговое окно в точке ветвления программы, можно 
прочитать это окно из заранее подготовленного файла ресурсов. 


16.5.2. Коллекции 


ТСоПесНоп реализует набор элементов, подобный массивам языка Турбо 
Паскаль. В отличие от массивов, содержащих элементы одного какого — 
либо типа, коллекции обладают свойством полиморфизма, Т.е. могут 
хранить данные разного типа, в том числе и разные объекты. Коллекции 
размещаются в динамической памяти, поэтому их размер может быть 
больше 64 Кбайт. Кроме того, размер коллекции может динамически из— 
меняться в ходе работы программы. К каждому элементу коллекции можно 
обратиться по его номеру (индексу). | 


Отсортированные коллекции 


С помощью объектов ТбопеаСоНесИоп организуются коллекции, эле— 
менты которых упорядочены (отсортированы) по какому—либо признаку. 
Объект содержит абстрактный метод Сотраге, с помощью которого 
осуществляется упорядочение. Этот метод должен перекрываться для за— 
дания нужного способа сортировки элементов коллекции. Метод шзец 
обеспечивает вставку новых элементов в коллекцию с учетом принятого 
упорядочения. Метод 5еагсй осуществляет поиск заданного элемента ме— 
тодом двоичного поиска. 


Коллекции строк 


ТбнтоСоПесНоп представляет собой модификацию своего родителя 
Г5оцеаСоЦесНоп, обеспечивая лексикографическое упорядочение строк. 
Метод Ргеейет удаляет нужную строку, сохраняя упорядочение строк. Для 
записи новых строк в коллекцию и чтения строк из нее объект имеет 
методы РиШет и Сдешет. 


Коллекции ресурсов 


Объект ТЁВезоигсеСоПесНоп порожден от ТэйтаСоЙесНоп и используется 
з объекте ТАезоигсеЕИе (файл ресурсов} для реализации коллекции ре— 
сурсов. При использовании коллекции ресурсов создается и поддержи -— 
вается индексная служба в виде отсортированных строк, Т.е. метод 
Сотраге этого объекта поддерживает лексикографическое упорядочение 
строк. 
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16.5.3. Списки строк 


Объект Т5па5 реализует специальный вид строкового ресурса, в 
котором к строкам можно обращаться с помощью числового индекса. Поле 
СоипЁ содержит число строк в объекте. Этот объект упрощает создание 
многоязычных диалоговых программ, т.к. с его помощью можно обра-— 
щаться к любой текстовой строке по ее индексу. В объекте предусмотрен 
метод Сер осуществляющий чтение нужной строки. Для создания списка 
строк и добавления к нему новых строк используется объект Т5И[51 Макет. 


16.5.4. Контролеры 


Абстрактный объект ТУаПНааог и его потомки образуют группу объ— 
ектов — контролеров. Общее назначение этих объектов — осуществление 
контроля за клавиатурным вводом пользователя. Они связываются с 
объектами типа ТЕЧШог и активизируются при выполнении ТЕаПог. УаПа. 
Получив управление, контролеры проверяют соответствие введенных 
данных определенным требованиям и блокируют завершение ввода, если 
обнаружена ошибка. Объекты — контролеры избавляют программиста от 
рутинной работы, связанной с программированием контроля наиболее 
популярных форматов вводимых данных. 


ГГайааюг 


Абстрактный объект ТУаПааюг инкапсулирует основные свойства всех 
объектов — контролеров. Его метод УаПА вызывается из одноименного 
метода редактора ТЕЧИог и обращается к абстрактному методу 
ТУапааюг.15 УаПа, чтобы осуществить необходимый контроль. 


ГРХРсииге Гайаа1ог 


Объект ТРХРисшгеУаПааюг проверяет введенную пользователем строку 
на соответствие некоторому эталонному образцу ввода. Образец задается в 
виде текстовой строки, подготовленной в соответствии со спецификапией 
(СУБД Рагааох корпорации ВоПапа. 


ГЕИег Райааюг 


Этот объект проверяет все символы, введенные пользователем, на 
соответствие набору допустимых символов. Если хотя бы один введенный 
символ не соответствует ни одному из символов эталонного набора, метод 
'ГЕШегУаПааюг.15 УаПа вернет значение Ра/5е и таким образом будет бло — 
кирована попытка пользователя закрыть объект ГЕаПог. 


ГКапее Гайааюг 


Объект ТКапдеУаПааюг порожден от ТЕШегУаПааюг. Он преобразует 
символьный ввод в целое число и проверяет, нахолится ли оно в заданном 
диапазоне М...Мах значений. Его метод 1[5УаПА возвращает Тгие только в 
том случае, когда введенные пользователем символы соответствуют 
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внешнему представлению целых чисел, а само введенное число М удов-— 
летворяет условию Мах>=М№>=Мш. 


ГГоокКир Гайажюг 


Абстрактный объект ТГоокирУаПааюг предназначен для контроля со-— 
ответствия введенной пользователем строки набору эталонных строк. 
Фактически он молифицирует поведение ТУаПааг в случае, когла про — 
веряется произвольная текстовая строка. В его потомках должен пере— 
крываться метод ГооКир, осуществляющий нужный контроль. 


ГттеГооКир Райааюг 


Объект Т5ШтаГоокирУаПаеюг порожден от ТГоокирУайааюг и осу- 
ществляет контроль введенной пользователем строки, сравнивая ее с на- 
бором допустимых строк из отсортированной коллекции строк. 


Глава 17 


ВИДИМЫЕ ЭЛЕМЕНТЫ 


Любой видимый элемент Тигфо У1$1оп имеет два важнейших свойства: 
он полностью контролирует изображение в пределах выделенного ему 
участка экрана и знает, как обрабатывать связанные с этим участком 
события — нажатие на клавиши или отметку мышью. Эти свойства оп-— 
ределяются двумя псевдоабстрактными методами объекта Т\ем (тот 
объект является родителем всех остальных видимых элементов Тото 
\1$1оп): Ога и Напа!еЕуепЕ Метод Огаи знает, как рисовать объект, но не 
знает, когла это нужно делать. Метод Нап ]еЕуеп наоборот, знает когла, 
но не знает как. Эти методы в наибольшей степени воплощают основной 
принцип программ, управляемых событиями: процесс создания изобра— 
жений и процесс обработки событий — это два разных процесса в том 
смысле, что в первом случае мы сообщаем программе как создается изо — 
бражение, а во втором — когда это нужно делать. Обработке событий 
посвящена следующая глава. 

В этой главе мы рассмотрим некоторые детали технической реализации 
видимых элементов, которые дадут нам возможность разобраться в том, 
что именно делает видимый элемент и как он это делает. Эти сведения 
помогут Вам правильно использовать видимые элементы в Вашей про- 
грамме. 


17.1. ТЕРРИТОРИАЛЬНОСТЬ 


Видимый элемент владеет прямоугольным участком экрана. Правильно 
сконструированный элемент обязан заполнять нужным изображением всю 
выделенную ему область, иначе на экране останется «мусор». Чтобы 
элемент мог заполнить область, он должен знать координаты закреп— 
ленного за ним участка. Эти координаты хранятся в двух полях — Опа и 
3{2е, каждое из которых имеет тип ТРошЁ Поле Опдт задает координаты 
левого верхнего угла области, выделенной элементу, поле 512е — размер 
этой области, т.е. показывает на каком расстоянии от Ойдфт находится его 
правый нижний угол. Минимальный по размеру видимый элемент, ко— 
торый может хоть что —то вывести на экран, имеет 517е.Х = $12е.У = 1. 

Объект ТРой{ крайне прост, он только определяет координаты неко — 
торой точки на экране и не имеет никаких методов: 


фуре 
ТРо1пЕ = оБзес®е 
Х: Трпёедег; {Горизонтальная координата} 
У: Тпбедег; {Вертикальная координата} 


епа; 


Координаты в Тшфо У!39оп имеют две особенности. Во-первых, они 
указывают позицию на экране, начиная с 0, а не с 1, как это принято в 
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стандартных для Турбо Паскаля подпрограммах работы с текстовым эк-— 
раном (например, СоюхУ из модуля СКТ). Во-вторых, все координаты 
задаются относительно границ той группы видимых элементов, в которой 
создается и используется новый элемент. В Титро У15оп любой видимый 
элемент входит в состав какой-то группы, поскольку все элементы в 
конечном счете принадлежат программе, которая сама по себе является 
группой. 

Для указания всех четырех координат видимого элемента и действий 
над ними используется тип ТКесЁ следующего вида: 


фуре 

ТВес®* = оБЗес® | 

А: ТРо1пе; {Левый верхний угол } 

В: ТРо1пе; {Правый нижний угол} 

Ргоседиге Азз1ап (ХА, УХА, ХВ, УВ: Тпфедег); 

{Назначает значения параметров полям А и В} 

Ргосеаиге Сору(В: Тгес®); 

{Устанавливает все поля, равными прямоугольнику Е} 

Ргосеаиге Моте (АПХ, АРУ: Тпеедег); 

{Смещает прямоугольник, добавляя АПХ к А.Х, В.Хи 

АРУ кА.У, В.У)} 

Ргосе4иге Сгом(АШХ, АПУ: Тпфедег); 

{Изменяет размер, вычитая АПХ из А.Х и прибавляя АПХ к В.Х; 
вычитая АДУ из А.У и прибавляя АПУ к В.У} 

Ргоседиге Тптегзесе (В: ТВесё); 

{Изменяет положение и размер прямоугольника до области, 
определенной пересечением К и текущего положения элемента} 

Ргосеаике Оп1оп (ВК: Тгес®); 

{Изменяет прямоугольник до области, определяемой 
объединением ВК и текущего положения элемента} 

РКапсЕ1оп Сопеа1п$(Р: ТРо1п®): Воо1еап; 

{Возвращает ТКОЁЕ, если точка принадлежит элементу} 

Еипс1оп Едиа1$ (В: Тгес®): Воо1еап; 

{Возвращает Тгие, если положение и размеры прямоугольника К 

и элемента одинаковы} 

Еипсё1оп Епреу: Воо1еап; 

{Возвращает ТКОЕ, если элемент пустой, т.е. если его поля 
512е.Х и $12е.У равны нулю} 

па; 


С помощью полей Омпег^.Ог1а1п и Омпег^.51хе видимый элемент 
может определить положение и размер своего владельца, т.е. той группы, в 
состав которой он входит, а с помощью метода 


Ргосед4аге СеЕЕхтепа (уаг В: Тгесу®) 


получить в В свои текущие координаты (напомню, что положение и раз— 
меры большинства видимых элементов могут меняться в ходе работы 
ИФ ограммы). Обычно обращение к СсыЕжепа используется перед тем, как 
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задать максимально возможные координаты вновь создаваемого видимого 
элемента. Например, если внутри окна ТИ/шаоу нужно поместить 
скроллер так, чтобы он занял всю внутреннюю часть окна, можно ис-о 
пользовать такой фрагмент: 


фуре 
МуМ1паом = оБзесе (ТМ1паом) 
СопзЕгас бог Тп1(; 


епа; 
СопзЕгасвок МумМ1паом. Тп1(; 
\аг 

5: Р5сго11ех {Указатель на скроллер} 

В: ТВесЕ; 

Н$, \У5: Рзсго11Ваг; {Указатели на полосы скроллера} 
Бед1п 

СееЕхЕепа (В); {Получаем координаты окна} 

В.Сгом (-1,-1); {Уменьшаем их на 1} 

5 := №м (Рбско1Тек, 

1016 (5, Н$, \5)); {Создаем скроллер} 

Тпзег® (5); {Помещаем скроллер в окно} 

епа; 


17.2. ВЫВОД ИЗОБРАЖЕНИЯ 


17.2.1. Заполнение области 


Вилимый элемент может быть частично или полностью перекрыт 
другими видимыми элементами. Тигро У131оп позволяет располагать скна 
за экране в произвольном порядке, в том числе и накладывая их друг на 
друга. С помощью метода 


Ргосеацке СефС11рВесЕ (уаг В: ТВес®) 


видимый элемент может получить координаты минимальной площзди, 
которую он должен заполнить в данный момент. Обращение к Се СПрЗес 
обычно используется в методе Огаи и позволяет до минимума сократить 
время обновления информации на экране. 

Следует помнить что в правильно построенной программе никакой 
другой видимый элемент не должен вторгаться в область владения данного 
элемента. Поэтому, если видимый элемент не заполнит всю выделенную 
ему область этого за него не сделает никто другой и незаполненная 
область окажется «замусоренной» предыдущим выводом в эту часть экра— 
на. 
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Для вывода на экран не рекомендуется использовать стандартную 
процедуру ИтИе (Итие[Гп), т.к. она заполняет только ту часть экрана, ко-— 
торая необходима для вывода, в то время как длина строки в видимом 
элементе может быть больше строки вывода. С другой стороны, эта про— 
цедура игнорирует границы видимого элемента и может «залезть» в чужую 
область. 

Вывод в Тао У13юп основан на применении методов МоуеСВРаг, 
Моуебт и ИтйеЙпе. Все три метода используют переменную типа 
ТОгаиВиНег в качестве буфера видеопамяти. Метод МоуеСвпаг заполняет 
буфер нужным символом, например, пробелом или символом СрРаг (# 176) 
— этим символом заполняется фон панели экрана. Метод Моуе5 пере — 
носит в буфер строку (подстроку), а метод ИтИейте переносит буфер в 
видеопамять и таким образом осуществляет собственно вывод на экран. 

Тип ТОга"Вийег представляет собой массив слов: 


фуре 
ТРгамВаЕЕег = акгхау [0..МахУ1ем\1аев-1] оЕЁ Мога; 


Константа Мах МеинИЛОШ определена в интерфейсной части модуля Уеиз$ и 
устанавливает максимально возможную длину вывода (132 символа). 
Элементы массива задают двухбайтные последовательности, используемые 
в видеопамяти ПК для размещения кода выводимого символа (младший 
байт) и его атрибутов (старший байт). Байт атрибутов определяет цвет 
выводимого символа и цвет фона, а также содержит признак мерцания 
(рис.17.1). 


2? 6 эээ 2 1 В 


и. Цвет фона Цвет символа 


Рис.17.1. Байт атрибутов видеопамяти 


При обращении к методам МоуеСвВаг и Моуе5бШ байт атрибутов задается 
з качестве одного из параметров обращения. Его можно получить с го-— 
мощью функции Се Со]ог параметр обращения к которой определяет 
нужный номер элемента палитры. 


17.2.2. Цвет изображения 


Все цвета в Тито У19юп определяются системой палитр: за каждым 
стандартным видимым элементом закреплен свой набор условных номеров 
цветов, называемый палитрой. Размер палитры (количество определенных 
для видимого элемента цветов) зависит от функциональности элемента: 
чем сложнее элемент, чем больше функций он выполняет, тем богаче его 
палитра (каждому элементу палитры приписывается некоторая функ-— 
циональность: один элемент ответственен за фон изображения, другой — 
за текст, третий выделяет специальные символы и т.д.). Например, для 
скроллера палитра состоит всего из двух элементов: первый элемент оп-— 
ределяет цвет основного текста, второй — цвет выделенного текста. 
Обычно скроллер входит в качестве терминального видимого объекта в 
группу, палитра которой будет больше. Например, часто скроллер по— 
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мещается в окно ГИ/тао\, палитра которого насчитывает уже 8 элементов 
(см. рис.17.2). 


Рамка пассивна 

Рамка активна 

Кнопка рамки 

Страница Т5сго | ]ег 

Полоса управления Т5сго ег 
Нормальный текст Тъсго 1] ег 
Выбранный текст Тъсго ег 
| [Г Зарезервировано 


ея Палитра Тулон 


Подсвеченный текст 


Нормальный текст 
Рис.17.2. Связь палитры Тосгойег с палитрой ТИПпаом 


Палитры образуют систему связанных друг с другом ссылок: каждый 
элемент палитры содержит не какой-то конкретный цвет или его код, а 
целое число, указывающее на номер элемента в палитре своего владельца. 
нсли владелец входит в группу, содержимое его палитры устанавливает 
связь с нужными элементами палитры этой группы и т.д. Ссылки за— 
звершаются на «владельце всех владельцев», т.е. на программе: только па-— 
литра ТРгодгат и его потомков содержит не ссылки, а сами байты цве— 
товых атрибутов. 

Пусть например, при формировании изображения в методе Пгам. 
скроллера выбран первый элемент палитры (нормальный текст). Этот 
элемент содержит число 6, указывающее номер шестого элемента палигры 
владельца ТосгойЙег. Если владельцем скроллера является объект ТИ/шдоу, 
это число означает ссылку на шестой элемент палитры ТИ/таот,, который 
содержит число 13 как ссылку на тринадцатый элемент владельца скна 
(рис.17.2). Если, наконец, владельцем окна является программа, то число 13 
— это ссылка на тринадцатый элемент палитры ТРгодгат, который со- 
держит байт атрибутов $1Е, т.е. символы будут выводиться желтым цветом 
на синем фоне (рис.17.3). 

Чтобы получить цвет элемента, используется обращение к функции 
зе!Со]ог. Эта функция просматривает всю цепочку ссылок от текущего 
видимого элемента до программы и найденный таким образом байт ат- 
рибутов из палитры ТРгодтат возвращает в качестве результата. Пара— 
метром обращения к функции является номер элемента палитры видимого 
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объекта. Если указан номер несуществующего в ланной палитре элемента, 
функция вернет атрибуты 5СЕ и изображение будет выводиться мигаю — 
щими белыми символами на красном Фоне. Такого сочетания цветов нет 
ни в одной стандартной палитре, поэтому появление мигающих бело -— 
красных символов на экране сигнализирует о непредусмотренном раз— 
работчиками 'Гигбо У!15юп функциональном использовании элемента. Если, 
например, вставить кнопку ТВиНоп в текстовое окно ТИЙЛпао\т, то окажет— 
ся, что первый элемент палитры ТВиИоп (нормальный текст кнопки) 
ссылается на 10—й элемент палитры владельца, в то время как в палитре 


ТИтаот\ только 8 элементов. 


ССо1 ог | [Зара 1534 |334. 

9 9 19 11 12 13 14 15 
Рамка пассивна -1 | к Зарезервировано 
Рамка активна Выбранный текст скроллера 
Кнопка рамки Нормальный текст скроллера 


Страница скроллера Зарезервировано 


Рис.17.3. Фрагмент палитры ТРгодтат 


Чтобы изменить цвет изображения, нужно либо изменить ссылку в 
палитре элемента или его владельца, либо сменить атрибут цвета в палитре 
ТРгодтат. На практике обычно меняют палитру ТРгодгат, т.к. она опре- 
деляет цвет всех родственных элементов. Например, если Вы измените 
элемент палитры, ответственный за цвет основного текста в окне, одно — 
зременно все окна изменят свой цвет нужным образом, что, по всей ви 
димости, будет логически правильным. 

Палитры ТиатБо У1$1оп задаются в виде обычных текстовых строк. Это 
дает возможность применять к палитрам все операции и преобразования, 
которые используются при работе со строковыми данными. Для изменения 
К —го элемента палитры ТРгоодтат следует изменить К— ый символ в строке, 
указатель на которую возврашает функция Се Рене. Пусть, например, 
нам нужно, чтобы во всех окнах скроллера стандартный цвет текста 
(желтый на голубом фоне) был заменен на белый на черном фоне. Тогда 
можно использовать такой прием: 


175ез Арр,...; 
суре 
ТМуРгодгам = оБЗесЕ (ТАрр11сае1оп) 
СопзЕгасвок 1п1(; 
епа; 
СопзЕгасог ТМуРгоакам. Тп1{; 
>ед1п 
СееРа1еф+е^ [13] := #$0Е; [Задаем белый цвет на черном фон} 
ТАрр11саЕе1оп.Тп1 {Инициируем программу} 
ела; 
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В этом фрагменте в конструкторе ТМуРгодтат.тИ осуществляется за— 
мена 13—го элемента палитры: этот элемент отвечает за цвет основного 
текста скроллера (см. рис.17.3). После такого изменения во всех скрол-— 
лерах программы основной текст будет выводиться белыми символами на 
черном фоне. 

Для изменения палитры видимого элемента только одного типа нужно 
перекрыть его метод Се РаеНе. Допустим нам необходимо, чтобы скроллер 
рисовал основной текст таким же цветом, как полосы скроллера. В этом 
случае мы должны посмотреть, каким по счету элементом в палитре окна— 
владельца скроллера определяется цвет полос: в нашем примере это эле-— 
мент с номером 5. Таким образом, палитра скроллера должна содержать 
значения 5 и 7 вместо прежних 6 и 7 (см. рис.17.2). Создадим новый 
объект: 


фуре 
ТМу$сго11ег = оБЗесе (Т5$сго11ег) 
РГипсё1оп СееРа1ееее: РРа1ебее; \1г®чаа1; 
епа; 
РГипсЕ1оп ТМубсго11ег.СееРа1е + е: РРа1её*е; 
сопзЕ 
МемСо1охз = #547; 
МемРа1е $е: З&к1па [2] = М№емСо1огз; 
Ъед1п 
СееРа1ек ее := @МемРа1еефе 
епа; 


Существует и менее универсальный, но более простой путь изменения 
цвета только в одном видимом элементе. Как мы знаем, изображение этого 
элемента в конечном счете формируется в его методе Огам; если этот 
метод перекрывается в Вашей программе, а в некоторых случаях, на— 
пример в скроллере, он должен обязательно перекрывается, то можно 
зоздействовать на цвет непосредственно при обращениях к процедурам 
МоуеСраг и Моуе5б. Например: 


фуре 
Му5сго11ех = офздесе (Т5сго11ех) 
Ргосеаиге Пгам; \1г61а1; 
епа; 
]2?2госеааге Мубсго11ег.Огам; 
‘тах 
Со1ог: Ву&е; 
]>ед1п 
(* Со]огк := СеЕСо]ог(1); {Стандартный цвет скроллера} *), 
Со1ог := $0Е; (Задаем белые символы на черном фоне} 
МоуеСпаг(...,...,Со10х,...); 
Моуебек (...,...,Со1Тог); 
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В этом примере в строке комментария (* ..... *) указывается 
обычный способ получения стандартного цвета основного текста скролле — 
ра. Вместо этого желаемый цвет задается нужными атрибутами в пере-— 
менной Со]ог, которая затем используется при обращениях к процедурам 
МоуеСваг и МоуебИ.. 

Палитра ТРгодгат насчитывает 63 элемента и учитывает все возможные 
функциональные действия, осуществляемые видимыми элементами (см. 
прил.[16). Более того, этот объект на самом деле имеет три 63 — элементных 
палитры: ССо]ог (цветная палитра), СВаскИТйе (черно-белая) и 
СМопоСИготе (монохромная). В установочной секции модуля Уе\мз на 
основе тестирования аппаратных средств ПК из этих палитр выбирается 
рабочая палитра, которая затем и будет использоваться при формировании 
изображений. При необходимости Вы можете переустановить палитру 
ТРгодтат с помощью глобальной процедуры зе И4еоМоае, например: 


Ргодгам МуРгоагап; 
Озез \У1ем5,....; 
\агх 

Ма1п: ТАрр11са®1оп; 


Бед1п {Начало основной программы} 
Зее\14еоМоаде (зпВ\80); {Выбрать черно-белую палитру} 
Мазп.1п1%; {Инициация программы} 

епа; 


Обращение к 5е/У4еоМоае должно предшествовать инициации ос— 
новной программы, работающей в среде Титро У19оп. Параметром об — 
ращения к этой процедуре может быть одна из следующих констант: 


сопзе | 
змВМ80 = $002; {Черно-белый режим работы цветного адаптера} 
5пСо80 $003; {Цветной режим работы} 
эиМопо $007; {Монохроматический адаптер} 


Эти константы можно дополнять константой 


2оп56 
зпРопе8х8 = $100; {Задает 43/50 строк для экрана ЕСА/УСА} 


АЛЯ задания режима вывода 43 или 50 строк на экране дисплея, осна— 
ценного адаптером ЕСА или УСА. Например: 


бЗеЕ\У1аеоМоае ($5пСо80+зщГопЕ8х8); 


17.3. ГРУППЫ 


Замечательным своиством вилимых элементов ТитБо У\У1$1юоп является их 
способность образовывать группы. Все группы являются потомками аб — 
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страктного объекта Г@гоир. Любая программа в конечном счете насле-— 
дуется от ТРгодгат или ТАррПсаНоп и, следовательно, является потомком 
Тагоир, т.е. представляет собой группу. 

Группа — это просто пустое окно. Главная особенность группы за-— 
ключается в том, что она может управлять входящими в нее элементами. 
Как и любой другой видимый элемент, группа должна уметь заполнять 
нужным изображением выделенную ей часть экрана и обрабатывать все 
связанные с этой областью события. Однако в большинстве случаев группа 
обращается за выполнением требуемых действий к своим элементам. 
Например, визуализация группы происходит исключительно с помощью 
методов Огам тех элементов, которые образуют группу. С другой стороны, 
некоторые команды могут относиться к группе в целом. Например, группе 
может адресоваться команда стС]о5е (закрыть), в результате которой будет 
уничтожено изображение группы, т.е. очищен выделенный ей участок 
экрана. Для реализации этой команды группа будет последовательно пе- 
редавать ее всем входящим в нее элементам. 

Важно помнить что группа обладает способностью включать в себя 
видимые подэлементы динамически, в ходе исполнения программы. Как 
правило, состав группы определяется действиями пользователя: если, 
например, он нажал командную клавишу, связанную с раскрытием опции 
главного меню, группа ТРезюор, ответственная за рабочую зону экрана, 
обогащается дополнительными видимыми подэлементами «выпавшего» 
меню. После нажатия клавиши Ё5$с эти элементы будут удалены из состава 


группы. 


17.3.1. Создание группы и изменение ее состава 


Создание группы осуществляется за счет создания экземпляра объек — 
та — наследника ТСтоир и присоединения к нему всех видимых элементов 
группы. Любой вилимый объект, т.е. наследник Т\Мет, имеет два поля: 
Оипег и М№х[ Поле Оипег указывает на владельца этого элемента, а поле 
№ х — на следующий равный ему подэлемент группы. При включении 
видимого элемента в группу его поля изменяются так, что Оипег содержит 
ссылку на экземпляр группы — владельца, а №ех{ имеет значение МП. После 
добавления к группе еще одного элемента поле М№хЁ ранее включенного 
элемента изменяет свое значение и содержит ссылку на этот новый эле— 
мент. Таким образом создается связанный список подэлементов группы 
(рис.17.4). 

Для присоединения элемента должны использоваться методы т5ег или 
нхесУем. Метод т5егЁ присоединяет очередной видимый элемент к списку 
подэлементов группы. В зависимости от набора связанных с подэлементом 
признаков этот элемент может размещаться в центре (признаки оСещегХ 
и/или ОКСегег!У), стать активным (05еесюЫе) и, наконец, появиться на 
экране (5ГИ5Ые). После создания подэлемента управление передается 
следующему за обращением к шзей оператору программы. 

Метод ЕхесУеу осуществляет те же действия, что и метод шей, однако 
после создания видимого подэлемента управление будет передано в него и 
оператор, слелдующий за обращением к Ехес\еи, получит управление 
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только после уничтожения этого подэлемента. Более точно процесс 
взаимодействия с программой элемента, присоединенного к группе ме- 
тодом Ехес\ем, можно описать следующим образом. Любой видимый 
элемент наследует виртуальный метод УаПа, с помощью которого он может 
сигнализировать своему владельцу о том, насколько успешно он выполнил 
возложенные на него обязанности. Обычно УаПа возвращает Тгие, если 
успешно создан и размещен в динамической памяти экземпляр объекта, и 
Еа]5е,— в противном случае. Объект может перекрыть метод Уайа и воз— 
вратить Ра/[5е, если он хочет оставить управление у себя, — именно так, 
например, поступает объект ТО 109. Метод ЕхесШеу приостанавливает 
исполнение слелующего оператора программы до тех пор, пока все по-— 
дэлементы группы не вернут УаПа = Гше. Таким образом, метод Ехес ем 
используется в том случае, когла среди подэлементов группы есть хотя бы 
один элемент, реализующий диалог с пользователем. 
Метод Де!еЕ удаляет подэлемент группы из связанного списка. 


Группа 


Подэлемент Подэлемент Подэлемент 
Мех* ... МехЕ = М 


Рис. 17.4. Связанный список элементов группы 


17.3.2. 1 -упорядочение и дерево видимых элементов 


Последовательное присоединение подэлементов к группе приводит к так 
зазываемому 2—упорядочению видимых элементов. 2—упорядочение — 
это трехмерная модель видимых элементов, в которой координаты Хи 7У 
определяют положение элементов на экране, а координата 2 — поряд— 
ковый номер элемента в группе. Например, на рис.17.5 показана Г — модель 
элементов окна с рамкой и скроллером. 

В этой модели каждый элемент можно представить в виде стеклянной 
пластины, накладывающейся на уже сущестьующее изображение. То 
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изображение, которое мы видим на экране, есть проекция трехмерной 
модели на плоскость ХУ. Трехмерный образ позволяет «взглянуть» на 
видимые элементы со стороны и увидеть порядок, в котором они при- 
соединяются к группе. 


А 

ТУ: паом —+ = [#1] 
Текст в окне скроллера... _ 
Тосго | |ег ——*» | 
т 


ТЗсго1]Ъаг ———_ чи 


ТЕгаме —+» 


Рис. 17.5. —модель вид'1мых элементов окна 


Важно помнить что любая группа визуализирует свои подэлементы в 
порядке, определяемом их Д-—упорядочением. Для рис.17.5 это означает, 
что сначала создается изображение рамки, очерчивающей все окно, затем 
на рамку накладываются полосы скроллера, потом — сам скроллер с 
текстом, а накрывает сверху все изображение и скрепляет его в единое 
целое прозрачная пластина ТИпаои. 

Для того чтобы группа нашла связанный с ней список подэлементов, 
используется поле ЁРи$Ь входящее в любой видимый объект. Это поле 
содержит МП. если данный элемент — терминальный видимый объект; 
если этот элемент — группа, поле ЁР!$Ё содержит указатель на первый 
зставленный в группу подэлемент, т.е. на самый «нижний» элемент в 
смысле 7-—упорядочения. Таким образом, цепочка ссылок ЁР15Ё — №2 
образует дерево видимых элементов, так как каждый элемент №х{ может 
быть новой группой и в этом случае его поле РЕ <> МП. 

Программа Тито У131оп всегда владеет строкой меню, строкой статуса и 
рабочей зоной экрана, а следовательно, имеет дерево видимых элементов, 


показанное на рис.17.6. 
йрр 11саф10п 
ПезкТор ЗТафиз1те 


Рис.17.6. Основное дерево видимых элементов ТАррИсаНоп 


Отметим, что деревья видимых элементов показывают принадлежность 
элементов, а не их иерархию в генеалогии объектов 'Гигро У131оп, Т.е. связи 
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на рис.17.6 определяют функциональную подчиненность экземпляров 
объектов АррЛсаНоп, МепиВаг, Оез ор и ЗашзГпе. 

Деревья видимых элементов динамически изменяются в ходе работы 
программы. Они могут расти, если к программе присоединяются новые 
группы, или уменышаться, если эти группы уничтожаются. В отличие от 
этого генеалогическое дерево объектов может только расти за счет соз— 
дания потомков. 

Все ветви дерева видимых элементов всегла заканчиваются термир— 
нальными видимыми объектами. 


17.3.3. Активные элементы 


Внутри любой группы видимых элементов в кажлый момент времени 
может быть выбран (активизирован) один и только один элемент. Даже 
если в программе открыто несколько окон с текстом, активным считается 
только то окно, с которым Вы работаете в данный момент. Более того, 
поскольку окно представляет собой группу, в нем будет активным лишь 
один элемент. Если, например, Вы воздействуете мышью на полосу 
скроллера, будет активна именно эта полоса. Рис.17.7 иллюстрирует ска— 
занное: на нем показано дерево видимых элементов для двух открытых 
окон, причем активные элементы выделены двойной рамкой. 


Ярр11са* 101 
завет пе 
[тать] | | [бегом] [изв] | | (беготи 
9Сго]] Ваг| | 5сго11 Ваг 5Сго|1] Ваг||5Ссго]1 Ваг 


Рис.17.7. Цепочка активности видимых элементов просмотра текста 


Цепочка активности видимых элементов используется при обработке 
событий (см. гл.18). 

Активный элемент обычно выделяется на экране тем или иным спо- 
собом. Например, выбранное окно очерчивается двойной рамкой, а ос— 
сальные — одинарной; внутри диалогового окна активный элемент выде — 
ляется яркостью (цветом). С помощью метода 5еесЁ видимый элемент 
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можно сделать активным по умолчанию в момент его создания. При ак-— 
тивизации группы активизируется ее подэлемент, указанный как активный 
по умолчанию. Пользователю может потребоваться изменить текущий 
активный видимый элемент. Он может это сделать. манипулируя мышью, 
или нажав командную клавишу (если элемент связан с командной кла- 
вишей), или, наконец, с помощью клавиши Та6ф. 

Заметим, что существуют видимые элементы, которые нельзя сделать 
активными. Например, не может быть активным видимый элемент 
ТВаскдгоипЯ (фон рабочей зоны экрана). В момент создания элемента с 
помощью признака обееса Ме Вы можете указать, будет ли этот элемент 
выбираемым, Т.е. можно ли его сделать активным в ходе работы про— 
граммы. Однако, если Вы объявите выбираемым тот же элемент 
ТВаскогоипа, он все равно не сможет активизироваться, так как знает, что 
на самом деле активизация ему недоступна. Точно также на сможет ак- 
тивизироваться рамка окна (заметим, что указать на рамку мышью можно, 
и программа может, например, перемещать окно с рамкой, однако это еще 
не означает активизации рамки: рамка не может быть объектом диалога с 
пользователем). Обычно сброс признака обеесаЫе используется для того, 
чтобы запретить элементу стать активным, он, в принципе, может акти — 
визироваться, но его активизация в программе не нужна. Таким способом 
можно, например, сделать неактивной метку в диалоговом окне и, сле 
довательно, превратить ее в статический поясняющий текст. 


17.4. МОДАЛЬНЫЕ ВИДИМЫЕ ЭЛЕМЕНТЫ 


Все программы в среде Титро У13юоп рассчитаны на диалоговый способ 
взаимодействия с пользователем, а следовательно, в них активно ис 
пользуются точки ветвления, управляемые командами пользователя (точки 
диалога). В точке диалога создается активный видимый элемент, назы— 
заемый модальным элементом. 

Примером модального элемента является диалоговое окно. Когда в 
трограмме создается и активизируется модальный элемент, только этот 
элемент и его подэлементы могут взаимодействовать с пользователем. 
Любая часть дерева видимых элементов, не являющаяся модальным эле- 
ментом или не принадлежащая ему, не может быть активна в этот момент. 
сли, например, на экране развернуто диалоговое окно, любые отметки 
мышью вне его пределов или нажатие на не предусмотренные в этом скне 
командные клавиши будут игнорироваться. 

Елинственным исключением из этого правила являются командные 
клавиши и соответствующие поля для мыши, определенные в строке ста— 
туса. Эти клавиши (поля) всегда доступны пользователю и нажатие на них 
(отметка их мышью) обрабатывается модальным элементом точно также, 
как если бы они были определены в нем, хотя этот элемент может и не 
зладеть строкой статуса. 

Чтобы временно исключить из списка активных команду (или группу 
команд), определенную в строке статуса используется метод 
О15аМеСоттапа$. После завершения работы модлального элемента можно 
восстановить активность команд методом ЕпаМеСоттапа5. Параметром 
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обращения к этим методам служит произвольное множество типа 
ТСоттапа5е! содержащее ло 256 кодов команд. В ТиЪфо У1$10оп тип 
ТСоттапа5$е! определен следующим образом: 


фуре 

ТСоптапабее = зе оЕ Вуте; 

Таким образом запрещать (и разрешать} можно только те команды, 
коды которых принадлежат диапазону 0...255. 

Временно запрещенные команды выделяются в строке статуса пони-— 
женной яркостью (оттенком). | 


17.5. ИЗМЕНЕНИЕ СВОЙСТВ ЭЛЕМЕНТА 


Каждый видимый элемент Тигфо У1$1оп имеет 5 полей, которые оп-— 
ределяют его поведение в диалоговой среде и которые можно использовать 
для Того, чтобы изменить свойства элемента. К этим полям относятся 
ОрНоп5$, СгомМоае, ОгадМоае, Зее и ЕуешМа$К. Поле ЕуешИМазК активно 
используется в обработчиках событий и описано в гл.18. Поля Орноп$, 
СтомМоае и ПОгадМоае доступны как для чтения, так и для записи. Поле 
эке доступно только для чтения и изменить его состояние можно с по- 
мощью обращения к методу 5е 5 ю!е. 


17.5.1. Поле ОрНоп$ 


Поле ОрНоп5 представляет собой шестнадцатиразрядное слово, биты 
(разряды) которого показаны на рис.17.8. 


г 11 еч.0р1101$ ———— 
Старший разряд Младший разряд 


— огСетптеге4 
И 


ог зе |есфаь ]е 
оЁ Торое]есф 
Не определены ОР 156] 1СК 
ог Егамед 
огРгерРгосе$з 
огРоз{Ргосез$ 
ог ВиЁГРегеа 
оОРГТ11еаь]е 
огСепёегх 
огСбептегу 


Рис.17.8. Разряды поля ОрНоп$ 


орэ@еса Ме 


Если этот флаг установлен (имеет значение 1}, пользователь может 
зыорать видимый элемент мышью или клавишей Таб. Если Вы поместили 
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на экран информационный элемент, Вам может потребоваться, чтобы 
пользователь не мог выбрать его. Например, статические текстовые объ-— 


екты и рамки окон обычно не могут выбираться и имеют оБейесвЫе = 0. 


оГГорзеес 


Видимый элемент будет передвигаться наверх в смысле 7- 
упорядочения, пока не станет самым верхним среди других равных ему 
видимых элементов. Этот флаг в основном используется для окон в ра 
бочей зоне экрана. Вы не должны использовать его для видимых элементов 


в группе. 
ОГЕЕ5ЕСПСК 


Если флаг сброшен, отметка элемента мышью игнорируется, и наоборот 
— установленный флаг разрешает выбор элемента мышью. Если в диа-— 
логовое окно помещена кнопка, Вы наверняка захотите выбрать ее мышью, 
поэтому кнопка имеет оЁИ${СПсК установленным по умолчанию. Но если 
Вы создаете окно, Вы можете сбросить этот флаг, если хотите, чтобы оно 
не откликалось на выбор мышью. 


оЕгатед | 


Если флаг установлен, видимый элемент имеет рамку. 


о{РгеРгосе5; _ 


Если флаг установлен, видимый элемент будет получать и, возможно, 
обрабатывать активные события до того, как их получит и обработает 
активный элемент. См. раздел «Фаза» в гл.18. 


о7Ро51{Ргосе55 


Установленный в 1 флаг о/{Ро$Егосез$ позволяет видимому элементу 
обрабатывать события после того, как они были получены активным 
элементом, и при условии, что активный элемент не очистил событие. См. 


]>аздел «Фаза» в гл.18. 


о]{Вирегеа 


Когда этот бит установлен, образ группы при первой ее визуализации 
автоматически сохраняется в буфере. В следующий раз, когда группе 
хужно будет визуализироваться, она копирует образ из буфера на экран 
вместо прорисовки всех своих подэлементов, что ускоряет процесс соз— 
дания изображений. Если программа испытывает недостаток в динами-— 
ческой памяти, монитор памяти Титро У1$1оп освобождает буферы групи до 
тех пор, пока запрос к динамической памяти не сможет быть выполнен. 

Если группа имеет буфер, вызов метода Госк будет блокировать вывод 
изображения на экран до тех пор, пока не будет вызван метод ИпГоск. 
(Сразу после вызова ОпГосК буфер группы целиком выводится на экран. 
5локирование уменьшает мерцание во время сложных корректирсвок 


14—1411 
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экрана. Например, Т)езКЮр блокирует себя, когда выводит свои подэле — 
менты каскадом или черепицей. 


оГГИеа Ме 


Объект ТРезКтор может располагать связанные с ним окна каскадом или 
черепицей. Если окна располагаются каскадом, каждое следующее окно 
накладывается на предыдущее и почти полностью перекрывает его; при 
расположении окон черепицей каждое окно располагается так, чтобы не 
перекрывать другие окна. Если Вы хотите, чтобы окна располагались 
каскадом, Вам следует очистить флаг оИеаЫе, если черепицей — уста-— 
новить его в 1. Если для окна установлен режим вывода каскадом, оно 
будет занимать одно и то же место на экране, в то время как располо — 
жение окон черепицей приводит к изменению их размеров и положения 
при открытии каждого нового окна. 

Расположение видимых элементов черепицей или каскадом выполняется 
в ТАррИсапНоп.НапеЕуегЕ очень просто: 


смТ11е: 

Бед1п 
РезкКТор^.сефЕхеепе (В); 
РезкТор^.Т11е (В); 

епа; 

спСазсаае: 

Бед1п | 
РезКТор^ .сбееЕхееп® (В); 
РезКТор^ .Сазсаае (В); 

епа; 


оСеще!Х 


Этот флаг следует установить в 1, если Вы хотите, чтобы видимый 
элемент центрировался по горизонтали, т.е. вставлялся в группу так, чтобы 
слева и справа от него было приблизительно одинаковое расстояние до 


границ группы. 


оСешег У 


Флаг обеспечивает центрирование элемента по вертикали. Если Вы 
хотите, чтобы Ваши окна выглядели одинаково хорошо в режимах 25 и 
‘43/50 строк на экране, следует установить оКещегУ = 1. 


о}Сещегеа 
Установка этих разрядов обеспечивает центровку видимого элемента 
относительно границ группы одновременно по горизонтальной и верти— 
хальной осям. 
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17.5.2. Поле СгомМо4е 


Восьмиразрядное поле СгомМо4е определяет, как должен изменяться 
видимый элемент, когда его владелец (группа) изменяет свои размеры. 
Разряды этого поля показаны на рис.17.9. 


г бгоуМойе — 
Старший разряд Младший разряд 
чРбгоцй | ] 


УбгочГох 
9Рбгом [0% 
УРбгомН1Х 
9РбгомН1% 


9 бгом8е | 
Рис.17.9. Разряды поля СгоиМоае 


Не определены 


Среда Тито У131оп позволяет изменять размеры окон с помощью мыши: 
для этого надо «схватить» мышью правый нижний угол окна. Флаги 
СтомМо4е определяют, как будут вести себя в этой ситуации вставленные 
в окно элементы. Напомню, что изображение встроенного элемента всегда 
отсекается границами группы. Стандартное состояние элементов среды 
Гурбо Паскаль соответствует установленным флагам 9ОгоиШХ и 
атом ШУ. 


ато Х 


Если флаг установлен, левая граница видимого элемента всегда рас— 
полагается на одинаковом расстоянии от правой границы группы- 
зладельца. Таким образом, при уменьшении горизонтального размера скна 
зставленный в него видимый элемент смещается влево и, возможно, от 
секается левой границей окна. 


я 


2ТатоиГюо У 


Если флаг установлен, верхняя граница видимого элемента всегда 
располагается на одинаковом расстоянии от нижней границы группы, Т.е. 
уменьшение вертикального размера окна приводит к смещению элемента 
зверх. 


Ато ПХ 


Если флаг установлен, правая граница видимого элемента всегда рас — 
толагается на одинаковом расстоянии от левой границы группы, т.е. при 
уменьшении горизонтального размера окна видимое на экране положение 
его внутреннего элемента остается неизменным и, возможно, отсекается 
правой границей окна. 
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ато ШУ 


Если флаг установлен, нижняя граница видимого элемента всегда рас — 
полагается на одинаковом расстоянии от верхней границы группы, т.е. при 
уменьшении вертикального размера окна видимое на экране положение 
его внутреннего элемента останется неизменным. Стандартное состояние 
элементов среды Турбо Паскаль соответствует установленным флагам 
ОГагомиЫХ и Югом ШУ. 


2Отом АЙ 


Если разряды ОЮтомАП установлены в 1, видимый элемент передви— 
гается в процессе изменения размеров своего владельца, отсекаясь его 
левой и верхней границами. 


атоме 


Если флаг установлен, видимый элемент пропорционально изменяет 
свои размеры при изменении размеров владельца. Вы должны исполь— 
зовать эту опцию только с ТИЛпаом, или с наследниками от ТИЙпаом, 
которые присоединяются к панели экрана. В этом случае окна сохраняют 
свои относительные размеры и положения на экране при переходе от 25 
строк к 43/50 строкам и обратно. Этот флаг не предназначен для исполь— 
зования с видимыми элементами внутри окна. 


17.5.3. Поле ОгадМодае 


Поле ОгадМоае размером в один байт определяет, как ведет себя ви- 
димый элемент при перемещении владельца. Напомню, что Тито У13юоп 
позволяет перемещать окно на экране с помощью мыши, если «схватить» 
мышью верхнюю рамку окна. 

Должен заметить что мне не удалось добиться сколько — нибудь за— 
метных результатов при различных установках поля ОгадМоае. По умол— 
чанию Тито У131оп устанавливает РгадМоае = 32 = атИт Шоу. 

На рис.17.10 указаны разряды поля ОгадМосае. 


г — ПОгадМоде — 
Старший разряд Младший разряд 
ам. 1181] 


ам гачМоче 
ап 0гачбгоц 
ам 1м 1 Тох 
Чи 1м 110% 
ами 1 НХ 
ам. 11 Н1% 
Рис.17.10. Разряды поля Огад 
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ЯтОгаеМоуе 


Установленный флаг атОгадМо4е разрешает перемещать окно с по- 
мощью мыши. 


атОгае Стоим? 


Если флаг установлен, окно может изменять свои размеры. 


ат[атиГоХ 


Если флаг установлен, левая сторона видимого элемента не может 
выходить за границы своего владельца. 


ат[тиГоУ 


Если флаг установлен, верхняя часть видимого элемента не может 
выходить за границы своего владельца. 


атИтиШХ 
Если флаг установлен, правая сторона видимого элемента не может 
выходить за границы своего владельца. | 


атГлтиИ ШУ 
Если флаг установлен, нижняя часть видимого элемента не может вы- 
ходить за границы своего владельца. 


ат[лтйАЙ 


Если флаг установлен, ни одна часть видимого элемента не может вы- 
ходить за границы своего владельца. 


17.5.4. Поле Уме 


Шестнадцатиразрядное поле Зе хранит различные признаки, опре — 
деляющие поведение или состояние видимого элемента. 
На рис.17.11 показаны разряды поля 5®ЮЕ. 
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г ———_ ПУ1ем.5фафе Е1а9$ —— 
Старший разряд Младший разряд 


3# 9131 ]е 
ЗРСигзог0 15 
ЗРСигзог [1$ 
зРоладоч 
зРйсф1уе 
згъе1естей 
3 Росицзей 

3 Пгачч 119 
3 01заь ед 
зРМода | 


ЗРЕхрозей 
Рис.17.11. Разряды поля Ча 


дин 
Разрешает визуализировать видимый элемент, если визуализируется его 
владелец. По умолчанию этот флаг установлен. 


51 Сигзог И 


Разрешает показать курсор внутри видимого элемента. По умолчанию 
этот флаг очищен. 


57 Сиг5от 115 


Если этот флаг установлен, курсор будет занимать всю высоту строки, 
если сброшен, курсор имеет стандартную высоту (две нижних строки 
развертки). 


рэйадом 


Если флаг установлен, видимый элемент имеет «тень». 


5ГАспуе 
Указывает, является ли данный элемент активным окном или подэле- 
ментом активного окна. 


5дз@есеа 


Указывает, является ли данный элемент текущим (выбранным) видимым 
элементом. Каждый объект ТОагоир имеет поле Сштеш, содержащее 
указатель на текущий выбранный подэлемент или М, если не выбраЕ ни 
один подэлемент. В каждый момент времени в группе может быть выбран 
только один подэлемент. 
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5/Еосизеа 


Указывает, приналлежит ли ланный элемент цепочке активности ви 
димых элементов, т.е. выбран ли он и все его владельцы в данный момент 
времени. | 


5/Огавете 


Разрешает изменять размеры элемента. 


5/Оуба Ме 
Флаг запрещает выбирать данный видимый элемент. Если флаг сбро-— 
шен, элемент можно выбрать мышью или клавишей ТО6. 


5/Моай 


Если флаг установлен, данный элемент — это модальный элемент. В 
программе Тифо \У!$1оп всегда имеется один и только один модальный 
элемент. Обычно это экземпляр ТАррПсаНоп или ТГа109. Модальный 
видимый элемент активизируется вызовом метода Ехес\ет и образует 
корень активного дерева событий: он перехватывает события и управляет 
ими до тех пор, пока не будет вызван его метод ЕпаМоаа! (см. гл.18). 
Модальный элемент может передавать события своим подэлементам и 
получать события от них, но он никогда не передает события своему 
владельцу (события локализуются в модальном элементе). 


5/Ехрозеа 
Указывает, вилен ли элемент или любая его часть в данный момент 
времени (элемент может закрываться другими видимыми элементами). 
Если флаг установлен, метод Ехрозей данного элемента возвращает зна— 
чение Тгие. | 


17.5.5 Воздействие на состояние поля Зае 


В отличие от других полей поле' ${ае доступно только для чтения (голя 
'ЭрНоп$, ОгадМоае и СгомМоае доступны также и для записи). Это оз-— 
зачает, что в программе не может использоваться оператор вида 


Офафсе := Мембсаее; 


Установить новое состояние этого поля можно только с помощью ме- 
ода Зебю!е, доступного любому видимому элементу. Метод 5еб\кие 
объявлен в Тиатфо \У1$1оп следующим образом: 


-уре 
ТУ1ем = оБЗесе (ТОБ)ес®) 
2?госеааге Зеестаке (Абфтафе: Мога; Епаб1е: Воо1еап); У1г®&ца1; 


епа; 


424 Глава 17 


При обращении к методу параметр А$юе должен содержать маску 
разрядов поля 51@е, а признак ЕпаЫШе указывает, должны ли устанавли — 
ваться эти разряды (Епа Ме = Те) или очищаться (ЕпаШе = Еа[5е). 

Отметим, что Титро У19юп вызывает метод ее всякий раз, когда 
элемент активизируется или выбирается. Это дает возможность программе 
устанавливать новое состояние элемента или реагировать на действия 
пользователя (например, на активизацию видимого элемента). В отличие от 
этого поля ОрНоп$, ОгадМоае и СгомМоае активизируются только при 
инициации элемента и далее обычно не меняются. 

Видимые элементы часто перекрывают метод бе бюе, чтобы гибко 
реагировать на действия пользователя. Например кнопка (объект ТВиНоп) 
просматривает флаги поля 5юЕ и изменяет свой цвет на бирюзовый, когда 
становится активной. В следующем примере объект ТВиНоп вначале 
проверяет, принадлежит ли он активному окну, чтобы решить, рисовать 
себя или нет. Затем он проверяет, выбрана ли кнопка в окне и, если это 
так, вызывает свой метод Макере!аий, чтобы установить или сбросить (в 
зависимости от ЕпаШе) свою активность по умолчанию: 


Ргоседцхе ТВиебоп.беебсаке (АЗбафе: ИМога; ЕпаБ1е: Воо1еап); 
ред1п 
ТУтеи. Зесбсаке (АЗфабе, ЕпаЪ1е); 
1Е (Абфаке апа (зЕ3етескев + ЗЕАсЕтуе) } <> 0 еп 
РгамУ1ем; 
1Е (АЗсафе апа зЕГосазеа) <> о фБеп 
МакКереЁац1* (ЕпаЪ1е); 
епа; 


Другой пример: допустим, что Ваша программа включает в себя тек-— 
стовый редактор и Вы хотите разрешить или запретить все команды ре— 
дактирования в полосе меню в зависимости от того, открыт редактор или 
нет. В этом случае Вы можете создать такой метод 5е5юе для текстового 


редактора: 


Ргосеаге ТЕЗ1еог. Зее афе (АЗфафе: ШМога; ЕпаБ1е: Воо1еап); 
соп$е 
Еа1согСопмапЯ$ = [сшбеагср, спВер1асе, спбеагсПАда1п, 
спсово1пе, смЕ1паРгос, спиЕлпаЕггог]; 
}>ед1п 
ТУзем. Зесбфафе (АЗфафе, ЕпаЬ1е); 
1Е Ассафе апа зЕАсе1уе <> 0 &Веп 
1Е Ераб]1е +ВБеп 
Епаф1еСопмапа$ (ЕАа1ЕогСоштапа$) 
е]1зе 
21 заю]1еСоппапа$ (Еа 1 огСопмтапа$); 
ера; 
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СОБЫТИЯ 
Как уже неоднократно подчеркивалось, программы, работающие в среде 
Титро У1$10оп,— это программы, управляемые событиями. В этой главе 


подробно рассматривается механизм событий и способы их использования. 


18.1. ПРИРОДА СОБЫТИЙ 


События представляют собой небольшие пакеты информации, кото -— 
рыми обмениваются видимые элементы и которые создаются средой Тито 
\151оп в ответ на те или иные действия пользователя. Нажатие на любую 
клавишу или манипуляция мышью порождает событие, которое передается 
по цепочке активности видимых элементов до тех пор, пока не найдется 
элемент, знающий как обработать это событие. Может оказаться, что в 
программе нет ни одного элемента, способного обработать событие. В этом 
случае обычно ничего не происходит, по умолчанию Т\ишфо У1$1оп просто 
удаляет ненужное событие, однако программист может предусмотреть 
свою реакцию в этой ситуации. 

Важно помнить что события сами по себе не производят никаких 
действий в программе, но в ответ на событие могут создаваться новые 
видимые элементы, модифицироваться или уничтожаться существующие 
элементы, что и приводит к изменению содержимого экрана. Иными 
словами, все действия по созданию и изменению изображения реалир— 
зуются видимыми объектами, а события лишь управляют их работой — 
именно это мы имеем в виду, говоря о программах, управляемых собы — 
тиями. | 

Технически событие представляет собой обычную для Турбо Паскаля 


запись, имеющую следующую структуру: 


суре 
ТЕуепЕ = хгесога 
\МПае: Мога; {Тип события} 
сазе Мога оЁ 
еуМоЕВ1па: (); {Пустое событие} 
еУуМоцзе: ( {Событие от мыши:)} 
Ваевопз: Ву се; {Состояние кнопок} 
Роц1е : Воо1еап; {Признак двойного нажатия} 
ИВеге : ТРо1п®); {Координаты мыши} 
еуКеуромп: ( {Событие от клавиатуры: } 


сазе Тпеедег оЕ 
0: (КеуСоае: Иога); {Код клавиши} 
1: (СПагСоае: Сзаг; 
бсапСоае: Ву®е)); 
е\уМеззаде: ( {Событие-сообщение} 
Соттап@: Мога; {Код команды} 
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сазе Мог оЁ 

: (ТоРоР&г : Ро1п% ег); 
1: (ТоЕоГопа: ГопаТр®); 
2: (ТоЕОМогЯ: Мога); 

3: (ТрЕоТле : Тп6едег); 
4: (ТлЕоВубе: Ву%бе); 

5: (ТлЕоСрахг: Сраг)); 
епа; 


Ядром события является поле И/’Пар которое описывает тип события. 
Оставшаяся часть записи содержит дополнительную информацию, на— 
пример, код нажатой клавиши или координаты точки, в которой была 
нажата кнопка мыши. 


18.2. ВИДЫ СОБЫТИЙ 


_ Существуют 4 основных класса событий: события от мыши, события от 

клавиатуры, сообщения и пустые события. Внутри класса события могут 
подразделяться на виды. Например, класс событий от мыши состоит из 
таких видов, как перемещение указателя мыши, нажатие на кнопку мыши 
и тп. Каждый класс имеет определенную маску, с помощью которой 
можно легко идентифицировать класс события, не анализируя его вид. 
Например, вместо того, чтобы проверять 4 различных вида событий от 
мыши, можно просто проверить, пришло ли это событие от мыши или оно 
имеет другой источник. Два следующих оператора идентичны: 


1Е Еуепе.ИПаф апа ((5УМочзеромп ог еуМопзе0р ог 
еУМопзеМохе ог ехМопзеАо во) <> 0) +Веп ... 
1Е Еуерпе.МРаф апа (ехМоцзе <> 0) Бер... 


Для анализа класса событий используются следующие маски: 


е\уМоЕВ1па {'Пустое' событие}; 
еуМоц5е {Событие от мыши}; 
еуКеуроахА {Событие от клавиатуры}; 
е7Меззаде {Сообщение} 


На рис.18.1 показаны разряды поля И’а[ и соответствующие маски. 


18.2.1. События от мыши 


Существуют 4 вида событий от мыши: событие еуМоизеромп возникает 
‹ак отклик на нажатие кнопки мыши; когла кнопка отпускается, возникает 
событие еуМоизе0Ор: перемещение указателя мыши порождает событие 
еуМоизеМоуе; наконец, если кнопка мыши удерживается в нажатом со — 
стоянии, Таго \151оп периодически генерирует событие еуМоизеАио. С 
каждым событием от мыши в записи ТЕуепё передаются также координа — 
ты, которые имеет указатель мыши в данный момент. Отметим, что в от- 
личие от других координат Тито У151юп координаты мыши задаются от— 
носительно границ экрана, а не относительно границ какого —либо ви— 
димого элемента. Горизонтальная координата мыши меняется в диапазоне 
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от 0 до 79, вертикальная — от 0 до 24 (режим 25 строк на экране) или от 0 
до 42/49 (режим 43/50 строк). 


————____ Кмепе.Млае 


Старший разряд Младший разряд 
еуМеззаде == ЗЕРВВ 
ечКеучьоаг4 = $8818 
Е О еуМоизе = ЗВВИЕ 
еоМоцзе)онт = $8881 
еуМоцзе/р = 2 
ечМоцзеМочце = $50984 
еуМоизейцо = 59888 
ечКеу0оит == $9818 
еуСомматй — = 581408 
ечВгоайсаз* = $9288 


Рис.18.1. Разряды поля ИТаЕ 


18.2.2. События от клавиатуры 


В этом классе событий имеется единственное событие еуКеуроуп, 
связанное с нажатием на клавишу. В поле ТЕуеп!.КеуСоае в этом случае 
содержится так называемый расширенный код клавиши, который Вы 
можете интерпретировать как совокупность двух байт: СрагСоае и 
5сапСоае. При нажатии на алфавитно — цифровую клавишу поле СрагСоае 
содержит соответствующий АЗСП-символ, при нажатии на функцио— 
нальную клавишу поле СрпагСо4е содержит символ #0, а поле 5сапСо4ае — 
код сканирования нажатой клавиши. Для облегчения идентификации 
зажатой клавиши можно использовать константы АБХХХХ, определенные в 
интерфейсной части модуля Опуеге. 


18.2.3. Сообщения 


Сообщения бывают трех видов: команды, общие сообщения и поль— 
зовательские сообщения. Команды помечаются в поле ИПаЁ флегом 
суСоттапа, общие сообщения — флагом еуВгоаасаз и пользовательские 
сообщения — константой, определенной пользователем. Большинство 
событий преобразуется в команды. Например, если пользователь отметит 
мышью какое-то поле строки статуса, сообщение от мыши поступит в 
конечном счете в обработчик событий строки статуса (любой видимый 
элемент имеет метод Напа/]еЕует, называемый обработчиком событий, см. 
1.16.6.2), который определит, какое именно поле было отмечено. С каждым 
полем строки статуса обычно связана какая—то команда, поэтому об— 
работчик очистит пришедшее к нему сообщение от мыши и создаст новое 
сообщение, содержащее выбранную команду. Общие и пользовательские 
сообщения не являются исключением и обычно также преобразуются в 


команды. 
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18.2.4. Пустые события 


Пустым событие становится после его обработки каким —либо видимым 
элементом. Технически пустое событие соответствует значению 
ТЕуеп. ИТа! = еуМоШштд = 0. Когла событие обработано, видимый эле— 
мент вызывает метод СеагЕуепЬ с помощью которого в поле И’ЛаЕ уста — 
навливается значение еу№оШтда. Объекты должны игнорировать событие 
еуМ№Мо тд, поскольку оно уже обработано каким —то видимым элементом. 


18.3. МАРШРУТИЗАЦИЯ СОБЫТИЙ 


Как уже говорилось любая программа, работающая в среде Тито 
У!1$1юоп, является прямым или косвенным (через ТАррПсаНоп) потомком 
ТРгодгат и основана на обращении к трем главным методам этого объекта: 
Ши, Кип и Попе. Например: 


Озез Арр,...; 


фуре 
ТМуРгодгам = оБдесе (ТАрр11са®1оп) 


уаг 
’МуРгодгам = ТМуРгоагапй; 


Ьедап {Исполняемая часть программы: } 
МуРгоадгкам. Тп1%; {Инициировать программу} 
МуРгодгат. Кап; {Выполнить программу} 
МуРгодгам.рРопе {Завершить работу} 

епа. 


Процесс получения и обработки событий инициируется методом 
ГРгодтат.Кип, который для этого обращается к методу ТОагоир.Ехесше 
(любая программа является потомком ТОагоир}. Метод Тагоир.Ехесше 
]2еализует следующий цикл: 
уаг 

Еуепе: ТЕуеп; 


]2ед1п 
Еуепе.МВае := еуМоеВ1пта; {Инициировать пустое событие} 
гереа® {Основной цикл программы} 
1Е Еуепе.МРаф <> еуМоеН1па %Беп 
ЕлепЕЕггог (Еуеп®); {Событие не очищено - ошибка} 
СесЕуеп® (Еуеп®); {Получить событие } 
Напа] еЕуепе (Еуеп®); {Передать событие обработчику} 


10811 Епаббаее <> Соп&1прае; 


опа; 
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Метод СеЁуепЁ наследуется всеми видимыми элементами от ТИеи и 
является основным источником событий. Этот метод вначале проверяет, не 
подготовил ли событие метод Ри уе! и, если это так, возвращает его. 
Затем СеуепЁ проверяет клавиатуру и мышь. Если какое-то из этих 
устройств изменило свое состояние, метод формирует и возвращает со-— 
ответствующее событие. Если изменения не произошло, СеЕБует обра-— 
щается к методу ТРгодгат.1е, чтобы запустить «фоновую» задачу 
(подробнее об этом см. п.18.6). 

С помощью вызова метода ТСгоир.Ехесше события всегла начинают 
свой путь с модального видимого элемента. Напомню, что модальный 
элемент определяет точку диалога; в программе в каждый момент времени 
есть один и только один модальный элемент (см. п.17.4). В самом начале 
программы таким элементом является обычно экземпляр объекта ТРгодтат 
или его потомка. Если в программе открыто модальное диалоговое окно, 
оно обратится к Т@агоир.Ехесше и, следовательно, путь событий начнется с 
этого окна. В любом случае начинает обработку события метод Нап@еЕуеп! 
модального видимого элемента. Дальнейший маршрут события зависит от 
того, является ли событие позиционированным, активным или общим. 


18.3.1. Позиционированные события 


Позиционированные события — это всегда события от мыши (еуМоизе). 
Модальный видимый элемент получает позиционированное событие 
первым и начинает просматривать свои подэлементы в порядке, обратном 
их (— упорядочению (см. п.17.3.2), до тех пор, пока не найдет подэлемент, 
координаты которого включают в себя координаты указателя мыши. Затем 
модальный элемент передает событие найденному подэлементу. Поскольку 
видимые элементы часто перекрываются на экране, может оказаться, что 
координата указателя мыши принадлежит более чем одному видимому 
элементу. Следование обратному С-— упорядочению гарантирует, что со-— 
бытие получит самый верхний видимый элемент. Заметим, что Вам не 
нужно прослеживать 2—упорядочение элементов в Вашем обработчике 
событий: достаточно вызвать унаследованный метод Нап @1еЕует, который 
автоматически направит событие нужным образом. 

Процесс передачи события продолжается до тех пор, пока не обнару-— 
жится терминальный видимый элемент (например, полоса скроллинга) или 
не будет найден ни один подэлемент с нужными координатами элемент не 
знает, как обработать событие, он передает его вверх по активной цепочке 
своему владельцу. Технически это реализуется с помощью выхода из об -— 
работчика Нап 1еБует вызовом ЕхИ; событие не следует очищать обра -— 
щением к СеагЕуеп Процесс повторяется до тех пор, пока событие не 
будет обработано или не достигнет модального элемента. Если модальзый 
элемент не знает, как обработать вернувшееся к нему событие, он вы- 
зывает метод ЕуепЕЕггог. 

В ТшЪо У13юп существуют средства, позволяющие видимым элементам, 
не принадлежащим цепочке активности, получать и обрабатывать ак— 
тивные события (см. п.18.4). 
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18.3.2. Общие события 


Общие события — это общие сообщения или пользовательские сооб— 
щения. Общие события не имеют конкретного адресата и посылаются всем 
подэлементам текущего модального элемента. 

Модальный элемент получает событие и начинает передавать его своим 
подэлементам в Г- порядке. Если какой —то из подэлементов — группа, он 
также передает событие своим подэлементам и также в Д- порядке. 
Процесс продолжается до тех пор, пока не будет найден элемент, который 
обработает событие, или пока событие не получат все видимые элементы, 
принадлежащие (прямо или косвенно) модальному элементу. 

Эбщие события обычно используются для организации межэлементных 
связей. Подробнее об этом см. п.18.7. 


18.4. ФАЗА СОБЫТИЙ 


Обычно активные события (еуКеуромт и еуСоттапа) получают и об— 
рабатывают видимые элементы, принадлежащие цепочке активности. 
Однако часто возникают ситуации, когла необходимо, чтобы активное 
событие обработал неактивный элемент. Например, если на экране ак— 
тивно окно скроллера с полосами скроллинга, то события от клавиатуры 
будут передаваться окну. Как заставить в этом случае полосы реагировать 
на нажатие клавиш РоОр или РдОп? Для этого в 'ТитБо У1$1оп предусмотрен 
специальный механизм, основанный на так называемой фазе события. 
Когла модальный элемент получает событие, его передача выполняется в 
следующей последовательности: 

»е событие посылается в Х-— порядке всем видимым элементам, которые 
принадлежат модальному элементу и у которых поле ОрНоп$ имеет 
установленный флаг огеРгосез$, 

е если событие не очищено ни одним из них, оно посылается ак-— 
тивным элементам (по цепочке активности); 


® если событие все еще не очищено, оно посылается в (—порядке всем 

видимым элементам, у которых установлен флаг о{Ро$Ргосезе. 

Таким образом, Вы должны установить флаги о[РгеРгосез$ или 
оРояРгосез$ (или оба вместе) при инициации видимого элемента, если 
хотите, чтобы он мог получить активное событие до или после (или и до и 
после) того, как его получат активные элементы. 

Для предыдущего примера необходимо инициировать полосы скрол— 
линга с установленными флагами о{Ро5ЁРгосе$$, если требуется, чтобы 
полосы «увидели» и обработали нажатие на клавиши смещения курсора, 
РаОр, РдОп и т.л. Разумеется, в этом случае полосы получат событие 
еуКеуромт только при условии, что скроллер сам не обработает это со— 
бытие. 

В некоторых ситуациях элемент, перехватывающий событие и ло, и 
после активных элементов, должен модифицировать свое поведение в 
зависимости от фазы события. Рассмотрим такой типичный пример. Пусть 
в программе создано диалоговое окно, имеющее строку ввода и три кноп-— 

и, для которых определены командные клавиши (С) И’, Е. Как добиться 
того, чтобы эти клавиши использовались в качестве командных клавиш, т.е. 
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приводили к «нажатию» соответствующих кнопок при условии, что ак 
тивна любая кнопка, а в сочетании с клавишей АП, — если активна строка 
ввода (именно так используются командные клавиши в диалоговом окне 
среды Турбо Паскаля)? Если инициировать кнопки с флагом оЁгеРгосез$, 
они смогут без труда определить факт нажатия на командную клавишу, 
однако в строке ввода пользователь не сможет ввести буквы О, И/и ЕЁ, так 
как они будут перехвачены кнопками до того, как событие от клавиши 
получит строка ввода. Если инициировать кнопки с флагом о{Ро$Ргосез$з, 
пользователь не сможет использовать сочетания АП- <клавиша> для 
нажатия кнопки, если активна строка ввода: все события еуКеуроип будут 
в этом случае направляться в строку. Решение очевидно: нужно определить 
оба флага, но на препроцессорной фазе следует проверять ввод АЙЁЬ-— 
<клавиша>, а на постпроцессорной — <клавиша>. 

Для реализации этих проверок обработчик событий объекта ТВиНоп 
должен каким—то образом определить текущую фазу события. С этой 
целью в любой группе предусмотрено поле Рр|азе. Это поле доступно 
только для чтения и содержит одно из значений рАРгеРгосезз, рАРосизеа 
или рЛРо5ЕРгосе5$ в зависимости от фазы события. 

Следующий фрагмент иллюстрирует ту часть обработчика событий 
кнопок, которая проверяет командную клавишу: 


еуКеуромп: {Это часть оператора сазе} 
Бедап 
С := Но&Кеу (Т1%&1е^); {Получаем в С букву клавиши} 
{Проверяем А1Е-<клавиша>:} 
1Е (Еуепе.КеуСо4е = сСефеА1{Соае (С)) ох 
{Проверяем <клавиша>: } 
(Оипег^.РвВазе = р,Роз&Ргосез$) ара (С <> #0) апа 
(ОрСазе (Еуеп* .СпагСоае) = С) ох 
{Проверяем активность и нажатие пробела: } 
(ЗБабе апа зЕГосизеа <> 0) апа (Еуепе .СПагСае 
- '! '!) еп 
Ргезз {Да, кнопка выбрана: выдаем нужную команду} 
епа; 


В этом фрагменте не показанная здесь функция Ноеу выделяет из 
надписи на кнопке символ командной клавиши (он обрамляется символом 
«»), а стандартная для Тито У\У13юп функция СеЁАЙСоае преобразует этот 
символ в расширенный код клавиш АП- <клавиша>. Метод ТВиЙоп.Еге$$ 
]2еализует «нажатие» на кнопку и выдает сообщение еуВгоааса$Ё с во— 
мандой ТВийоп.Соттапа. 

Отметим, что рассмотренный пример приведен только в качестве ил-— 
люстрации: стандартный объект ТВиМоп реализует свой обработчик со— 
бытий именно таким образом и Вам нет нужды переопределять его (по 
умолчанию экземпляр ТВиНоп инициируется с установленными флагами 
о[РгеРгосе$$ и оРо$ЕРгосе$$). | 
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18.5. КОМАНДЫ 


Поскольку события обычно связаны с какими-то действиями поль— 
зователя программа должна, как правило, реагировать на эти действия 
изменением видимого изображения. С точки зрения Титфо У\У131оп это оз-— 
начает, что обработчики событий должны преобразовывать события в 
действия, связанные с реакцией на произошедшее событие. Для реали -— 
зации этих действий в Тито У1ч1юоп предусмотрены команды. 

Команда — это просто целое число без знака, колирующее опреде-— 
ленную последовательность действий. В 'Тшфо У19юп предусмотрен ряд 
стандартных команд для реализации многих стандартных действий. На— 
пример, команда стОий реализует завершение работы программы и выход 
в ДОС, стС]о5е закрывает активное окно, стГоот распахивает окно на 
весь экран или возвращает ему прежние размеры и т.д. Илентификаторы 
стХХХХ являются идентификаторами предопределенных констант, ко— 
торые кодируют стандартные действия (например, стОий = 1, стбоот = 
Зит.А.). | 

В своей программе Вы можете наряду со стандартными командами 
определить и использовать собственные команды для реализации спе— 
цифических действий. Для. этого необходимо создать свою константу р— 
команду и в нужный момент сообщить видимым элементам о необходи — 
мости выполнить ее. Разумеется, Вы можете использовать произвольный 
идентификатор для вновь определяемой команды, однако Ваша программа 
станет намного понятнее, если при образовании новых идентификаторов 
Вы будете следовать каким—то правилам. В этом смысле использование 
префикса ст в идентификаторах новых команд кажется вполне логичным. 


18.5.1. Преобразование активных событий в команды 


Как указать на необходимость выполнения команды? Для этого в 'Тигбо 
У\У1$1юп Вы просто создаете событие-—команду (еуСоттапа), в поле 
Соттапа которой помещаете код нужной команды. Например: 


сопзе 
стМуСоптапта = 100; 


[Ниже показан фрагмент обработчика событий: }] 


Еуепе.МНа® := еуСопмтапа; {Определяем событие-команду} 
Е\хеп® .СоттапА := спиМуСоптапа; {Указываем код команды} 
Еуепе.ТпЕоР®г := МТЬ; {Признак активного события} 
РасЕхепе (ЕухепЕ); {Создаем событие} 


В этом фрагменте событие — команда создается обращением к методу 
РшЕуепЕ Заметим, что поле ЕуеппЮРЁ должно содержать МП. если со— 
бытие активно; если событие уже обработано, для его очистки исполь — 
зуется стандартный метод С]еагЕуепЬ который помещает в поле УУВаЕ 
признак еуМ№ой!тд, а в поле ПЮРЕ — указатель @5е[ (указатель на таб — 
лицу виртуальных методов объекта). Подробнее об использовании поля 


ЕуепЕ ПЮРЕ см.п.18.7. 
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Вновь созданное событие вернется модальному элементу, который 
должен знать как его обрабатывать. Например, часто событие — команда 
создается обработчиком событий строки статуса как реакция на нажатие 
предусмотренной в этой строке командной клавиши или отметку мышью 
соответствующего поля. В этом случае обработчик событий программы 
может иметь такой вид: 


Ргоседаге МуРгодгам.Напа1еЕуеп* (уаг Еуеп®); 
Ъедлп 
Тпрег1&еа Напа1еЕуеп® (Еуеп{); 
сазе Еуепе.МПаф оЁ 
е\уСотмтапа: 
Бед1п {Обработать команды: } р 
сазе Еуеп®е.Сопттапа оЕ 
спМуСоптапа: МуРгоседоге; {Выполнить действия, 
связанные с командой стМуСоттапа} 


е1 зе 
ех1{ {Не обрабатывать непредусмотренные команды} 
епа; {сазе} 
С] еахЕхеп* (Еуепе) {Очистить событие} 
епа; 


Часто молдальным элементом является диалоговое окно с несколькими 
кнопками. Если Вам необходимо связать с кнопками свои команды и по- 
лучить выбранную в диалоге команду, Вы можете закрыть окно с помощью 
зызова ЕпаМоаа1 передав этому методу в качестве параметра код коман— 
ды. 

В следующем примере создается диалоговое окно с двумя кнопками. 
При нажатии кнопки «Команда стРги!» окно закроется и на экран будет 
зыведена строка 


Действие команды стРЕТПЕ 


Если нажать кнопку «Выход» или закрыть окно клавишей Е5с, эта 
строка не появится. | 


115ез СВТ, Арр, 01а1о95$,Оюесе$, Рг1уег$, У1ем$; 
-уре 
РРгоа ^ТРгод; 
ТРгод = оБдесЕе (ТАрр11са®1оп) 
СопзЕкгасеохг  Тп1{; 


епа; 
РР1а1 = ^ТО1а1; 
Т01а1 = оБЗес® (ТО1а1о9) 


Ргоседоге Нап91еЕуепх (уаг Еуепе: ТЕуеп®е); \У1г®за1; 
ела; 
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сопзЕ 
сРг1п® = 100; 
СопзЕгисвог ТРгоа.1Тп1{; 


таг 
В: ТВесе; 
О1а: РО1а1; 
Ъед1п 


Тпрег1феа 1014; 
В.Азз1оп (20,9, 60,17); 
О1а := М№ем (РО1а1, Тп1%(В,'!')); 
В.А$51ап (3,4,22,6); 
21а^.ТплзехЕ (Мем (РВа&Фоп, 
Тп1& (В, 'Команда см-^Р^г1пе'!, смРх1пе,ЪЕШеРац1*))); 
В.Аззтлап (23,4,35,6); 
01а^.Тпзег® (Мем (РВи оп, 1п1* (В, 'Выход'!, стСапсе1,ЬЕМ№огта1))); 
1Е ЕхесУ1еи (21а) = спРу1п6 Вел 
ред1п 
{Вывод сообщения "в лоб", с помощью стандартных средств Турбо 
Паскаля. В ТигроуУ1$1оп есть более удобные способы вывода сооб- 
щений} 
СовохХУ (30,12); 
ТехЕСо1от (В1асК); 
ТехЕВаскагоипа (ИВ1е); 
Иу1$е(' Действие команды стРг1п® *') 
епа 
епа; (ТРгод.Тп1Е} 
Ргосеацге ТО1а1.Напа1еЕуеп* (уаг Еуеп®: ТЕуеп®); 
ред1п 
Тпре’г1еа Напа1еЕуеп® (Еуеп*); 
1Е (Еуепе.ИВае = еуСоптапа) апа 
(ЕуепЕ.Сотммапа = сиРг1п®) %Веп ЕпЯМода1 (спРг1п®) 
зпа; {Т01а1.Нап1еЕуепЕ} 


таг 
Ргоа: ТРгод; 

]›ед1п 
Ргод.Тп1; 


Ргод.Вап; 
Ргоз.Вопе 
па. 


В обработчике событий диалогового окна ТГ/а/!.НапЙеЕует вначале 
вызывается стандартный обработчик ТО1а1од.Напа]еЕует. Это дает воз— 
можность кнопке «Команда стРиг{& преобразовать событие, связанное с 
ее выбором, в команду стРгий Вновь созданное событие возвращается 
обработчику ТПГ1а!.Нап]еЕуепЬ т.к. именно он является обработчиком 
событий модлального элемента. Возвращаемая модальным элементом ко — 
манда служит значением стандартной функции ЕхесМем. Для упрощения. 
программы вывод сообщения реализуется стандартными средствами Турбо 
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Паскаля. В Тито У15юоп имеется процедура МеззадеВох, обеспечивающая 
более удобный вывод сообщений. 


18.5.2. Запрещение и разрешение команд 


В качестве значения константы — команды можно использовать любое 
число в диапазоне от 0 до 65535, однако следует учесть, что диапазоны 
0...99 и 256...999 'Титьо У1Зюоп резервирует для стандартных команд и их не 
следует использовать для определения команд пользователя. Два диапазона 
зарезервированных команд выбраны потому, что команды с кодами 0...255 
можно временно запретить, в то время как остальные команды запретить 
невозможно. Для запрещения или разрешения команд используется 
глобальный тип ТСоттапа$ер представляющий собой множество чисел в 
диапазоне 0...256 (мощность множеств в Турбо Паскале не может пре-— 
вышать 256, вот почему запретить можно только первые 256 команд). 
Команды запрещаются обращением к методу Гл5аМеСоттапа$, а раз— 
решаются обращением к ЕпаМеСоттапаз$. Диалоговые элементы, свя— 
занные с запрещенными командами, выделяются оттенком и их нельзя 
выбрать мышью или командными клавишами. Например, если в конст- 
рукторе ТРгод.шй (см. предыдущий пример) перед оператором 


1Е Ехес\У1ем (01а) = спРу1п® Бер 


вставить оператор 


21 заб 1еСомтала ([спРх1п*]); 


кнопка «Команда стРтгш% будет выведена цветом фона окна и станет 
зедоступна для диалога. 


18.6. МОДИФИКАЦИЯ И ОБРАБОТКА СОБЫТИЙ 


18.6.1. События, определенные пользователем 


Старшие разряды поля БуепЕ. У’ПаЁ используются для указания на то, что 
событие относится к классу сообщений. Первые шесть разрядов в этом 
поле программист может использовать для определения собственных 
классов событий. 

Необходимость в новых классах событий может возникнуть в том 
случае, когла Ваша программа работает с нестандартными источниками 
информации. Если, например, Вы собираетесь работать с послелова— 
тельным портом, Вы, возможно, захотите определить класс событий 
еубепа] используя для его идентификации один или несколько старших 
разрядов поля ЕуепЕ Иа Технически получить информацию из нового 
источника и сделать ее событием можно путем перекрытия метода 
ГРгодтат.СеЕуепЁ (см.п.18.6.4) или «фонового» метода ТРгодгат.1е 
(см.п.18.6.5). 

По умолчанию все новые классы событий маскируются маской 
еУМе$заде, т.е. считаются сообщениями. Такие события модальный элемент 
рассылает всем своим подэлементам в Д—порядке (см.17.3.2). Если Вы 
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хотите, чтобы новый класс событий передавался как позиционированные 
или активные события, Вы можете изменить маски этих событий. В Тифо 
У\У151юоп определены маски РозШНопа!Еует!5 и ГосизеаЕуеп!5. Первая позво — 
ляет всем видимым элементам рассматривать событие как позициониро — 
ванное, вторая — как активное. По умолчанию маска РоязШопа!Еуепт!$ 
выделяет все биты еуМои$е, а РосизейБует!$ содержит еуКеуБоага. Если 
Вам понадобится, чтобы новый класс событий обрабатывался так же как 
активные или позиционированные события, Вам необходимо добавить к 
нужной маске биты, соответствующие этому классу в поле И/ПРоё. 

Например, создан новый класс событий еу5епа! с маской $8000, т.е. этот 
класс связан со старшим разрядом поля И/ПаЕ. Если потребуется обработать 
этот класс так же как активные события, нужно задать новую маску: 


соп$е 
е\у5бех1а1 = $8000; 


ЕосазеаЕует*$ := РГосозедЕхепе$ ох’ еубег1а\; 


Обратите внимание: при добавлении к любой маске новых разрядов 
следует применять поразрядные операции над целыми числами (операции 
ог, апа, пой. Не следует использовать операцию арифметического сло— 
жения (+), так как в этом случае разрешен поразрядный перенос и вновь 
полученная маска может оказаться не той, какую Вы хотели. Если, на 
пример, к маске еуМоизе прибавить единицу, получится маска еуКеуБоага, 
т.е. 


еуКеуБоагка = е\уМоцзе + 1 


В то же время операция 
еуМоцзе ох 1 


не вызовет поразрядного переноса и маска еуМоизе останется прежней, 
т.к. ее младший бит уже установлен. 


18.6.2. Маскирование и очистка событий 


Каждый видимый элемент имеет поле Еуеп Ма$К. По умолчанию зна— 
чение этого поля устанавливается таким образом, чтобы видимый элемент 
обрабатывал все необходимые ему события и не откликался на другие. 
Например, ТРгодат и ТО1а10о9 имеют БуепМазК = $ЕЕЕЕ, что позволяет им 
откликаться на любые возможные события, в том числе и определенные 
программистом. Кнопка ТВиЙоп имеет ЕуепМазК = $0311, т.е. откли- 
кается на события еуВгоаасаз, еуСоттапа, еуКеуромт, еуМоизеАи, 
еуМоизеОр и еуМои5ероит. Как видим, ей доступны все стандартные со— 
бытия, кроме еуМоизеМоуе — кнопка не может реагировать на переме — 
щение мыши. 

Соответствующей установкой поля БуепМаз$К Вы можете запретить или 
разрешить любому видимому элементу реагировать на те или иные со— 
бытия. Например, Вы можете создать кнопку, доступ к которой возможен 
только с помощью мыши: 
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уаг 
МопзеВа оп: РВаеЕоп; 
МоцзеВа& оп := М№ем (РВа&$оп, Тп1®(...)); 
МоцзеВа $ оп^.ЕуепЕМазКкК := е\уМоозе; 
Тпрзег* (МоазеВае оп); 


Для очистки события следует обратиться к методу С]еагЕуепр который 
устанавливает в поле ЕуепЕ. Иа значение еуМоЙитд, а в поле ЕуепЕ. шоРн 
— адрес таблицы виртуальных методов объекта. Таким образом, в поле 
Еуе.пЮРШ остается «подпись» видимого объекта, который очистил со— 
бытие. Эта информация используется для организации межэлементного 
взаимодействия (см.п.18.7). 


18.6.3. Перекрытие Нап ]еЕуег{ 


После того как Вы определили команду и установили элемент управ — 
ления, который генерирует ее (например, элемент меню или кнопка 
диалогового окна), Вам нужно научить Ваш видимый элемент реагировать 
на возникновение этой команды. 

Каждый видимый элемент наследует обработчик событий — метод 
Нап ]еЕуещ, который уже знает, как реагировать на большую часть ввода 
пользователя. Если Вы хотите, чтобы видимый элемент делал что-то 
специфическое для Вашей программы, Вам необходимо перекрыть 
Нап ]еЕует и научить новый обработчик событий двум вещам — как 
откликаться на определенные Вами команлы и как реагировать на события 
от мыши и клавиатуры нужным Вам образом. 

Метод Напа!еЕуегЕ определяет поведение видимого элемента. Два Еи-— 
димых элемента с идентичными методами Нап@МеБует будут одинаково 
откликаться на события. Когла Вы порождаете новый тип видимого эле-— 
мента, Вы обычно хотите, чтобы его поведение более или менее соот-— 
ветствовало поведению его предка с некоторыми изменениями. Наиболее 
простой способ достичь этого — вызвать Напа]еЕует предка в методе 
Нап М]еЕуепг! нового объекта. 

Общий вид Нап еЕРуе! наследника: 


ргосеаиге МемПезсепаап®.Напа1еЕуеп® (уаг Еуеп®: ТЕхеп®); 

ред1п 

‘Код, изменяющий или ограничивающий унаследованное поведение} 
ТпБег1$еа Напа1еЕуеп® (Еуеп®); 

‘Код, выполняющий дополнительные функции} 

епа; 


Другими словами, если Вы хотите, чтобы новый объект обрабатывал 
события не так, как это делал его предок, Вы должны перехватить сп- 
ределенные события до передачи события в метод Напа!еЕует прелка. 
Если Вы хотите, чтобы Ваш новый объект вел себя также, как его прелок, 


но с дополнительными функциями, Вы должны добавить код после вызова 
процедуры Напа!еЕуег{ предка. 


18.6.4. Перекрытие Се{Еуег 


Единственным источником событий является метод ТУетз’. Дей Еуеге. 
Только этот метод обращается к внешним источникам информации — 
клавиатуре и мыши. Если в Вашей программе используются другие уст-— 
ройства ввода информации (например, джойстик или коммуникационный 
канал), Вы должны перекрыть этот метод и научить его работе с нестан -— 
дартными устройствами. 

Проще всего перекрыть метод можно при объявлении нового типа 
Вашей программы, например: 


Озез Арр,...; 
фуре 
МуРгоадкам = оБЗес® (ТАрр]11саЕ1оп) 
Ргоседике СесЕуеп® (уаг Еуеп®: ТЕуеп®); \У1х%ча1; 
епа; 
Ргосе4иге МуРгодгат.СееЕхеп® (уах Еуеп®: ТЕуеп®); 
Бед1п 
ТАрр]1саё1оп .бееЕхеп® (Еуеп®); 
15 Еуепе.МВаЕ = еуМо&*В1пд Вей 
Беда п 
{Обращение к нестандартным источникам информации} 
ела 


Поскольку МуРгодтат в конечном счете наследует Се Еует от Т\Ует,, 
все видимые элементы Вашей программы будут пользоваться новым ис- 
точником информации. 

Преимущества централизованного сбора событий очевидны. Пере-— 
крывая единственный метод Сеует, Вы можете заставить программу 
реагировать на внешнюю информацию любым удобным для Вас способом. 
Например, можно перехватывать заранее обусловленные командные 
клавиши и развертывать их в целую серию событий. Таким способом легко 
создавать различного рода макрокоманды. 


18.6.5. Неиспользованное время 


Поскольку программа, работающая в среде Тигфо У]1$1оп, рассчитан на 
диалог с пользователем, в ней всегла найдутся такие промежутки времени, 
в течение которых она просто пассивно ожидает действий пользоватгля. 
Тигро У!3юоп предоставляет Вам удобное средство, позволяющее в этот 
момент загрузить процессор не слишком долгой, но нужной для Вас ра-— 
ботой. 

Стандартный метод Т\Йеи.СеЕует построен таким образом, что если 
нет никаких событий он обращается к псевдоабстрактному методу 
7Меу.1е. По умолчанию ТУеи.14е ничего не делает, он просто воз— 
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вращает управление методу Се Еует, заставляя его непрерывно скани- 
ровать клавиатуру и мышь. Вы можете перекрыть Т\еи’.14!е, чтобы вы- 
полнить нужные действия. 

В следующем примере каждые 5 сек в правый верхний угол экрана 
выводится системное время. Для упрощения программы вывод осущест — 
вляется стандартными средствами Турбо Паскаля. 


95е$ 105, СВТ, Арр; 
фуре 
ТРгоз = оБзес® (ТАрр11сае1оп) 
Ргоседиге Та1е; \У1г%оа1; 
епа; 
Ргоседиге ТРгод.Та]1е; 
соп$е 
о1а: Вусе = 0; {Старое значение секунд} 
АЕ = 5; {Шаг вывода} 
уаг 
Во, м1, е,$100: Мохка; 
ГапсЕ1оп Т1иезег (К: Иога): 5&г1па; 
\аг 
3: Зёката [2]; 
Ьед1п 
Ех (К,5); 
1Е К < 10 &Ъел 
$ := '0'+5; 
Тумезег := 5 
епа; {Т:1пезЕЁг} 
редап (ТРгод. Та1е} 
СееТ1те (Во,пм1,5е,5100); 
1Е (зе моа аЕ = 0) апа (о1а <> зе) ЕВеп 
_ Бедал 
| О1а := 5е; 
ТехЕСо1ог (В1ас!), 
Тех<ВаскСгоцпа (\В1е); 
СобохУ (72,1); 
Мг1 ее (Т1мезехг (Во) +': '+Т1мебехг (м1) +'!;: '+Т1тмтебех (зе)) 
епа 
епа; {ТРгод. Та1е} 
таг 
_ Рхгоа:ТРгод; 
Ъед1п 
Ргоа.1Тп1&; 
Ргод.Кап; 
Ргод.Вопе 
епа. 


Разумеется, не следует поручать методу ТУем’.14е слишком сложную 
работу, иначе пользователь Вашей программы будет безуспешно нажимать 
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на клавиши, пытаясь вернуть к жизни «зависшую» программу. Предпо-— 
лагается, что рабочий цикл метода не будет превышать нескольких сотен 
миллисекунд. Если все-таки Вы хотите выполнить достаточно длинную 
фоновую задачу, попытайтесь разбить ее на серию мелких шагов. 


18.6.6. Ненужные события 


Некоторые события могут оказаться ненужными в данном контексте 
программы. Например, пользователь может нажать командную клавишу, 
временно запрещенную для использования, или отметить мышью поле вне 
текущего диалогового окна. Ненужные события — это события, обработка 
которых не предусмотрена в данном модальном элементе или в любом из 
его подэлементов. Такие события возвращаются модальному элементу, 
который в этом случае вызывает свой виртуальный метод ЕуеЁЕтгог. Этот 
метод вызывает метод ЕуегЁЕтгог своего владельца и так происходит до тех 
пор, пока не будет вызван метод ТАррПсаНоп.Еуеп Етог. По умолчанию 
метод ТАррПсаНоп.ЕуепЕ Етгог просто ничего не делает. 

Вы можете перекрыть метод ЕуепЕЕтгог любого видимого элемента (или 
программы), чтобы, например, сообщить пользователю о его ошибке и/или 
дать справку о возможностях программы в данный момент. Кроме того, 
контроль за ненужными событиями может быть полезен на этапе отладки 
программы. 


18.7. ВЗАИМОДЕЙСТВИЕ ВИДИМЫХ ЭЛЕМЕНТОВ 


Иерархия объектов 'ГигЬо У!Яоп построена так, чтобы любой объект 
имел все необходимые для его работы поля и методы. Взаимодействие 
видимых элементов обычно осуществляется путем создания и использо — 
вания групп. Если у Вас возникнет необходимость организовать взаимо — 
действие не связанных друг с другом объектов, следует прежде всего 
тщательно проанализировать программу: возможно Вы не использовали 
всех средств Титро У1$91оп или некорректно разделили задачи между двумя 
видимыми объектами. В большинстве случаев задача может быть решена 
путем создания нового объекта, объединяющего в себе свойства двух 
других. 

Если программа спроектирована правильно и видимые элементы тре-— 
буют взаимодействия между собой, можно создать объект -— посредник. 
Гипичным примером такого объекта является внутренний буфер СПрБоага 
диалоговой среды Турбо Паскаля (опция Еай). Аля передачи фрагмента 
текста из одного окна редактора в другое фрагмент помещается в буфер 
командными клавишами 5ВЁ- Ое!] или СН]-—11$, затем вызывается другое 
окно и фрагмент вставляется в нужное место командой ЭАШ- 115$. Вы 
можете организовать такого рода буфер и в Вашей программе, так как с 
помощью Тиго У\У131оп Вам доступны все средства диалоговой среды Турбо 
Паскаля. Преимуществом создания объекта — посредника является то, что с 
его помощью легко решается проблема взаимодействия сразу нескольких 
объектов друг с другом. Например, если Вы создаете сложную интегри — 
рованную систему, включающую текстовый редактор, систему управления 
базами данных, электронную таблицу и сервисные средства, промежу— 
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точный буфер позволит передать данные из текстового редактора в базу 
данных, или из базы данных в электронную таблицу и т.д. 

Другим способом организации взаимодействия элементов является 
использование событий -— сообщений. Эти события создаются с помощью 
глобальной функции Ме5заде. Функция Ме55аде описана в интерфейсной 
части модуля Иез следующим образом: 


РКипсЕ1оп Меззаае (ВКесе1уег: Ру1ем; ИМРае, Соттап@: Мога; 
ТпЕоРег: Ро1лпфег): Ролпеег; 


Первым параметром указывается ссылка на экземпляр объекта, кото — 
рому адресуется сообщение. Остальные параметры используются для 
создания записи ТЕуепЕ. Функция создает запись события и, если это 
возможно, вызывает метод Весе1уег^.Напа1еЕуеп® для обработки этого 
события. Если адресат не существует или при обращении к функции 
указан параметр Кесеуег = МП. функция возвращает МП, — это означает, 
что событие не было обработано. Если событие успешно обработано 
(Весе1уег^ .Напа1еЕуеп® возвращает событие с полем И’аЁ = еуМойт9д, 
функция вернет указатель ЕуепЕ. шЮРИ. 

Как уже говорилось в п.18.6.2, стандартный метод С]еагЕуепЁ очищает 
событие, устанавливая Еуепё.ИПаЁ = еуМ№оттд и Еуеп пЮРН = @5$еи1. 
Таким образом, объект, обработавший и очистивший событие, оставляет в 
Буеп. ПЮРИ указатель на свою таблицу виртуальных методов. Этот ука— 
затель позволяет полностью идентифицировать объект-— получатель со— 
общения и организовать связь с ним. 

Рассмотрим пример. В диалоговой среде Турбо Паскаля используется 
окно отладки, с которым Вы, очевидно, хорошо знакомы. Если програм — 
мист потребовал открыть это окно, среда должна проверить, открывалось 
ли оно ранее: если да, то окно просто переносится наверх (в смысле 2— 
порядочения), если нет, создается вновь. Для реализации проверки среда 
дает сообщение 


АгеуоцТреге := Меззаде (ВезкКТор, емуВгоаасаз%, 
сиЕ1паМаесИ1паом, МТЬ); 


В методе Нап @еЕуепЁ окна отладки есть проверка на команлу 
стЕта\/аюйИПпадот: 


1Е (Еухепе.ИМрвае = еуВгоаасаз®) апа 
(Еуепе.СопмапА = спиЕ1тпаМа& с М1паои) ЕВБеп 
С1еахЕуеп® (Еуеп®); 


Если окно существует, оно очистит событие и оставит в нем сзою 
‹подпись» поэтому сразу за передачей сообщения реализуется такая 
проверка: 


3.Е АгеуосТНреге = №11 еЪеп 
Сгеаф еМаесвИ1паом {Создать новое окно} 
е&15е 
АгеУуочТреге^.5е1ес®; {Поместить существующее окно наверх} 
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Поскольку окно отладки — это единственный объект, который знает, 
как реагировать на команду стРтаУаюсйИПпаот, в диалоговой среде 
Турбо Паскаля может использоваться только одно окно этого типа. 

Таким же способом компилятор Турбо Паскаля определяет окно ре-— 
дактора, из которого следует брать текст компилируемой программы. Это 
окно — всегда верхнее на экране, поэтому компилятор посылает сооб — 
щение с командой, на которую откликаются только окна редактора. Так 
как событие — сообщение передается в (— порядке, первое откликнувшееся 
окно, Т.е. окно, очистившее событие, и будет самым верхним. 

Видимый элемент может послать сообщение, установив в поле 
ВуетПЦоРИ' указатель на собственную таблицу виртуальных методов. Это 
даст возможность получателю сообщения при необходимости обратиться к 
методам объекта — отправителя. 

Организовать взаимодействие можно также с помощью прямого вызова 
обработчика событий нужного объекта. Для этого экземпляр объекта— 
адресата (переменная типа объект или указатель на него) должен быть 
инициирован предыдущим обращением к конструктору и программа 
должна «видеть» его, Т.е. он должны быть глобальным по отношению к 
инициатору взаимодействия. 


18.8. КОНТЕКСТНАЯ ПОМОЩЬ 


В Тифо У\У!$9юп предусмотрены средства, облегчающие создание кон— 
текстно — зависимой справочной службы. С этой целью каждый видимый 
элемент имеет специальное шестнадцатиразрядное поле ТИЁШеи.Нерск;, 
содержимым которого Вы можете распоряжаться по своему усмотрению. 
Обычно каждому видимому элементу присваивается свой код (целое число 
в диапазоне от 0 до 65535), устанавливаемый в поле НерсС(х. В этом случае 
при нажатии на заранее обусловленную командную клавишу, откры— 
вающую доступ к справочной службе (обычно это клавиша Ё1), программа 
может получить текущий контекст (прямым чтением поля НерсС или с 
помощью метода СеНерсь) и передать его в качестве параметра вызова 
справочной службе. 

Где обрабатывать событие, связанное с нажатием клавиши вызова 
справочной службы? Идеальным местом для этого является источник всех 
событий — метод СеЕуегЕ. Этот метод связан с любым видимым эле- 
ментом, в том числе и с терминальным видимым объектом, и поэтому без 
труда может получить текущий контекст. | 

В следующем примере на экране создается диалоговое окно с двумя 
кнопками. Клавиша Ё1П используется для доступа к справочной службе. 
сли активна (выбрана) левая кнопка, нажатие на Р1 даст сообщение 
«Левая кнопка», если правая — «Правая кнопка». Если на экране нет 
диалогового окна (оно вызывается клавишей [Ё2), появится сообщение «Нет 


окна», 


зез СВТ, Арр, 01а1оч3,Ою]есе$,Охг1уегз, У1еч$, Мепаз; 

1-уре 
РРгодЗ 
ТРгод 


^ТРгод; 
оБЗесЕ (ТАрр11са®1оп) 
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Ргоседоге Напа1еЕуеп® (маг Еуеп®: Теуеп®); У\У1г%3а1; 
Ргоседиге СесЕуепк (уах Еуеп®: Теуеп®); У1гЕоа1; 
Ргоседиге Тп1Е5тафсоз1пе; У1г&аа1; 
епа; 
Ргосеаиге ТРгод.Напа1еЕуеп® (уак Еуепе: ТЕуепе); 
Ргоседиге П01а1о0о91п1&; 
уаг 
В; ТВесе; 
21а: РО1а1о9; 
В1,В2: РВаефоп; 
с: Мога; 
Бед1п 
С1еагЕуеп* (Еуеп®); 
В.Азз1ап (20,9,60,17); 


21а := М№ем (РО1а1оа, Тп1(В,'')); 
В.Аз5з1алп (3,4,19,6); 
В1 := М№ем (РВае оп, 111% (В, 'Левая',0,0)); 


В1^.Не1рсех := 1; 
Р1а^.ТпзекЕ (81); 
В.Азз1ап (20,4,35,6); 
В2 := М№ем (РВабеоп, Гп1 (В, 'Правая'!,0,0)); 
В2^.Не1рсех := 2; 
21а^.ТпзегЕ (В2); 
с := ЕхесУ1ем (Отта) 

епа; {(21а10о9Тп1Е} 

ред { ТРгод.Напа1еЕ уепЕ] 
ТАрр11сае1оп.Напа1еЕуеп® (Еуеп®); 
1Е (Еуепе.МБа® = еуСоптапа) 

(Еуеп®.Сопмапа = спМепа) %ЪВеп 
21а1о91п1% ’ 

ела; {ТРгод.Нала1еЕуепЕ} 

Ргосеаоге ТРгод.Тп1Е5таеа$11пе; 

\гаг 

В: ТВесф; 

ред1п 
сесЕхсепе (В); 
В.А.У := ргеа(В.В.У); 
Сфафи$11пе := М№ем (Р5сафазТ1пе, Тп1% (В, 
Мемибтаеа$реЕ (0,0, {Начальная строка статуса} 
МембсасизКеу ('-А16-Х- Выход', КЬА1Х, стОо1, 
МеибсабазКеу ('-ЁЕ1- Справка'!,КЬЕ1, спНе1р, 
МембсаеоазкКеу ('-Е2- Окно диалога', КЬЕ2, спМепа, №11))), 
МембфаеязоеЕ (1,2, {Строка статуса с диалоговым окном} 
МембкаеозКеу ('-Езс- Выход', КРЕзс, смСапсе!1, 
МембтабазКеу ('-ЁЕ1- Справка', КЬЕ1, сиНе1р, МТЕЬ)), 
мтЬ)))); 

впа; {ТРгод.Тп1Е5Еаёи®Г1пе} 
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Ргосе4ике ТРгод.СесЕуепе (уахг Еуепе: ТЕуеп®); 
соп$е 
фхе: аггау [0..2] оЕ ЗЕгапа = 
('Нет окна', 'Левая кнопка', 'Правая кнопка'); 
Бед1п 
ТАрр11сае1оп.СефЕуепе (Еуеп®); 
1Е Еуепе.Сопмапа = сиНе1р %Веп 
Бед1п 
СофохУ (60,1); 
ТехЕСо1ог (В1аск+В11пК); 
ТехЕВаскСсгоцпа (МВ1%е); 
Мтг1 фе (Тхе [бСееНе1рсех]); 
Ре1ау (2000); 
СофохУ (60,1); 
Из ее (' ') 
епа 
епа; (ТРгод.беЕЕуепЕ} 
уаг 
Ргоа: ТРгода; 
Ъед1п 
Ргоа.1Тп1; 
Ргоа.Вцп; 
Ргоа.Вопе 
ела. 


Для упрощение программы справочное сообщение выводится стан— 
дартными средствами Турбо Паскаля. Сообщение появляется в верхнем 
правом углу экрана и через 2 сек стирается, в течение этого промежутка 
времени доступ к клавиатуре и мыши блокируется. 

Контекст видимого элемента может управлять содержимым строки 
статуса. С этой целью в методе шиЗаш$Ипе используется два или более 
вызова М№ту5{1а 15)еЁ со своим диапазоном контекста (см. предыдущий 
пример). — 

В состав демонстрационных модулей Тито У139оп включен файл 
НерЕРиИе.раз и компилятор ТУНС.ра5$, существенно упрощающие процесс 
создания и использования контекстно — чувствительной помощи. 

Средства модуля Не!рЕЦШе позволяют по заданному контексту найти в 
особом файле справочной службы нужную справку и вывести ее на экран. 
’екст справки помещается в окно со скроллером, границы которого могут 
изменяться. Справочная служба контролирует размер окна и форматирует 
текст так, чтобы строки не выходили за границы окна. В тексте справки 
могут использоваться перекрестные ссылки, представляющие собой вы- 
деленные цветом фрагменты текста. Справочная служба обеспечивает 
доступ к этим ссылкам так, как это реализовано в среде Турбо Паскаля: 
ссылку можно выбрать клавишей Та или отметкой мышью, после чего 
нажатие на Епег приведет к раскрытию нового справочного окна с со- 
ответствующей справкой. 
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Для использования этих средств необходимо предварительно создать 
файл справочной службы, содержащий текстовые данные и средства 
управления ими. Файл справочной службы создается программой 
ТУНС.РА$ из обычного текстового файла, в котором используются сле-— 
дующие соглашения: 

® если очередная строка начинается символами .®ор1с, эта строка 

определяет заголовок темы; 


е если в тексте встречается фрагмент, обрамленный фигурными 
скобками, этот фрагмент определяет перекрестную ссылку. 
Заголовок темы содержит илдентифицирующее справку уникальное 
кодовое слово, и связанный с ним контекст. Например: 


.Еор1с У1емег=2 


Здесь Мемег — кодовое слово; 2 — контекст справочной службы. 

Все остальные строки до очередного заголовка темы составляют 
справочное сообщение и булут выводиться в окне справочной службы. 
Если очередная строка справки начинается пробелом, эта строка не 
форматируется и может отсекаться границами окна, в противном случае 
строка выводится с учетом текущих границ окна (если очередное слово не 
умещается в окне, остаток текстовой строки переносится на слелдующую 
строку окна). Например: 


‚Сор1с Е11е0реп=3 
Е11е Ореп 


Эта опция меню используется для загрузки файла 
Здесь строки 


Е1]1е Ореп 


начинаются пробелом и поэтому не форматируются, т.е. сохраняют СВОЙ 
вид независимо от границ окна, в то время как при выводе строки 


Эта опция меню используется для загрузки файла 


будут контролироваться границы окна (строка не начинается пробелом.) и, 
если очередное слово выйдет за его правую границу, остаток строки 
вместе с неуместившимся словом будет выведен в следующей строке окна. 

Любой фрагмент строки справочного сообщения, обрамленный фи-— 
турными скобками, рассматривается как перекрестная ссылка. Перекре— 
стная ссылка может содержать кодовое слово заголовка нужной справки 
или произвольный текст, за которым указывается двоеточие и кодовое 
слово. Например: 


С помощью опции {Е11е0Ореп} можно загрузить файл. 
ИЛИ 


Окно обеспечивает {просмотр файла: У1емег} в режиме 
скроллера. 
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В первом случае будет выведена строка 
С помощью опции Е11е0реп можно загрузить файл. 


причем слово ЕИеОреп будет выделено цветом и может использоваться как 
перекрестная ссылка на справку, заголовок темы которой имеет вид 


.Гор1с Е11е0реп =... 
Во втором случае в окне выводится строка 
Окно обеспечивает просмотр файла в режиме скроллера. 


Слова просмотр файла выделяются цветом и используются как перекре— 
стная ссылка на справку с заголовком 


.Еор1с \У1емег =... 
В заголовке темы можно указывать несколько кодовых слов, например: 
.Кор1с Е11е0реп=3, ОрепЕ11е=103, ЕЕ11еОреп 
Доступ к такой справке возможен для контекстов 


соп5е 
СЬВЕ1]еОреп = 3; 
спОрепЕ1]1е = 103; 
СсВЕЕ11]еОреп= 104; 


Обратите внимание: за кодовым словом ЁЕЁЕЦеОреп не указывается 
контекст, в этом случае считается, что связанный с ним контекст есть 
предыдущий контекст, увеличенный на 1, т.е. 


СВЕЕ11еОреп = 103 + 1 = 104 


Файл ДЕМОНЕГР.ТХТ содержит пример исходного текстового фа’дла, 
подготовленного с учетом описанных требований для преобразования 
программой ТУНС.РА$ в файл справочной службы. 

Подготовка справочного файла и его использование осуществляется в 
следующей последовательности. 

1) Подготавливается текстовый файл МАМЕТЕХТ, содержащий заго-— 
ловки тем, справки и перекрестные ссылки. 

2) Вызывается программа ТУНС.ЕХЕ (исходный текст этой программы 
содержится в файле \ВР\ЕХАМРЕЕ$ \РО5\ТУРЕМО$\ТУНС.РА5) для ссз-— 
лания файла справочной службы МАМЕНЕГР и вспомогательного модуля 
МАМЕРА$. Обращение к программе описано ниже. 

3) В программе, использующей средства модуля НерЕийе: 

а) вызывается процедура КедйяегНе!рЕРИе для регистрации объектов 
модуля НерРиИе в потоке; | 
6) открывается поток, связанный с созланным файлом МАМЕНЕ!?; 

в) создается экземпляр объекта ТНерРиИе и ему передается поток и 
нужный контекст; 

г) инициируется работа созданного экземпляра; 
д) ликвидируется экземпляр объекта. ТНерЕйе. 
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Действия 3,6, ... ЗА осуществляются каждый раз, когла необходимо 
выдать ту или иную справку. 

Для преобразования текстового файла во внутренний формат, ис- 
пользуемый средствами модуля Не!рЕЙе, предназначена программа, ис— 
ходный текст которой поставляется в файле ТУНС.РА5. Перед использо — 
ванием этой программы ее необходимо оттранслировать в ЕХЕ- файл. 
Формат вызова программы ТУНС.ЕХЕ: 


ТУНС МАМЕТЕХТ [МАМЕНЕГР [МАМЕРАЗ]] 


(в квадратных скобках указаны необязательные параметры). Здесь 
МАМЕТЕХТ -— имя исходного текстового файла, МАМЕНЕГР — имя вы- 
ходного файла справочной службы, МАМЕРА$ — имя выходного файла, 
содержащего текст модуля с контекстами в виде констант сАХХХХ. Если 
имена выходных файлов опущены, будут созданы файлы с именем ис- 
ходного файла и расширением НЕР для файла справочной службы, РА$ для 


текста модуля. 
Текст файл МАМЕРА$ имеет следующий вид; 


41016 папераз; 

1пеегЕасе 

сопзЕ 
СВТор1с1 
сВТор1с2 


| 
5 = 
И 


сВТор1сМ = пм; 
1пр]1етеплеа®1оп 
епа. 


Поскольку этот файл создается программой ТУНС.ЕХЕ автоматически, 
будьте внимательны при обращении к ней. Не рекомендуется опускать 
имена МАМЕНЕЁГР и МАМЕРАЗ: если имя исходного текстового файла 
совпадает с именем программы или любого другого РА$— файла, ста]рый 
файл будет стерт и на его месте будет создан файл с текстом модуля! 

Для иллюстрации техники использования средств модуля НеюрЕИе 
рассмотрим следующий пример. Пусть текст справочной службы помещен 
в файл Не!рТезЕ Е и имеет следующий вид: 


.Сор1с МоСопеехе=0 
Добро пожаловать 
в справочную службу системы Тагро У131оп! 


В текстовом файле для справочной службы Вы должны подго- 
товить {заголовки тем: $ор1с} и {перекрестные ссылки: 
Сгоз$ВеЁ}. Весь текст от одного заголовка до другого 
представляет собой текст справки и выводится в окне спра- 
вочной службы. При подготовке текста учитываются следую- 
щие соглашения: 

если очередная строка начинается символом пробел, эта 
строка не будет форматироваться с учетом границ окна; 
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во всех остальных случаях выводимый в окне текст форма- 
тируется с учетом границ окна: слово, не умещающееся на 
строке, переносится на следующую строку экрана. 
Для преобразования текстового файла в файл справочной 
службы вызывается программа ТУНС.ЕХЕ; 


ТУНС МАМЕТХТ [МАМЕНЕГР [МАМЕРАЗ]] 


Здесь МАМЕТХТ - имя исходного текстового файла; МАМЕНГР - 
имя выходного файла справочной службы; МАМЕРА$ - имя вы- 
ходного файла, содержащего текст РА$-модуля с определени- 
ем всех контекстов в виде констант САХХХХх. 

Имя файла МАМЕНЕГР можно не указывать - в этом случае вы- 
ходной файл будет иметь имя входного файла и расширение 
НГР. Если не указан файл НЕГРРА$5, будет создан файл с 
именем исходного и расширением РАб. о 

По умолчанию программа использует расширение ТХТ для 
входного файла, НПШР для выходного файла справочной службы 
и РАЗ - для файла констант. 

.Еор1с Тор1с=1 

Заголовок темы имеет следующий формат: 


.Сор1с Маме [=М] [, Мате] [=№2] [...]] 


Здесь Мате - имя темы (может состоять только из латинских 
букв и цифр; разница в высоте букв игнорируется); М - 
контекст справочной службы, при котором выдается данная 
справка. | 


В квадратных скобках показаны необязательные параметры. 
Если опущен контекст М, программа присваивает соответст- 
вующей перекрестной ссылке контекст МРгеу + 1, где МРгеу 
- предыдущий определенный в программе контекст. | 
.Сор1с Сгоз$ВеЕ=2 

В произвольное место текста справки. можно вставить так 
называемую перекрестную ссылку: 


(СехЕ [:1%1е]) 


Здесь () - фигурные скобки; ЕехЕ - произвольный текст или 
заголовок темы; Е1Ё1е - заголовок темы; этот параметр 
вместе с двоеточием опускается, если ЕехЕ - заголовок те- 
мы. 


Если Вы подготовите такой файл, то после вызова 


Ус Бе1реезе 


будут созданы два файла: файл справочной службы Вере Шр и файл 
модуля с определениями констант Пер{ез раз. Содержимое этого го— 
следнего файла будет таким: 
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ип1 Не1рёезе; 

1п%егЕасе 

сопзЕ 
ВсСгоз$ВеЕ = 2; 
ПсМмМоСопфехЕ = 0; 
ПсЕор1с = 1; 

1тр1етепфа®1оп 

епа. 


Следующая программа будет выдавать контекстно — зависимые спра— 
вочные сообщения из файла ПВе!р!е51.Шр при каждом нажатии на РЁ]. 


Озез Арр, Мепоаз, Ог1уегз, \У1емз, Об]есе5$, Не]1рЕ11е, ПО1а1о0о9$; 
сопзЕ 
спСпапаесех = 1000; 


фуре 
РСЕхУ1ем = ^ТСехУ1ем; 
ТСехУ1ем = оБЗес® (ТУ1ем) 


СопзЕгасеохг Тп1Е; 
Ргосеаицге Огам; \У1х%Еча1; 
епа; 
МуАрр = оБЗесЕе (ТАрр11са®1оп) 
Сех: РСехУ1ем; 
Сопзегасфох 111%; | 
Ргоседиге 1п1&53хатозГ1пе; \У1гх%1а1; 
Ргоседахе НапЧ1еЕуеп* (уаг Еуеп®: ТЕуеп®); У1к®за1; 
епа; 
РМуНе1рИ1паом = ^МуНе1рИ1п9аом; 
МуНе1рМ1паом = оБЗесе (ТНе1рИ1паом) 
РКаопсЕ1оп СееРа1е фе: РРа1ебее; У\У1г®ча1; 
епа; 
]?хгоседахе МуАрр. 1116 5$афа$11пе; 
‘тах 
В: ТВесЕё; 
2е91п 
СесЕхсеп® (В); 
В.А.У := ргеа(в.В.У); 
Зсаеа$Т1пе := Мем (РЗбаеазЪ1пте, Тп1Е (В, 
МеибкасазПеЕЁ (0, $ЕЕЕЕ, 
МеибсабазКеу ('-А1%-Х- Выход', КРАТЕХ, СстОо1е, 
МембтаеазКеу ('-ЁР1- Помощь', КЬЮЕ1, стНе]1р, 
Меч акозКеу ('-Е2- Изменить контекст', КЪЕ2, 


спСПапаесех, 
МеибсасазКеу ('-Е5- Распахнуть окно', КЪРЪ, 
сиаоом, 
№1Ь)))), 
МТ1.))) 


па; 


15—1411 
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СопзЕкгисеохг МуАрр.1Тп1%; 


Бед1п 
ТАрр11са®1оп.1п1%; 
СЕх := М№ем (РСЕхУ1ем, Тп16); 
Тпзег® (Сех); 
Вед1з$егНе1рЕ11е 
епа; 
Ргоседиге МуАрр.Напа1еЕуепе; 
уаг 


НЕ: РНе1рЕ11е; 

НЗ: РБозЗегеап; 

НИ: РМуНе1р\И1пдои; 
соп$Е 

Не]1рОреп: Воо1еап = ГЕа1$е; 
Ргосеааге ПоНе1р; 
{Обеспечивает доступ к контекстно-зависимой справочной службе] 
уах 

С: Мога; 
Бед1п 

С1еагЕуепЕ (Еуеп{^); 

{ Открываем РО$-поток: } 

Н5$ := М№ем (РРрозбегеам, 2116 ('НЕГРТЕЗТ.НЬР'!, зЕОрепБеаа)); 

{ Создаем и инициируем экземпляр объекта ТНе]1]рЕ11е: } 

НЕ := М№ем (РНе1рЕ11е, Тп16(Н$)); 

Не1рОреп := Н5^.5$аба$ = $%О0К; 

1Е Не1рОреп @Беп 

Бед1п 
[Создаем окно справочной службы и связываем его с потоком Н5. и 
пекущим контекстом:} 
НМ := Мем (РМуНе1рМ1пАом, Тп1® (НЕ, СбееНе1рс&х)); 
1Е Уа]11аАУ1ем (НИ) <> МТЬ &Ъеп 


Бед1п 
С := ЕхесУ1ем (НМ); {Выдаем справку} 
21зрозе (НИ) {Ликвидируем окно} 
епа; 
Не]рОреп := Га15е 
епа 
е1зе 
21зрозе (НЕ, Попе) 
впа; 
ред1п 


ТАрр11са&1оп.Напа1еЕуеп® (Еуеп®); 
сазе Еуеп®.Соттапа оЕЁ 
спНе]1р: 1 по Не1рОреп Вей 


РоНе1р; {Выдаем справку} 
спСсвапчеСфх: {Изменяем контекст по клавише Е?2} 
Бед1п 


1Е Не1рСех = 3 ®Веп 
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Не1рсСех := 0 
е]1.зе 
1пс (Не?фрсСех); 
Сех^.Охам; 
С1еахЕуеп* (Еуеп®) 
епа 
епа 
епа; 
РГиапсЕ1оп МуНе1рИ1паом.СееРа1ек*е; 
сопзе 
Р = $#16#17#18#19#20#47#21+413; 
С: Зегапа [8] =Р; 
Бед1п 
СесРа1е фе := @С 
епа; 
Сопзегасеохг ТСехУ1еи.Тп1(; 
у\аг 
В: ТВесе; 
Бед1п 
В.Аз51ап (67,0,80,1); 
ТУ1ем. Тп1® (КВ); 
епа; 
Ргосеаиге ТСехУ1еи.Огам; 
\аг 
5: ЗЕЕапа; 
В: ТОгамВаЕЕег; 
С: Вуее; 
ред1п 
ЗЕг (Арр11са®*1оп^.Не1рСех, 5); 
5 := 'Контекст = "+95; 
С := СеЕСо1ох (2); 
МоуеСьаг (В, ' !, С, $5127е.Х); 
Моуезег (В, 95, С); 
Мг1сеГ1пе (0,0,512е.хХ,1,В) 
ера; 
чтаг 
Р: МуАрр; 
}2ед1п 
Р.Тп1; 
Р.Воап; 
Р.Попе 
епа. 


В программе предусмотрена смена текущего контекста с помоглью 
клавиши 22. Разумеется, в реальной программе смена контекста будет, 
судя по всему, происходить иначе: обычно в текст конструктора шИ Еи-— 
димого элемента вставляется оператор 


Не1рсех := МММ; 
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гле МММ — нужный контекст. 
Для визуализации текущего контекста в программе используется 


простой объект ТСи\Шеу, с помощью которого в верхнем правом углу 
экрана выводится строка 


Контекст = М 


№ — текущий контекст. 


Глава 19 


КОЛЛЕКЦИИ 


Одним из недостатков языка Паскаль (и Турбо Паскаль) является не 
возможность создания и использования в программе массивов с пере-— 
менной размерностью — так называемых динамических массивов. Этот 
недостаток особенно ощутимо сказывается в диалоговых программах, 
работа которых в существенной своей части определяется действиями 
пользователя. Если программист заранее не знает, какие именно требо— 
вания к используемым в программе массивам предъявит пользователь, он 
обычно резервирует для них максимально возможные объемы памяти или 
размещает массивы в куче. И тот и другой способы нельзя считать вполне 
удовлетворительными: в первом случае возникают неестественные огра— 
ничения на предельно возможные размеры массивов или выделенная под 
их размещение память расходуется нерационально, во втором случае 
приходится прибегать к дополнительным ухищрениям, чтобы организовать 
индексированный доступ к динамической памяти. 

Разработчики Тигоо \У151оп решили проблему кардинально, создав ме 
ханизм коллекций. Хотя экземпляры объектов можно объединять в мас-— 
сивы, как и «обычные» переменные Паскаля, Вы вряд ли захотите ис-— 
пользовать массивы для их хранения: коллекции не только снимают 
проблемы фиксированных границ, но имеют еще и целый ряд новых 
возможностей, которыми массивы не обладают. 

Изучению коллекций посвящается эта глава. 


19.1. ЭЛЕМЕНТЫ КОЛЛЕКЦИЙ 


Коллекции предназначены, строго говоря, для тех же целей, чт> и 
массивы языка 'Гурбо Паскаль: они позволяют создать набор из произ — 
вольного количества элементов и организуют индексный способ доступа к 
этим элементам. В отличие от массивов коллекции обладают двумя новыми 
свойствами. Во-первых, их размер может динамически меняться в ходе 
работы программы, фактически ограничиваясь лишь доступной памятью. 
Во-вторых, в коллекции могут храниться элементы разных типов. [10 -— 
следнее свойство называется полиморфизмом коллекций. 

Технически коллекции представляют собой массивы нетипизированчых 
указателей на размещенные в динамической памяти элементы коллекций. 
‹эти массивы размещаются в куче — отсюда возможность динамического 
изменения размеров коллекций; с другой стороны, входящие в эти списки 
указатели позволяют ссылаться на произвольные элементы, отсюда го-— 
лиморфизм. 

Полиморфизм коллекций — это очень мощное средство, которым 
следует пользоваться с осторожностью, поскольку фактически коллекция 
хранит лишь указатели на элементы. Компилятор не может проверить 
правильность доступа к элементам; Вы можете поместить в коллекцию 
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один объект, а взять его из коллекции как объект другого типа и ком- 
пилятор не сможет предупредить Вас об этом. 


19.2. СОЗДАНИЕ КОЛЛЕКЦИЙ 


Для создания коллекции следует ‘прежде всего определить тип тех 
данных, которые будут в ней храниться. Например, Вам необходимо 
создать электронный каталог Вашей личной библиотеки. В этом случае для 
каждой указанной в каталоге книги можно выделить пять полей данных: 
автор, название, издательство, год издания и количество страниц. Создадим 
новый объект ТВоок слелующего вида: 


Озез ОЪ]есЕз; 


фуре 
РВооКк = ^ТВоокК; 
ТВооКкК = оБзес® (ТОБ]ес+) 
Айдфог: Р5Ег1пд; {Автор} 
1161е: Р5ег1пда; {Название} 
РаБНоцзе: Р5ег1па; {Издательство} 


Уеах: Мога; 
Радез: Мога; 


{Год издания} 
{Количество страниц} 


СопзЕгасвог 1п1е(А,Т,РН: $%г21па; У,Р: ШМога); 
Резёгасвог Попе; У1г%1па1; 
епа; 


Мы включили в объект поля и два основных метода работы с ними: 
конструктор ШИЙ используется для размещения в динамической памяти 
очередной записи каталога, деструктор Попе удаляет записи из кучи. 
Заметим, что в объекте задаются не сами текстовые строки, а указатели на 
них (тип Р5Нтд в Тифо У131юп описан как указатель на тип $51119). Тёкое 
]азмещение данных как правило дает значительную экономию памяти. 
}4апример: 


СопзЕгасеог ТВооКк. 1116 (А,Т,РН: $З%х21ра; У,Р: Мога); 


}2е91п 
Аацбог := Мемзег (А); 
Т161е := Мемб5ег (т); 
РаБНоцзе := М№ембег (РН); 
Уеаг := %\; 
Радез := Р 


епа; (ТВооКк.Тп1 Е} 


Мспользуемые в конструкторе функции М№ем5Ш размещают в динамической 
памяти текстовую строку, выделяя под нее минимально необходимую 
память. что значительно выгоднее по сравнению с типичным описанием 
текстовых полей вида 


1-уре 
ТВооКк = оБЗес®е (ТОБ)ес®) 
Аптог, Т161е, РаБНоцзе: $65119; 
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Для освобождения динамической памяти в деструкторе Допе исполь— 
зуется процедура ПО{5ро5е5И:: 


Резехгасфог ТВоок.Попе; 
Бед1п 
215розебег (Айбог); 
21 5розезех (Т1&1е); 
21 5розебег (РаБНоцзе) 
еп; {ТВоохк.1п1Е} 


После того как тем или иным способом определены типы данных, 
создание коллекции не вызывает проблем. Например: 


уаг 
Воок11$*: РСо11есЕ1оп; 
Бед1п 
ВооКк!115Е := Мем (РСо11ес&1оп, Тп1&(50,10)); 
м1ЕВ Воок!Г1$%^ ао 
Бед1п 


Тпзег* (М№ем (РВооКк, Тп1®('Джордейн Р.', 
'Справочник программиста персональных компьютеров'+ 
' типа 1ВМ РС, ХТи АТ', 'Финансы и статистика', 
1991,544))); 
ТпзегЕ (Мем (РВооКк, 1п1('Шелдон', 
'Язык Си для профессионалов', 'И.В.К.-СОФТ'!, 1991,383));; 
ТпзегЕ (М№ем (РВооКк, Тп1®('Скэнлон Л.', | 
'Персональные ЭВМ Т1ВМ РС и ХТ. '+ 
'Программирование на языке ассемблера', 
'Радио и связь'!,1991,336))); 
Трзеге (М№ем (РВоок, 
101% ('Йенсен К., Вирт Н.', 
'Паскаль. Руководство для пользователя '+ 
'и описание языка'!, 'Финансы и статистика'!,1982,151))), 
епа; 
21зрозе (Воок11$%, Попе); 
впа; 


Для создания коллекции мы обратились к методу ТСоПесНоп.штй, указав 
ему начальную длину коллекции (50 элементов) и шаг наращивания (10 
элементов). Руководствуясь этими указаниями, Гао У\У1$1оп зарезервирует 
в динамической памяти место для размещения 50 указателей. Если в ходе 
наполнения коллекции ее длина превысит начальную, Тиатро У\У131юоп будет 
наращивать коллекцию порциями, каждая из которых достаточна для 
размещения 10 указателей. 

Смысл параметров, передаваемых методу ТСо[есНоп.ти, станет го-— 
нятнее, если рассмотреть механизм создания и обновления коллекции. 
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Вначале в куче резервируется участок памяти, достаточный для разме— 
щения массива из № указателей (№ — начальный размер коллекции). 
Если в ходе наполнения коллекции ее длина превысит № элементов, ре— 
зервируется новый участок памяти, достаточный для размещения массива 
из №0 + ОМ указателей (2М — шаг наращивания коллекции), затем старый 
массив переносится на новое место, а память, выделенная под его раз— 
мещение, возвращается в кучу. Таким образом, чем больше начальная 
длина коллекции и шаг ее наращивания, тем меньше суммарные потери 
времени на расширение коллекции, но и тем больше могут стать потери 
памяти, если реальная длина коллекции окажется значительно меньше № 
+ КОМ (К = 0, 1, 2....). 

Операторы 5егЁ размещают в динамической памяти элементы кол— 
лекции. В реальной программе наполнение коллекции будет, судя по всему, 
осуществляться каким —то иным способом, чем простое программирование 
обращений к методу 1п5$егё (см., например, программу МоеБоок из гл.15}. 
Для нас сейчас важно другое: мы нигде не говорили коллекции, какого 
типа объекты она будет хранить; для обеспечения нужных действий по 
размещению в памяти очередного элемента мы просто обращаемся к 
соответствующему методу ШИ, а уж он делает остальное — ведь он «знает» 
как это следует сделать. 

Отметим, что обращение 


21зрозе (Воок11$3е, Попе); 


зызывает автоматическое обращение к методу ТВоок.Оопе перед унич— 
тожением каждого элемента коллекции, после чего уничтожается экзем — 
пляр ТСоПесНоп. Это стало возможным потому, что объект ТВоок объявлен 
нами как потомок от ТОБесЕ Если бы мы его объявили независимым 
объектом | 


фуре 
ТВоок = оБЗес: 


епа; 


мы должны были бы сами позаботиться об освобождении кучи, а обра— 
1цение 


21 зрозе (ВооКкЬ1$6е, Попе); 


привело бы к «зависанию» программы. 


19.3. ДОСТУП К ЭЛЕМЕНТАМ КОЛЛЕКЦИЙ 
Итак, оператором 
ВооКк!11$+ := Мем (РСо11ес®1оп, 1п18(50,10)); 
мы объявили о создании коллекции, а операторами 


Тпзехк® (М№ем (РВооКк, 1п16(...))) 
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наполнили эту коллекцию нужными элементами. Как осуществить доступ к 
элементам коллекции? Для этого можно использовать несколько способов. 

Во-первых, к любому элементу коллекции можно обратиться по его 
порядковому номеру (индексу). В отличие от массивов Турбо Паскаля, 
индексы которых могут иметь произвольные границы, коллекции индек-— 
сируются целыми числами в диапазоне от 0 до Соиш-—1 (СоипЁ — общее 
количество элементов в коллекции). Любая коллекция имеет поле СоигЕ 
которое указывает текущую длину коллекции. Чтобы по индексу получить 
доступ к нужному элементу, используется метод АР который возвращает 
указатель на элемент. 

Например, нам требуется вывести на экран содержимое тех записей 
нашего каталога, которые соответствуют 1991 году издания. Тогда вместо 
точек в конце программы, показанной на с.455, следует вставить оператор 


Ру1пЕУеаг (ВоокТ15%, 1991); 
Кроме того, в раздел описаний программы добавим две новых проце-— 
дуры: 


Ргосе4иге Рг1пЕТееп(А,Т,РВ: $%х1па; У,Р: Мога); 
{Выводит на экран элемент коллекции} 


Бед1п 
Иг1ЕеГл (А); 
Ихтсегп (' ',тТ): 
Мите шт (' ',РВ,!, "',У,', ",Р) 


епа; {РгтрЕТЕепт} 
Ргосеаиге Рг1пЕУеахг (Воокт15е: РСо11есе1оп; У: Мога); 
{Выводит на экран издания нужного года выпуска} 
уаг 
ВооКк: РВоок; 
К: Трбедег; 
]2ед1п 
Иг1ее!п; 
ог К := 0 Фо ргеа (Воокт13Е^.Соцп®е) ао 
Ъед1п 
ВооКк := ВооКкЬ1$6^.АЕ (К); 
и1ЕВ ВооКк^ @4о 1Е Уеаг = У &Ъеп 
Рх1пе Тем (Ааког^, Т1%1е^, РаБНоцзе^,Уеаг,Радез) 
епа 
епа; /Рг1рЕУеаг} 


В процедуре РгийУеаг организуется счетный цикл от 0 ло рхгеа 
(ТСоЙесНоп.Соип\. С помощью оператора 


ВооКкК := ВооКТ1$е^.АЕ (К); 


в переменную Воок помещается указатель на элемент коллекции с ин-. 
дексом К. Именно здесь обеспечивается полиморфизм коллекций: метод АЕ 
возвращает нетипизированный указатель который Вы можете интер-— 
претировать нужным Вам образом. Однако здесь же таится источник 
трудно обнаруживаемых ошибок: в левую часть оператора присваивания 
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можно поместить указатель любого типа и тип этого указателя может не 
соответствовать типу К—го элемента коллекции. 

Отметим, что обращение к методу АЕ с индексом, выходящим за гра— 
ницы коллекции, активизирует вызов метода ТСоЙесйоп.Епгтог, который по 
умолчанию аварийно завершает исполнение программы (подробнее см. 
п.17.6). 

Помимо использования метода АЁ коллекции обеспечивают доступ к 
трем итерационным методам, которые могут оказаться весьма удобными. 
Метод РогЕасй осуществляет некоторую заранее заданную операцию сразу 
над всеми элементами коллекции, а методы Еиг$#ГРа! и ГазТНа! отыскивают 
в коллекции первый элемент, удовлетворяющий некоторому опять же 
заранее заданному критерию поиска: РИи$ЕЁТВа! ищет от начала коллекции к 
ее концу, а Га5Е Гра! — в обратном направлении. 

Чтобы воспользоваться методом РЕогЕасй мы должны сначала создать 
процедуру без параметров, которая осуществляет нужные действия над 
всеми элементами коллекции, и передать адрес этой процедуры как па— 
раметр обращения к ЕогЕасй. Например, для того чтобы вывести на экран 
содержимое всего нашего каталога, мы должны внести в программу сле- 
дующие изменения. Поместите в раздел описаний следующий текст про— 
цедуры РигЕАЙ: 


Ргосеапге Рг1п+А11 (Воок: РСо11ес®1оп); 
{Вывод всех элементов коллекции} 
Ргосеацге Рг1пЕВооКк(Р: РВооКкК); Фаг; 
Бед1п 

м1ЕВ Р^ ао 

Ру1 пе ТЕем (Ацбог^, Т1Е1е^, РобНоцзе^ , Уеаг, Раде$) 

епа; (РелпЕВоок} о 
]2ед1п {РЕ1пЕА11} 

Их вел; 

ВооКк^.КГогЕасВ (@Рг1пЕВооКк); 
впа; /Рг1тпЕА]]} 


Как видите, эта процедура содержит внутреннюю процедуру РишиВрок, 
3 которой осуществляется нужное нам действие — вывод очередного 
элемента каталога на экран. Этот вывод достигается с помощью вызова 
уже использованной нами ранее процедуры РипШет. Таким образом, 
описание процедуры РиИпЁАЙП должно следовать после описания РитИ!ет, 
чтобы этот вызов был синтаксически правильным. Далее, вывод всех 
элементов коллекции в процедуре РиЕАП осуществляется оператором 


ВооКк^.РогЕБасН (@РизпЕВооКк); 


который обращается к методу ТСоПесНоп.РогЕасй, передавая ему в качестве 
параметра адрес процедуры РгИиВооК. Чтобы программа успешно вы-— 
полнила нужные действия, процедура, адрес которой передается методу 
ГогЕасй, должна удовлетворять двум условиям: 
е она должна быть рассчитана на дальнюю модель вызова (Аля зтих 
целей мы указали директиву [{аг сразу за заголовком РииВоок); 
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е она должна быть локальной для процедуры, в которой реализуется 
вызов РогЕасй, именно поэтому мы разместили ее в теле процедуры 
РипЕАП. 

Осталось в тело главной программы поместить оператор 


Рг1пА11 (ВоокГ1$е); 


перед оператором уничтожения коллекции. Если Вы запустите таким 
образом подготовленную программу на счет, на экран будет выведено: 


Джордейн Р. 

Справочник программиста персональных компьютеров типа ТВМ РС, 
ХТилт 

Финансы и статистика, 1991, 544 

Шелдон 

Язык Си для профессионалов 

И.В.К.-СОФТ, 1991, 383 

Скэнлон Л. 

Персональные ЭВМ ТВМ РС и ХТ. Программирование на языке ас- 
семблера 

Радио и связь, 1991, 336 

Йенсен К., Вирт Н. 

Паскаль. Руководство для пользователя и описание языка 
Финансы и статистика, 1982, 151 


Все действия по выводу содержимого коллекции реализуются методом 
БогЕасй, который для собственно вывода каждого очередного элемента 
обращается к процедуре Рии@Воок. 

Точно таким же образем реализуется обращение к методам РиЗЕТЬи и 
‚аз{Тва. Например, если нам потребуется отыскать в каталоге запись, 
содержащую слово «Вирт» в поле Аиюг, можно добавить в программу 
следующие строки 
]?госедихе ЗбеахгсвАаеохг (Воокт15$6: Рсо11есЕ1оп; А: $%х2ла); 
гапсё1топ ЕРЕ1паАйфог(Р: РВооКк): Воо1еап; ах; 


ред1п 

Е1паАЦФОог := роз(А, Р^.Аафог^) <> 0 
епа; {(РтпадАивог} 
таг 


ВооКк: РВооКк; 
ред1п (5беагсрАиЕог} 
ВооК := ВоокК1158^.Е1г5еТрае (@Р1паАос ог); 
1Е Воок = МТЬ &Веп 
ИМг1$еЁл ('Нет автора ',А) 
е]1зе м1ЕЪ ВооКк^ ао 
Бед1п 
Мутее!Гп; 
Рг1пеТсем (Ачбог^,Т161е^, РаБНоцзе^, Уеаг, Радез) 
епа 
опа; (беагспАиЕог]} 
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_ В тело главной программы следует добавить оператор 
бЗеагсНАа ог (Воок115$е,'Вирт'); 
Собственно поиск элемента коллекции реализуется оператором 
ВооКк := ВооКкЬ1$е^.Е1к5ЕТрае (@Е1паАоког); 


который для этих целей обращается к методу ТСоПесНоп.РизЕТраЕ. В этом 
методе реализуется последовательный анализ всех элементов коллекции, 
начиная с самого первого (с индексом 0), причем для анализа используется 
вызов функции ГтаААшог. Как видим, эта функция нужным образом 
анализирует очередную запись и возвращает Тгие, если условие поиска 
удовлетворено. Метод РИ5ЁГраЁ возвращает указатель на элемент кол— 
лекции, для которого удовлетворено условие поиска, или МП. если этому 
условию не отвечает ни один элемент. Таким образом, оператор 


1Е ВооКк = МТЬ &Ъеп 


е1зе 


проверяет результат поиска и выводит на печать найденный элемент 
коллекции или сообщение «Нет автора ..», если условие поиска не 
удовлетворено. 

Как и в случае метода РогБасй, функция, передаваемая методу Ри ТПоЕ, 
должна транслироваться в расчете на дальнюю модель памяти и должна 
локализоваться в теле процедуры, в которой осуществляется вызов метода. 

Любой элемент коллекции можно удалить или заменить новым. Для 
удаления используется метод Агее, которому в качестве параметра пе-— 
редается индекс удаляемого элемента. При удалении элемента предпо— 
лагается, что коллекция содержит указатели на объекты, порожденные от 
ГОБесЁ и размещенные в куче, поэтому автоматически вызывается метод 
ГОБес!.Ропе. Индексы всех элементов, размещенных в коллекции после 
удаляемого элемента, уменьшаются на 1. 

С помощью метода РеееАЛ удаляются все элементы из коллекции но 
сама коллекция при этом сохраняется, т.е. очищенная коллекция будет 
иметь СоипЁ = 0. Для очистки коллекции вызывается АЁШтее для каждого 
элемента. | 

Чтобы заменить существующий элемент новым, используется метод 
АЁРиЕ (Штаех, Пет), гле шаех — индекс заменяемого элемента, а Пеп — 
казатель на новый элемент. 

Метод АИп5егЁ (таех, Пет) вставляет новый элемент в коллекци!о в 
позицию таех и увеличивает индексы всех ранее существовавших в 
коллекции элементов от элемента ШАех ло конца коллекции на единицу, 
т.е. «раздвигает» коллекцию. 


19.4. ОТСОРТИРОВАННЫЕ КОЛЛЕКЦИИ 


Часто бывает необходимо каким —либо образом упорядочить коллек — 
цию, Т.е. расставить ее элементы в определенном порядке. Для этих целей 
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в ТшыЪо У1$1оп предусмотрен специальный объект Т5оЦеаСоПесНоп. Этот 
объект порожден от ТСоЙесНоп и, следовательно, уже умеет создавать 
коллекцию, вставлять в нее элементы и удалять их. Единственное, чего он 
не умеет — это сортировать коллекцию. В ТбопеаСоЙесйоп есть абст-— 
рактный метод Сотраге, который используется для упорядочения эле— 
ментов и который Вы должны перекрыть, чтобы обеспечить нужную Вам 
сортировку. Таким образом, чтобы создать отсортированную коллекцию, 
Вы должны создать объект-— потомок от ТэзоЦеаСо!есНоп и перекрыть его 
метод Сотраге. 

По умолчанию этот метод получает в качестве параметров указатели на 
два элемента коллекции и должен вернуть 1, 0 или —1 в зависимости от 
того, больше, равно или меныше какое-то поле первого элемента по 
сравнению с этим же полем второго элемента. Поле, по которому срав-— 
ниваются элементы, называется ключевым. 

Например, нам требуется создать отсортированную коллекцию, со-— 
держащую каталог библиотеки (см. пример п.19.3}, причем в качестве 
ключевого используется поле Аиюг’. Тогла создадим новый объект 


фуре 
Р5охЕ = ^Т5зоЕЕ; 
Тбохе = оБзесе (ТбогсеЯСо11ес®1оп) 
Рипсе1оп Сопраге (Кеу1, Кеу2: Ро1пеег): Тпеедег; У1х&чаа1; 
епа; 


чтобы перекрыть метод Сотраге. Если теперь объявить новый метод 
Т5ои.Сотраге слелдующим образом: 


ГипсЕ1оп ТбокЕе.Сотраге (Кеу1, Кеу2: Ро1пеег): Тпфедег; 
уах 
А: РбогЕ арзо1о%е Кеу1; 
В: Р5огЕ аБзо1а%е Кеу2; 
}›едч1п 
1Е А^.Асбсог^ < В^.Аасбког^ +Веп 
Сопраге := -1 
е1зе 1Е А^.Ацеог^ = В^.Аафког^ Веп 
Сопраге := 0 
е1зе 
Сопраге := 1 
опа; {(Т5богЕ.Сотраге} 


"О после объявления 


у\аг 
Воок115$6: Р5$оге; 


вместо 


уаг 
Воокт15$е: РСо11есЕ1оп; 


программа выведет каталог, отсортированный по фамилиям авторов. 
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Джордейн Р. 

Справочник программиста персональных компьютеров типа 1ВМ РС, 
ХТилдт 

Финансы и статистика, 1991, 544 

Йенсен К., Вирт Н. 

Паскаль. Руководство для пользователя и описание языка 
Финансы и статистика, 1982, 151 

Скэнлон Л. 

Персональные ЭВМ ТВМ РС и ХТ. Программирование на языке ас- 
семблера 

Радио и связь, 1991, 336 

Шелдон ‘ 

Язык Си для профессионалов 

И.В.К.-СОФТ, 1991, 383 


Ключевое поле определяется методом Т5опеаСоПеснНоп.КеуОЕГ Этот 
метод по заданному в качестве параметра обращения указателю на эле-— 
мент коллекции возвращает указатель на ключевое поле. По умолчанию 
метод КеуСЁ возвращает указатель на весь элемент, однако Вы можете 
перекрыть его новым методом, возвращающим указатель на нужное 
ключевое поле. Пусть, например, нам требуется отсортировать каталог по 
году издания книг (поле Уеаг). Добавим в описание объекта Т5огЁ пере-— 
хрытие метода КеуОЁ 


суре 
ТбокЕ = оБЗесе (ТбогЕеаСо11есЕ1оп) 


Рапс&1оп КеуоЕ (Т%&ем: Ро1пфех): Ро1пеег; \У1к6ча1; 
епа; 
Опишем новый метод слелдующим образом: 


Гапсфоп Тбоге.КеуоЕ (Тфем: Ро1п®ег): Ро1пеекг; 
›2ед1п 

КеуоОЕ := @РВоок (Т6ем) ^.Уеах 
вла; 


и изменим описание метода Сотраг е: 


ГарсЕтоп Тбог*.Сопраге (Кеу1, Кеу2: Ро1пеех): Тпфедег; 
таг 

А: ^Тлеедег аБзо1лафе Кеу1; 

В: ^Тпбедег аЪзо1щафе Кеу2; 


ред2п 
1Е А^ < В^ &Ъеп 
Сопраге := -1 
е1зе 1Е А^ = В^ еп 
Сопраге := 0 
е1зе 


й 
- 


Сопраге 
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епа; {Т5огЕ.Сотраге} 
Теперь после запуска программы на экран будет выведено: 


Йенсен К., Вирт Н. 

Паскаль. Руководство для пользователя и описание языка 
Финансы и статистика, 1982, 151 

Джордейн Р. 

Справочник программиста персональных компьютеров типа ТВМ РС, 
ХТилт 

Финансы и статистика, 1991, 544 


Обратите внимание: в отсортированной коллекции теперь хранятся 
только 2 элемента! Произошло это потому, что по умолчанию 
ТбопцеаСоПесНоп игнорирует новую запись, если в коллекции уже суще- 
ствует элемент, ключевое поле которого имеет такое же значение. Таким 
образом, обычно в отсортированной коллекции содержатся записи с 
уникальными ключевыми полями. 

Можно ли поместить в коллекцию два или больше элементов с одина— 
ковыми полями? Тито У1$1юп позволяет сделать это: поле Т5опеаСоЙес- 
Ноп.РирПсае$ по умолчанию содержит РАГЗЕ, что указывает на уникаль— 
ность ключевого поля; если перед наполнением коллекции Вы поместите в 
это поле значение ТКОЕЁ, коллекция не будет контролировать уникальность 
ключевых полей. 

Изменим начало раздела исполняемых операторов главной программы 
следующим образом: 


ред1п 
ВооКкТ1$еЕ := Мечи (Р$ох®, Тп1(50,10)); 
м1ЕВ ВоокГ15$е^ ао 
Бед1п 
Рир11сафез := Тгие; {Отменяем уникальность ключей} 


епа. 
Теперь на экран будет выведено: 


Иенсен К., Вирт Н. 

Паскаль. Руководство для пользователя и описание языка 
Финансы и статистика, 1982, 151 

Скэнлон Л. 

Персональные ЭВМ ТВМ РС и ХТ. Программирование на языке ас- 
семблера | 

?адио и связь, 1991, 336 

Шелдон | 

Язык Си для профессионалов 

И.В.К.-СОФТ, 1991, 383 

Джордейн Р. 
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Справочник программиста персональных компьютеров типа Т1ВМ РС, 
ХТилт 
Финансы и статистика, 1991, 544 


Заметим, что, очередной элемент вставляется перед первым элементом с 
равным значением ключевого поля. Точно также поиск Риз.ТраЁ вернет 
указатель на первый из нескольких элементов с одинаковыми ключевыми 
полями, а метод Газ$ЁЕТВа! — на последний из них. 


19.5. КОЛЛЕКЦИИ СТРОК 


Для создания и использования коллекции отсортированных строк в 
ТигЬо У1$1оп используется объект ТэгипоСоПесНоп. Этот объект является 
прямым потомком от Т5ойеаСоЙесНоп и отличается от него тем, что его 
метод Сотраге не является абстрактным — по умолчанию он осуществляет 
обычное для Турбо Паскаля лексикографическое сравнение двух строк. 
Таким образом, если Вам необходимо отсортировать коллекцию строк по 
алфавиту (точнее, в соответствии с внутренней кодировкой символов), Вы 
можете использовать экземпляр объекта Тзо{е4СоПесПоп без какого — либо 
перекрытия его методов. 

В следующей программе создается словарь слов, входящих в некоторый 
текстовый файл. По умолчанию используется файл с текстом программы, 
но Вы можете указать имя любого текстового файла в качестве параметра 
зызова программы. 


9зез ОБ]есе$; 
\уах 
Е: #11е оЕ Сраг; 
ГопсЕ1оп ОрепЕ11е (уаг Маме: $%х1п9): Воб]1еап; 
{Возвращает ГАГЗЕ, если нельзя открыть файл} 


Ьед1п 
1Е РагатСоцп® = 1 %Веп 
Маше := Рагамбег (1) {Первый параметр в строке вызова 
программы должен содержать имя файла, } 
е1зе {если это не так, анализируется файл, 


содержащий текст программы} 
Маме := сору (Рагапб т (0),1, 
ро5('.',Рагамбех (0)))+'РАЗ!; 
Азз1ап (Е, Мапе); 
{>1-} 
Везе® (ЕЁ); 
{$1+} 
ОрепЕ11е := ТОВез\1=0 
еп; [{ОрепЕ11е} 
ГолсЕ1оп СеЕМога: $%Е1па; 
[Получает из файла очередное слово} 
уаг 
с: Стаг; 
м: ЗЕЕара; 
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ЕопсЕ1оп Геесфег(уаг с: Спаг): Воо]1еап; 
{Возвращает ТКОЁЕ, если символ - буква} 


Бедлп 

с := ОрСазе(с); 

{проверяем на строчную русскую букву:} 

1Е с ал ['а'..'п'] ЕБеп {а - русская буква} 
с := СИГ (ога (с) -ога ('а')+ога('А')) {А - русская буква} 

е1зе 1ЁЕ с 1п ['р'..'я'!] Бел {р - русская буква} 
с := сБЬг (ога (с) -ога ('р')+ога('Р')); {Р - русская буква} 

{Проверяем на заглавную букву: } 

Теетех := с зп ['А'..'2','А!..!'Я!] 


еп; /ГеЕЕекг} 
Ъед1п {СеЕйога} 
У ® = 1 '; 
с := 10; 
мр1]1е поЕ ЕКОЕ(Е) апа поЕ Гесфет (с) @о 
Веаа(Ё,с); | 
12 поЕ КОЕ(Е) Веп мВ11е поЕ ЕОЕ(ЁЕ) апа Тебеег (с) ао 
Беда 
м := м+с; 
Веаа (Е, с) 
епа; 
СеЕИога := м 
епа; /сСеЕЙога} 
Ргосе4иге Ру1п(115$% (1156: Р5ех1паСо11есЕ1оп); 
{Выводит на экран список слов} 
Ргосеаиге Рг1пЕМога(р: Р5Ег1па); Фак; 
ред1п 
Му1$е(р^,' ':20-ТепаеВ (р^)) 
епа; {(РгтрЕЙога} 
ред1п {Рхг1пЕГ15Ё} 
Иг1$сегп; 
ИхтсеГл; 
11$56^.РогЕаср (@Рх1пМога); 
Их ее п 
епа; {Рхг11ЕГ15$Ё} 
таг 
Иогар1$е: Р5Ег1п9Со11ес®е1оп; 
м: ЗЕеапа; 
еа1п {Основная программа} 
1Е по ОрепЕ11е (м) ЕВеп 
Му1ЕеГл ('Нельзя открыть файл '+м) 
е1 зе 
Бед1п 
Могар15$6 := Мем (РЗЕг1п9Со11есе1оп, Тп1®(200,10)); 
гереа®е 
м := СефЩога; 
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ААА ——— 


1Е (м <> ''!) апа (МахАуа11 > 255) +Ъеп 
МогаГ15$е^.Тизег® (М№емЗ Ех (м) ) 

110811 и='!; 

Руг1п 1156 (Мога11 5%) 


епа 
ела. 


Отметим, что в операторе 
1Е (м <> '!'!) апа (МахАуа11 > 255) ЕЪеп 


осуществляется контроль за доступной динамической памятью. В Тагоо 
\131оп есть и встроенные способы контроля кучи — см. п.19.6. 

Как и в любой другой отсортированной коллекции, в коллекции строх 
по умолчанию хранятся элементы с уникальными ключевыми полями. 
Чтобы подавить контроль за уникальностью строк, добавьте оператор 


Йогат1$е^.Рир11сафез := Тгае; 
сразу за оператором создания коллекции 
Йога11$е := Мем (Р5&г1п9Со11есЕ1оп, Тп1®(200,10)); 


и сделайте еще один прогон программы, — Вы увидите, как много раз 
’® встречается в файле одно и то же слово. 

Метод ТэнтоСоПеснНоп.Сотраге следует перекрыть, если Вы хотите 
осуществить свой способ сортировки строк. Например, используя объект 


фуре 
Р5Егбог =^Т5Ег5ог; 
Т5Егбог = оБуесе (Т56г1п9Со11есе1оп) 
Капсе1оп Сопраге(Кк1, К2: Ро1пфег): Тпеедег; \У1г%ца1; 
епа; 
апсё1оп Т56гбог.Соптраге (К1, К2: Ро1пфет): Тпеедег; 
таг 
51: Р5ег1па аьзо1а*е К1; 
$2: Р5Ег1па аЪзо1лафе К2; 


ред2п 
1Е 51^ < $52^ &Беп 
Сопраге := 1 
е1зе 1Е $1^ = $2^ фВеп 
Сомраге := 0 
е1зе 
Сопраге := -1 
ера; 


вместо РошпаСоПесНоп, Вы сможете вывести на экран список слов, от 
сортированных в обратном порядке. 
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19.6. ПОЛИМОРФНЫЕ КОЛЛЕКЦИИ 


Как уже говорилось, коллекции Тито \У19юоп обладают свойством по- 
лиморфизма — они позволяют хранить различные объекты. Поскольку 
каждый объект имеет все необходимые для него поля и методы, работа с 
полиморфными коллекциями не создает дополнительных проблем. Дей— 
ствительно, в полиморфной коллекции Вам обычно нет нужды следить за 
тем, какого типа объект хранится в том или ином элементе — достаточно 
вызвать нужный виртуальный метод, чтобы осуществить над элементом 
требуемые действия. 

Рассмотрим следующий пример. Пусть необходимо создать и исполь— 
зовать библиотеку графических примитивов (точки, окружности, пря— 
моугольники и т.п.). Каждый из этих элементов может отличаться своим 
набором полей и методов. Однако некоторые методы выполняют над 
объектами однотипные действия, такие, например, как создание нового 
объекта или его вычерчивание на экране. Если эти методы сделать вир— 
туальными и инкапсулировать в объект-— предок, каждый из его потомков 
сможет осуществить нужные действия одинаковым способом. 

Для нашего примера можно создать следующий объект-— родитель: 


фуре 
РСсгарпОБ]есе = ^ТбскарНОБ1ес*; 
ТсхарНОЮ]есе = оБЗесе (ТОБ]есь) 
Х, У: Тпеедег; {Координаты характерной точки} 
СопзЕгасвог Тп1{; {Создание объекта} 
Ргосеаиге ПОгам; \1х8йа1; [{Вычерчивание} 
епа; 


Объект ТагарйОБес{Е содержит общие для всех потомков поля и методы. 
Заметим, что методы ШИ и ПОгау должны перекрываться в объектёх-— 
потомках, поэтому их содержимое не имеет значения. Однако полезно 
вынести в них некоторые общие для всех `потомков части программы. 
Например, конструктор ШИ может помещать в поля Х и У заданные на-— 
чальные значения; если этот метод наполнить конкретным содержанием, 
он может использоваться во всех объектах иерархии: 


СопзЕгасвохг ТсгарноОБ]ес®.Тп1; 
‚ 'Присваивает случайные значения координатам Х и У} 
Ъед1п 


Х := Вапаом (СеЕМахх); 
У := Вапаоп (бСеЕМаху) 
епа; 


Здесь де МахХ, Се МахУ — максимальные координаты графического эзк— 
рана. Виртуальный метод Огам весьма специфичен: его конкретная про — 
траммная реализация будет существенно зависеть от типа объекта. Го-— 
этому объявим этот метод абстрактным: 


Ргосеааге ТСгарнОБ)есе.Огам; 
‘Абстрактный метод для вычерчивания графического примитива} 
ред1п 
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АБ гасЕе 
епа; 


Как видим, тело этого метода содержит обращение к глобальной про-— 
цедуре АБ$Етаср которая аварийно завершает выполнение программы и 
выдает соответствующую диагностику, если в программе используется 
вызов метода ТОагарйОБес(.Огам. Таким стандартным способом 'Тагро 
У\У1$1оп сообщает пользователю о некорректности программы. Вы можете 
сделать тело этого метода другим, если Вас не устраивают стандартные 
действия, однако во всех случаях имеет смысл предусмотреть возможность 
некорректного вызова абстрактного метода, даже если вновь создаваемая 
библиотека будет использоваться только Вами — это значительно облегчит 
отладку программы. 

Создадим три потомка от ТагарлОБесЕ 


фуре 
РРо1пЕ = ^ТРо1пЕ; 
ТРо1пЕ = оБзес® (ТбгарВОБ]ес®) {Точка} 
Ргоседике Пгам; \1г6ца1; 
епа; 
‘РС1хгс1е = ^ТС1гс1е; ‘Окружность} 


ТС1гс1е = оЪЗ)ес®е (ТбсгарНоОБ)ес®) 
В: ТрЕедег; 
СопзЕгасеохк 111; 
Ргосеаакге Пгам; \1г{1а1; 
епа; 
РВескапда1е = ^ТВесфапа1е; {Прямоугольник} 
ТВескапа1е = оБЗесе (ТбсхгарнОБ]ес+) 
И, Н: Тпседег; 
СопзЕгасфохг 1116; 
Ргоседике Пгам; \1г61а1; 
епа; 


Объект ТРотЕ (точка) не имеет новых полей и поэтому лишь пере-— 
рывает абстрактный метод ТагарпОБес1.Огаи’: 


]?госеааге ТРо1пе.Огам; 
‘Выводит точку на экран} 
ред1п 

РаёР1хе1 (Х, У, ИВ1е) 
епа; 


В объектах ТСифе (окружность) и ТКесюп Фе (прямоугольник) инкеп- 
сулированы новые поля, поэтому перекрываются также и методы ШИ: 


Сопзегасеог ТС1гс1е.1п1; 
‘Создает окружность случайного радиуса в случайном месте} 
Ьед1п 
ТСгарвОБ)ес®.1п1%; {Получаем координаты центра} 
В = Вапдоп (СеЕМахУ ау 2) {Получаем радиус] 
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епа; 
Ргосеаиге ТС1гс1е.Огаи; 
{Вычерчивает окружность} 
Ьед1п 
С1гс1е\(х, У, В) 
епа; 
Сопзехгасеог ТКесфапа1е.1Тп1*; 
{Создает случайный прямоугольник} 


Ъед1п 
ТбхгарпОБ)есе.Тп1; {Верхний левый угол} 
И := Вапаом (СбеЕМаххХ @а1у 2); [Ширина} 
Н := Вапаом (СеЕМахУ @а1ху 2) {Высота} 

епа; 


Ргосе4цке ТВесфапа1е.ПОгам; 
{Вычерчивает прямоугольник} 
Беда п 

Весфапа1е(Х, У, Х+М, У+Н) 
ева; 


После того как определены нужные объекты, не составляет особего 
труда поместить эти объекты в коллекцию и вывести их на экран. На-— 
пример, Аля вывода всех элементов коллекции можно использовать такую 


процедуру: 


Ргосе4иге Пга\мА11(С: РСо11ес®1оп); 
(Выводит все элементы полиморфной коллекции} 
Ргосеацге ПгамГТ{феп(р: РсгарпОБ)ес®*); Баг; 
ред1п 
р^.Огам {Это и есть полиморфизм в действии!) 
ела; 
ред1п 
С^.ЕогЕасВ (@ШгамТ$еп) 
епа; 


Как видим, в процедуре Огаи’Пет полиморфизм используется двая.ды: 
во — первых, метод РогЕасй обращается к ней, передавая в качестве га— 
раметра обращения нетипизированный указатель на элемент коллекции; 
это позволяет трактовать параметр как указатель на любой объект, в том 
числе и на ТОгарпОБесЕ. Во-вторых, в процедуре используется обращение 
к виртуальному методу объекта— родителя Ога: поскольку этот метод 
перекрывается во всех потомках, каждый из них будет использовать свой 
метод Огау для вывода на экран. 

Сформируем программу, поместив в нее вместо точек уже рассмот-— 
ренные фрагменты: 


(з5ез ОБ]есе5$,СгарВ, СВТ; 
1:уре 


Сопзекасвог ТСсгарНоОр]есе.Тп1; 
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Ргосе4иге ТСсгарНОр]есеЕ.Огам; 


Ргосеацге ПгамА11 (С: РСо11есЕ1оп); 
\аг 
а, г, К: ТпЕедег; 
1156: РСо11есЕ1оп; 
р: Ро1пбек; 
Бед1п 
а := 0; 
{Инициируем графический режим работы экрана:} 
Тп1ЕСгарН (а, г, '\ТР\ВСТ'); 
ух := СгаррВези1&; 
1Е г <> 0 %4Ъеп 
Иг1 сел (СгаррЕггогМза (х)) {Ошибка инициации} 
е1зе 
Бед1п 
{Создаем коллекцию:} 
11$ := М№ем (РСо11есЕ1оп, 1п1е(20,5)); 
{Наполняем ее 20 элементами; } 
Фог К := 1 0 20 ао 


Бед1п 
сазе К моЯ 3 оЕ 
О: р := М№ем (РРолпЕ, 1п1®); 
1: р := М№Мем (РС1хс1е, 1п1*); 
2: р := М№ем (РВес®апа1е, Тп1®) 
епа; 


1Е р <> МТЬ 6Беп 
1,15е^.Тизег® (р) 
епа; 
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РгамА1 1 (Т1$е); {Выводим на экран все элементы} 

\1.1е поЕ КеуРгеззеа ао; {Ждем нажатия на любую клавишу} 

С1озебскарь {Возвращаемся в текстовый режим} 
епа 


епа. 


В этой программе предполагается, что драйвер графического экрана 
расположен в каталоге \ТР\ВС] на текущем диске. Если это не так, следует 
указать маршрут поиска этого драйвера в качестве параметра обращения к 
процедуре шИСтарн. Кроме того, каталог, содержащий стандартную гра— 
_ фическую библиотеку СкарВ, должен быть указан опцией ОрНоп5/Оиесю-— 
пез/ОИпй 4песюпез, если, разумеется, библиотека не содержится в текущем 
каталоге. 


19.7. КОЛЛЕКЦИИ И УПРАВЛЕНИЕ ПАМЯТЬЮ 


Поскольку элементы коллекций располагаются в динамической памяти, 
при их использовании особенно важными становятся вопросы контроля за 
состоянием кучи. 

Любая коллекция не может расти до бесконечности: с одной стороны, 
ее размеры определяются доступной памятью и размером элементов, с 
другой стороны — общее количество элементов коллекции не может 
превышать 


65520 ау $12еоЕ (Ро1пЕехг) = 16380 


Иными словами, все указатели на элементы коллекции должны распола— 
таться в пределах одного сегмента. Величина 16380 задается значением 
тлобальной константы МахСоПесйоп“\2е, объявленной в интерфейсной 
части модуля ОБесё. 

Таким образом, при наполнении коллекции необходимо следите за 
общим количеством элементов (переменная ТСоЙесНоп.Соип!, которое не 
может превысить значение, задаваемое константой МахСоЙесНоп:;2е. 
Кстати, если при обращении к методу ТСоПесНоп.штИ начальное значение 
М№ 0 коллекции указано слишком большим, оно заменяется на МахСоГрес- 
попе. 

Элементы коллекции обычно размещаются в куче, поэтому перед 
размещением очередного элемента следует проверить доступную память 
(возвращается стандартной функцией МахАуай. 

В ходе расширения коллекции может оказаться, что динамической 
памяти не хватает для размещения нового массива указателей (напомню, 
что расширение коллекции заключается в создании нового массива из № 
+ К’М№МО указателей, гле №0 — начальная длина, МР — шаг наращивания 
коллекции, К = 1, 2, .... после этого в новый массив копируется старый 
массив указателей, а место, выделенное под размещение старого массива, 
возвращается в кучу). Если обнаружена нехватка памяти для расширения 
коллекции или если при обращении к методу ТСоЙесПоп.АТ указан индекс, 
превышающий размер коллекции, вызывается метод ТСоЙесИоп.Еггог. По 
умолчанию этот метод завершает выполнение программы с кодом 212 
ошибки периода исполнения. Вы можете перекрыть ТСоЛесйоп.Еггог, чтобы 
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нужным образом отреагировать на возникшую ситуацию. В этом случае 
следует учесть, что заголовок ТСоЙесНоп.Етог в Татро У1$оп имеет сле-— 


дующий вид: 
Ргоседоге ТСо11есЕ1оп.Еггкохг (Соае, ТпЕо: ТпЕедег); 


Параметр Соае в стандартных ситуациях соответствует следующим 
константам: 


е сошаехЕтог = —1 -— индекс метода АЁ превысил значение СоипЁ- 1; 
параметр шЮ содержит неверный индекс; 
е СсООуеШом = —2 - нет памяти для расширения коллекции; параметр 


ШюЮ содержит требуемый размер коллекции. 
Константы соХХХХ определены в интерфейсной части модуля ОБ]ес“5. 


Глава 20 


ПОТОКИ 


Основным способом хранения данных в 'Татро У19Чюп является их 
размещение в полях объектов. Это, разумеется, не означает, что Ваша 
программа должна использовать исключительно поля объектов и/или 
методы доступа к ним — программа в среде Тигфо У1$10оп — это прежде 
всего программа на Турбо Паскале, а следовательно, Вы можете исполь — 
зовать в ней и все другие средства этой системы программирования. Од— 
нако в ходе изучения Титро У1Чюоп Вы уже, очевидно, смогли по досто— 
инству оценить мощные возможности, предоставляемые техникой объ— 
ектно — ориентированного программирования и средой Тито У19оп, и, 
надеюсь, вряд ли захотите широко использовать в своей программе не— 
инкапсулированные данные. 

Для сохранения данных на диске с целью последующего их считывания 
в программу поля можно тем или иным способом выделить из объектов и 
затем использовать обычные средства доступа к файлам. Согласитесь что 
такой прием нельзя считать естественным для объектно — ориентированной 
программы. Во всяком случае следует учесть, что потоки — а их изучению 
посвящена эта глава — разработаны прежде всего для сохранения в 
файлах инкапсулированных данных, т.е. полей объектов. 


20.1. СУЩНОСТЬ ПОТОКОВ 


Поток Тао \1510оп — это коллекция объектов со специфичным сио-— 
собом хранения элементов: для этих целей коллекция -— поток использует 
дисковый файл, отображаемую память (ЕМ5 — память) или файловое уст— 
ройство (устройство ввода — вывода данных). 

Весьма удобной моделью потока может служить обычный дисковый 
(файл с прямым или последовательным доступом. В дальнейшем, говоря о 
потоках, я буду в основном иметь в виду эту модель, а там, где это необ — 
ходимо, уточнять детали доступа к ЕМ5— памяти и к файловым устрей— 
ствам. 

Как известно, в Турбо Паскале могут использоваться типизированные 
или нетипизированные файлы. При работе с типизированными файлами 
Гурбо Паскаль осуществляет необходимый контроль за типом данных, 
предупреждая Вас о возможных ошибках; типизированные файлы как 
правило не обеспечивают высокую скорость доступа к данным. При ©б— 
ращении к нетипизированным файлам контроль возлагается целиком на 
программиста, но в этом случае обычно существенно увеличивается ско — 
рость работы с файлами. Потоки Тиатро \У151оп обеспечивают в известном 
смысле компромисс между обоими способами хранения информации в 
(райле: они позволяют компилятору осуществить проверку типов на урсвне 
проверки объектов, но не контролируют сами данные, помещаемые в 
‹файл, т.к. в правильно сконструированной программе объект сам осу-— 
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ществляет необходимые операции с диском и делает это безошибочно и 
очень быстро. 

Основным отличием потоков от файлов является их полиморфизм. Как 
и коллекции, потоки Титфо \11юоп могут быть полиморфными, что означает, 
что в одном потоке могут сохраняться разные объекты (точнее, их поля). 
Как программист, знакомый с техникой объектно — ориентированного 
программирования, Вы должны понимать что записать в один файл не-— 
сколько разных объектов не составляет особой проблемы — для этого 
нужно лишь вызвать соответствующий виртуальный метод, который знает, 
какие поля и в какой последовательности помещаются в файл. Но вот 
каким образом поддерживается полиморфизм при чтении данных? Как из 
общего потока выделяются данные, относящиеся к конкретному объекту? 
Эту проблему еще можно было бы решить, если бы потоки обеспечивали 
только последовательный доступ к данным — тогда мы могли бы просто 
вызывать виртуальные методы чтения данных в том же порядке, в каком 
объекты записывались в файл. Но потоки Титро У1Чюоп предоставляют 
также и произвольный способ доступа к данным! 

Решение проблемы разработчиками Тифо У19оп найдено в особом 
механизме, называемом регистрация объектов. Зарегистрировать объект — 
это означает приписать объекту некоторый уникальный регистрационный 
номер. Регистрационный номер записывается в файл (а следовательно и 
считывается из него) первым. Прочитав регистрационный номер, 'ГигЬо 
У1юп однозначно определяет объект, которому принадлежат данные, и 
вызывает соответствующий виртуальный метод доступа к файлу. 

Таким образом, для работы с потоками необходимо: 

е зарегистрировать объекты, которые будут помещаться в поток или 
считываться из него; отметим, что все стандартные объекты ТитБо 
\У1$1оп уже имеют уникальные регистрационные номера и процедура 
их регистрации предельно проста (см. ниже}; 

е инициировать (создать) поток; в ходе инициации указывается имя 
файла и некоторая другая информация, используемая для обесие — 
чения доступа к файлу; 

» поместить данные в поток и/или прочитать их из него; 

е удалить поток. 

Важной особенностью доступа к потокам является возможность записи 

в них групп и соответственно чтения групп из потока. При этом группа 
сама будет автоматически вызывать нужную процедуру доступа для ка— 
ждого из своих элементов, что значительно упрощает работу с потоком. 


20.2. РЕГИСТРАЦИЯ ОБЪЕКТОВ 


Для регистрации любого объекта используется обращение к глобальной 
процедуре Кед1егТуре, определенной в интерфейсной части модуля 
ОБ]ес!5. Единственным параметром обращения к этой процедуре является 
запись типа Т5НеатКес, в которой группируются некоторые важные для 
"Гатфо \У131оп характеристики объекта: 


фуре 
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пемитативитиятьниять- о тибтцьтнивь. обретать 


РбЕгеапВес = ^Т5егеапВес; 
ТбЕгеапКес = гесога 


ОБ] Туре: Иога; {Регистрационный номер объекта} 
УМТЬ1пК: Иога; {Смещение таблицы виртуальных методов} 
Тоаа : Ролпвег; {Адрес метода чтения} 
ЗЕоге : Ро1пфекг; {Адрес метода записи} 
Мехе : Мога; {Связь в списке} 

епа; 


Для каждого объекта Вашей программы (как стандартного, так и не- 
стандартного) должна быть создана своя запись типа ТонеатКес, если 
только Вы собираетесь помещать соответствующий объект в поток или 
получать его из потока. Однако для стандартных объектов такие записи 
уже существуют и Вам нет нужды создавать их заново: по принятому в 
Тао У!9оп соглашению запись Т5НеатКес для стандартного объекта 
имеет такое же имя, как имя объекта, с заменой начальной буквы Т на К. 
Например, для ТИЛпаоми регистрационная запись называется КИ/шао\, для 
ТРа]юд — КПГа1]0д и т.д. Имеет смысл следовать этому соглашению, оп- 
ределяя идентификаторы регистрационных записей для нестандартных 
объектов. 

Итак, для каждого нестандартного объекта Вы должны подготовить 
запись Т5ИеатКес, причем фактически определяются только первые че 
тыре поля этой записи, так как поле М№х[ используется для организации 
связанного списка и заполняется внутри процедуры Кедл$егТуре. 

В поле ОБТуре Вы должны поместить константу -— идентификатор 
объекта. В Тито У1$10оп константы 0...99 уже исмользуются в стандартных 
регистрационных записях КХХХХ, таким образом, если Вы. собираетесь 
использовать стандартные регистрационные записи, в Вашем распоря-— 
жении остаются константы в диапазоне от 100 до 65535. Выбор констант из 
этого диапазона может быть произвольным, однако ТГигро У13ч1юоп требует, 
чтобы каждый объект характеризовался уникальной константой. Заметим, 
что Титро У19оп следит за уникальностью регистрационных констант и 
аварийно завершает исполнение программы (код ошибки 212), если в 
программе делается попытка зарегистрировать два разных объекта с 
одинаковыми регистрационными номерами. 

Поле УМТЫПК должно содержать смещение адреса таблицы вирту— 
альных, методов (ТВМ) объекта. Турбо Паскаль имеет стандартлую 
функцию ТуреОоЕ (Туре: оЪЗес*), которая возвращает адрес ТВМ для 
указанного типа Туре объекта, поэтому поле УМТИпК обычно заполняется 
значением ОЁз (ТуреоЕ (ТМапе)^), где ТМате — имя нестандартного 
объекта. 

Поля Гоа и Мюоге должны содержать адреса соответствующих вир-— 
1'уальных методов (см. п.20.3), обеспечивающих чтение объектов из потока 
и их запись в поток. 

Например, если в программе определен объект 


1-уре 
ТМУуМ1паом = оБуесЕе (ТИ1паом) 


476 Глава 20 


СопзЕгисвог Гоаа (уаг 5: ТбЕгевам); 
Ргосеацге З+оге (маг 5: Т5егеяпт); 
епа; 


то для его регистрации создается запись 


соп$Е | 
ВМУИ1пАом: ТбекеашВес = ( 
ОБ] Туре: 100; 
УМТЬ1пК: ОЕ$ (ТуреоЕ (ТМуйМ1паом) ^); 
Гоаа : @ТМУЯ1раом.Гоаа; 
бфогхе : @ТМущ1паом.5$оге); 


Обычно регистрация осуществляется в конструкторе шйИ вновь соз— 
данного объекта, например: 


СопзЕкасеог ТМуМ1паом. 111; 
Ред1п 
ВКед1зеегТуре (КМУМ1паом) ; 


Однако, если в программе предполагается помещать в поток (или 
считывать из потока) объекты разного типа, регистрацию объектов как 
правило реализуют отдельной процедурой, вызываемой в конструкторе шИ 
программы или в любом другом удобном месте, но перед фактическим 
обращением к потоку. Например: 


Ргосе4иге Кедч15кегМуРговдгап; 

}2ед1п 
Вед1з+етТуре (КИ1паом) ; {Регистрация стандартного объекта} 
Ведч1зсехТуре (КМуМ1паом); {Регистрация нового объекта} 


Для упрощения регистрации стандартных объектов в модулях Т\иБо 
У131оп предусмотрены процедуры КедяетХХХХ, гле ХХХХ - имя соот- 
ветствующего модуля. Например, процедура Кед1$егО1а10од$ осуществляет 
регистрацию всех неабстрактных объектов модуля [1а10д$, т.е. ТВицЦоп, 
ГСияег, ТтриИлпе и т.д. процедура Кедегетз регистрирует объекты 
модуля Иеи$ и т.д. 


20.3. СОЗДАНИЕ И УДАЛЕНИЕ ПОТОКА 


Для работы с потоками в Тито У1$9юоп предусмотрен абстрактный тип 
уэнеат и три его потомка — ТРО55иеат, ТВибиеат и ТЕМ55иеат. 

Объект ТРО$5$Иеат реализует небуферизованный доступ к файлу или 
файловому устройству. Буферизация потока означает использование 
некоторого промежуточного буфера, в который помещаются данные перед 
физической записью их на диск или сразу после физического чтения с 
диска. Буферизация позволяет согласовать формат данных с размерами 
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дискового сектора и обычно значительно ускоряет доступ к потоку, по- 
этому в большинстве случаев в программах используется буферизованная 
версия потока, реализуемая объектом ТВи[5иеат. 

Объект ТЕМ$5Иеат обеспечивает доступ к отображаемой памяти 
компьютера, оборудованного специальной ЕМ5$ - платой (лля ПК с про- 
цессорами 80386 и более поздними ЕМ$-— память может эмулироваться). 
Запись объектов в Е/Л5$-— память и чтение их из нее осуществляется с 
предельно возможной скоростью, однако содержимое этой памяти раз— 
рушается после выключения компьютера. Таким образом, ТЕМ55Неат 
используется для временного хранения данных с целью минимизации 
времени доступа к ним. Если в программе предполагается частое обра— 
щение к потоку, имеет смысл скопировать его в ЕМ$5-— память в начале 
работы программы и перенести хранящиеся в нем данные на диск перед 
завершением работы. 

В каждом из объектов ТХХХ5Неат предусмотрен свой конструктор ШИ, 
с помощью которого создается экземпляр нужного потока. Ниже опи- 
сывается формат вызова каждого конструктора. 


СопзЕгасвохг ТООЗбЕгеам. 1п1* (РГ11еМащме: ЕМамеб5ег; Моае: Мога); 


Здесь ЕИеМате — имя дискового файла или файлового устройства, Моае 
— способ доступа к данным. 

Параметр ЕИеМ№Мате может содержать полное имя файла с указанием 
диска и маршрута поиска. Параметр Моае определяет способ доступа к 
данным. Для задания этого параметра можно использовать следующие 
константы, определенные в модуле ОБесЕ: 


соп$Е 
${Сгеае = $36000; {Создать файл] | 
з&ОрепВеаЯ = $31000; {Открыть файл только для чтения} 
$ЕОрепИг16е = $31001; {Открыть файл только для записи! 
$ЕОреп = $3002; {Открыть файл для чтения и записи} 


Сопзегасеог ТВаЕбегеам (Е1]1еМапе: ЕМапебег; 
Моае: Мог@; $17е; Мока); 


Здесь ЕИеМате, Моае -— см. выше; 512е — размер буфера в байтах. 

Размер буфера выбирается равным размеру дискового сектора (512 
байт) или размеру кластера (п*512, п = 1, 2, 4, 8, ...). Минимальные потери 
времени обеспечивает размер буфера, равный размеру кластера диска 
(кластер — минимальная порция дискового пространства, выделяемая 
каждому файлу). При работе с гибкими дисками размер кластера обычно 
равен одному или двум секторам, для жесткого диска этот размер зависит 
от общей емкости диска и чаще всего равен 4 или 8 секторам. Если Вы не 
знаете размеры кластера диска, с которым будет связан поток, установите 
52е = 512. 


СопзЕкисеок ТЕМ55&геам.Тп1& (М1п512е, Мах512е: ГопаТпе); 


Здесь Мт&е, Мах5те определяют соответственно минимальный и 
максимальный размеры блока, который будет передаваться в ЕМ$ — память. 
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Параметр Мах5!2е имеет смысл только при использовании драйвера ЕМ$— 
памяти, версии меньше 4.0: в этом случае попытка разместить в расши — 
ренной памяти блок, больше Мах$2е, вызовет ошибку; при использовании 
версии драйвера 4.0 и выше в памяти можно разместить блок любого 
размера, в этом случае параметр Мах512е можно опускать. 

После завершения работы с потоком следует удалить его экземпляр — 
это аналогично тому, как Вы закрываете дисковый файл после его ис- 
пользования. Для удаления потока нужно обратиться к его методу Допе, 
например: 


015розе (РМуб&геам, Попе); 


Здесь РМу5Ийеат — указатель на экземпляр потока, размещенный в куче, 
Если Вы не использовали указатель на поток (т.е. если экземпляр потока 
размещен в обычной переменной), для удаления потока используется 
ВЫЗОВ 


Музегеат.Попе; 


(Му5ёнет — экземпляр потока). 

В ходе реализации процедуры Т5Неат.ВРопе очищается внутренний 
буфер (если использовался буферизованный поток), закрывается файл и 
уничтожается экземпляр потока. 


20.4. РАБОТА С ПОТОКОМ 


Базовый объект Тойеат реализует три метода, используемых для не- 
посредственной работы с потоком. Метод Тэйеат.РиЁ: предназначен для 
передачи объектов в поток и выполняет приблизительно такие же 
функции, как стандартная файловая процедура Итйе. Метод Т5Неат. Се! 
используется для чтения объектов из потока, его аналогом является про — 
цедура Кеа4. Наконец, с помощью метода Т5Иеат.Ёгог анализируется 
состояние потока после завершения некоторой операции: если обнаружена 
ошибка при обмене данными с потоком, вызывается этот метод, который 
по умолчанию просто устанавливает признаки ошибки в информационных 
полях Тэойеат.51аш$ и Т5Неат.ЕгопЮ. Приблизительным аналогом метода 
ГУгеат.Етгог служит стандартная файловая функция [ОКезий. 

Сразу же замечу, что в случае возникновения ошибки все последую!цие 
операции с потоком блокируются до тех пор, пока не будет вызван метод 
Гэтеат.Ке5е]. 

Методы РиЁ и Це практически никогда не перекрываются: для реали — 
зации операций с потоком они обращаются к виртуальным методам 51оге и 
Гоа, которые должны быть определены в каждом объекте, если только 
этот объект помещается в поток или считывается из него. Главное на-— 
значение методов РиЁ и СеЁ состоит в обеспечении полиморфизма потока 
за счет контроля регистрационных номеров объектов. Методы Гоа и 5Ююге 
никогда не вызываются прямо, но только из методов РиЁ и Се, т.к. они 
ничего не знают о регистрационных номерах и не могут работать в по-— 
лиморфных потоках. 
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20.4.1. Методы Ру и Се 


Чтобы поместить объект в поток, нужно обратиться к методу РшШ пе- 
редав ему в качестве параметра инициированный экземпляр объекта. 
Например: | 


уагх 
МубЕгеащ: ТВаЕб®теап; {Экземпляр потока} 
Муй1паом: ТМуМ1паом; {Экземпляр объекта} 
Му5ЗЕгеам. Раф (Муй1паом); {Помещаем объект в поток} 


Предварительно объект должен быть зарегистрирован обращением к 
КедлЯегТуре, а поток — инициирован с помощью ТХХХ5Иеат.И. 

Метод РиЁ вначале отыскивает объект в регистрационном списке, 
создаваемом процедурой КедЯегТуре, и получает из этого списка реги— 
страционный номер объекта и адрес его метода 5юге. Затем в поток за— 
писывается регистрационный номер и вызывается метод 5 юге, который 
делает остальное, т.е. копирует в поток все поля объекта. 

По такой же схеме работает и метод СеЁ вначале он считывает из по-— 
тока регистрационный номер объекта, затем отыскивает его в регистра — 
ционном списке и вызывает соответствующий конструктор Гоаа. Конст- 
руктор размещает в динамической памяти экземпляр считываемого объ — 
екта, а затем считывает из потока все его поля. Результатом работы @е 
является нетипизированный указатель на вновь созданный и иницииро-— 
ванный объект. Например: 


1уре 
МузЕгеам: ТВаЕбегеап; {Экземпляр потока} 
РИ1паом: РМУМ1паом; {Указатель на экземпляр объекта} 
РИ1пЧом := Му5егеат.Се*; {Получаем объект из потока} 


Заметим, что количество считываемых из потока данных и тип ТВМ, 
который назначен вновь созданному объекту, определяется не типом 
РИПпаои (см. выше), а регистрационным номером, полученным из потока. 
Вы можете ошибочно поместить в левой части оператора присваивания 
казатель на объект другого типа и Тито У13юп не сможет предупредить 
Вас об этом! 

Методы РиЁи СеЁ позволяют автоматически сохранять в потоке и г.о— 
лучать из него сложные объекты (группы). Эта возможность реализуется 
внутри методов юге и Гоа. 


20.4.2. Методы З{1оте и Гоаа 


Метод $ юге осуществляет запись данных в поТок. Для этого он ис-— 
пользует метод низкого уровня И/Ие, передавая ему в качестве параметров 
имя записываемого поля и длину поля в байтах. Заметим, что Вам нет 
нужды записывать все поля объекта: для записи наследуемых пслей 
достаточно просто обратиться к методу $юге объекта-— родителя. !Заш 
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метод ге должен записывать только те поля, которые добавляются к 
полям родителя. Если, например, создан объект 


фуре 
ТМу01а1оч = оБзесе (ТП1а1о9) 
ЗЕ: ЗЕгала; {Новое поле} 
Ргоседиге Зеоге (уах 5: Т5Егеам); \У1гЕаа1; 


то метод ГМуО1а/1од.5юге может иметь такую реализацию: 


Ргосе4иге ТМур1а1о0оа.56оге (умах 5: Т5Егеам); 


Ред1п 
Тр1а1оа9.56оге (5); {Сохраняем наследуемые поля} 
5^.ИМгтЕе (5Е, $512е0Е (5%)); {Сохраняем новое поле} 

епа; 


Аналогичным образом реализуется и конструктор Гоа: с помощью 
обращения к низкоуровневому методу Т5Неат.Кеаа он получает из потока 
только дополнительные поля и только в том порядке, как они были запи — 
саны в поток методом 5юге: 


СопзЕгасвог ТМу01а1оч.Гоаа(уак 5: Т5егеам); 


Ьед2п 
Тр1а1од9.Гоаа (5$); о {Получаем наследуемые поля} 
5^.Веаа ($, $12е0Е(5%)); {Получаем новое поле} 

епа; 


Вы должны тщательно следить за соответствием методов 51оге и Ё2аа: 
метод Гоа должен прочитать ровно столько байт и строго в той после -— 
довательности, сколько байт и в какой последовательности поместил в 
поток метод 5юге. В Тифо У!9Ч1юоп нет средств контроля за правильностью 
считываемых данных! 

Если Ваш объект — группа, следует включить в него поля — указатели на 
каждый из элементов и использовать методы РибибБТеиРЕ и 
ебирМетРНЫ соответственно для записи в поток и чтения из него. На-— 
пример: 


1:уре , 
ТМур1а1о3 = оБзесе (Т01а1о9) 
Е: ЗЕЕапа; {Текстовое поле} 
РВ: РВаЕ®оп; {Указатель на кнопку} 


Ргосеаиге Зеоге (хах 5: Т5еЕгеап); \У1г$оа1; 
Сопзегасвог Гоаа (маг 5: Тбегеам); 


епа; 
Ргоседаге ТМур1а1о3.56оге (уак 5: Т5Егеам); 
ред1п 
Тр1а]1о4.56оге (5); {Сохраняем наследуемые поля} 


5^ .МетЕе (5Т, $512е0Е(5$%)); {Сохраняем текстовое поле} 
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Раф баБУ1еиР ег ($, РВ); | {Сохраняем кнопку} 

епа; 

СопзЕгисвохг ТМуО1а1о3.Гоаа(уак 5: Т5егеам); 

Бед1п 
Тр1а]10о3.Гоаа (5); {Получаем наследуемые поля} 
5^.Веаа (5%, 5$127е0Е(5%)); {Получаем тестовое поле} 
СсесборУтемРЕг (5, РВ); {Получаем кнопку} 

епа; 


20.4.3. Обработка ошибок 


При обнаружении ошибки поток вызывает свой метод Т5Неат.Еггог, 
который определяет необходимую реакцию программы. По умолчанию 
этот метод просто записывает информацию об ошибке в поля 
Тиеат. 15$ и Тэнеат.ЕггогГ П.Ю. 

Поле 5Заш5 определяет тип ошибки, в соответствии со следующими 
константами модуля ОБ]ес{5: 


соп$ 
$ЕОК = 0; {Нет ошибки} 
ЗЕЕГГОх =-1; {Ошибка доступа} 
$ЕТп1ЕЕггог =-2; {Ошибка инициации потока} 
5ВеаЯЕтгог =-3; {Чтение за концом потока} 
$ЕИг1сеЕкког =-4; {Нельзя расширить поток} 
зЕсбееЕггког =-5; (СеЕ для незарегистрированного объекта} 
5ЕРАсЕхггог =-6; {РИЁЕ для незарегистрированного объекта} 
Поле ЕггопЮ определено только для 5аш$ = -—5 или Заш$ = -—6: в 


первом случае оно содержит регистрационный номер, полученный из 
потока и не обнаруженный в регистрационном списке; во втором — 
смещение ТВМ незарегистрированного объекта, который программа 
пытается поместить в поток. 

Сразу после обнаружения ошибки Титро У1з31юп блокирует все операции 
‹ потоком до тех пор, пока аварийная ситуация не будет сброшена ‹б— 
ращением к методу Т5#еат.Кезе. 


20.4.4. Прямой доступ к потокам 


Поток имеет методы, имитирующие файловые процедуры прямого 
доступа к дисковому файлу. 

С помощью функции Сео$ программа может получить текущую по- 
:ицию в потоке, т.е. номер байта, начиная с которого будет осуществля"ъся 
очередная операция с потоком (первый байт потока имеет номер 0). 

Метод 5еек (Ро5: Гопдт!) перемещает текущую позицию в потоке в байт 
Ро$ от начало потока. | 

Метод Се \2е возвращает общий размер потока в байтах. 

С помощью метода Тгипсае можно удалить из потока все данные, на-— 
чиная с текущей позиции до конца потока. 

Как видим, эти процедуры можно использовать только в том случае, 
если создать вне потока индексную коллекцию, содержащую начальные 
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позиции в потоке для каждого из сохраняемых в нем объектов. Такая 
коллекция используется в ресурсах, поэтому для обеспечения прямого 
доступа к потоку лучше использовать файл ресурсов (см. гл.21). 


20.4.5. Использование потоков с произвольными данными 


Хотя потоки спроектированы в основном для работы с объектами, Вы 
можете использовать их для хранения не только полей объектов, но и 
любых других данных. При этом не следует обращаться к методам Риёи 
Се так как они предполагают доступ к объектам. Вместо этого Вы должны 
обратиться к низкоуровневым процедурам ИТИе и Кеаа. 

Следующая простая программа использует поток для сохранения десяти 
случайных целых чисел: 


9зез Ор]есЕз; 
уаг 
5: ТВоЕбегеам; {Экземпляр потока} 
К, ]: Тпеедег; | 
Бед1п 
Му1сеГл ('Запись в поток:'); 
5.1101 ('Тезф.аа®', $зЕСгеафе, 512); [Создаем поток} 
Бог К := 1 в 10 ао 


Беда п 
) := Вапаом (100); {Получаем случайное целое} 
Их1ее (73:8); {Выводим на экран} 
5.Мгтее (1,2) {Помещаем в поток} 
епа; 
5.Бопе; {Удаляем поток} 
5.1016 ('Тезе.аа®', зЕОрепВеаа, 512); 
ИхакеГл; 
Иг1ее!л ('Чтение из потока:'); 
Бог К := 1 в 10 ао 
Ьед1п 
5.Веаа (7,2); {Получаем целое из потока} 
Иг16е (7:8) {Выводим на экран} 
епа; 
5.Вопе; 
ИгтееГп 
епа. 


Для простоты в программу не включены средства контроля ошибо:‹. В 
ходе прогона программы в текущем каталоге диска будет создан файл 
ГЕЗТ.РАТ размером в 20 байт, а на экран будут выведены две строки с 
одинаковыми числами. 
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РЕСУРСЫ ТОКВО УТГОМ 


Ресурсы — это индексированные потоки. Главное отличие ресурсов от 
потоков заключается в том, что к объектам, хранящимся в ресурсе, можно 
обращаться по ключам — уникальным строкам, идентифицирующим 
объекты. Таким образом, ресурсы спроектированы специально для об— 
легчения произвольного доступа к потокам. 

Использование ресурсов открывает перед Вами ряд интересных воз-— 
можностей. 

Вы можете загружать любые видимые элементы из предварительно 
созданного файла ресурсов вместо того, чтобы создавать их в теле ос- 
новной программы. Так как реализация методов Гоа обычно значительно 
проще, чем реализация конструкторов ШИ, это дает возможность не 
сколько уменьшить размер Вашей программы, поскольку в основной 
программе Вы уже не описываете методы Пи! а просто загружаете нужные 
объекты из ресурса. Разумеется, Вы должны предварительно разработать 
вспомогательную программу, созлающую нужный файл ресурсов. 

Разные ресурсы могут хранить одинаковое количество текстовых строк. 
Поскольку к каждой строке ресурса можно обращаться по индексу, Вы 
можете простой заменой файла ресурсов изменить, например, язык, на 
котором написаны сообщения встроенной справочной службы. Причем 
такая замена никак не отражается на содержательной стороне справок и 
не влечет за собой никаких изменений в тексте программы. Все, что Вам 
необходимо в этом случае, — это подготовить несколько идентичных по 
смыслу, но написанных на разных языках файлов текстовых ресурсов. Для 
отечественных программистов, ориентирующихся на западный рынок, 
такая возможность, согласитесь, может показаться весьма заманчивой. 

Наконец, смена файла ресурсов позволит Вам легко создать демонст— 
рационную версию Вашей программы без какой —либо ее перенастройки. 
Для этого Вы готовите два файла ресурсов: один рассчитан на полные 
возможности программы, другой позволяет использовать только часть ее 
возможностей и предоставляет пользователю сокращенные меню и строки 
статуса. Поставка программы с тем или иным файлом ресурсов определяет 
ее возможности. 

В Тифо Узюоп ресурс реализуется с помощью объекта ТКезоигсеРИе, 
который содержит поток и связанную с ним отсортированную коллекцию 
строк. С помощью метода ши Вы создаете ресурс, методом РиЁ помещаете 
в поток нужные Вам объекты, а с помощью метода СеЁ получаете из него 
объект по его имени или индексу. 


21.1. СОЗДАНИЕ РЕСУРСА 


Поскольку ресурс — это поток, для создания ресурса необходимо от- 
крыть (создать) поток. Для этого следует использовать метод И для потока 
нужного типа (обычно используется буферизованный поток ТВи5еат или 
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его потомок). После того как поток успешно открыт, в него помещают 
нужные объекты с их уникальными ключами и затем поток закрывается — 
файл ресурсов готов. | 

Вот как, например, можно создать ресурс, содержащий строку статуса с 
именем (ключом) «Статус»: 


Озез Ог1уегз, Об)есе5, \У1еиз, Арр, Мепиз; 


у\уаг 
ЗсасазВез: ТВезоцгсеЕ11е; {Файл ресурсов} 


Р5фаба$5©гт: РВиЕбегеай; {Буферизованный поток} 
Ргоседиге Сгеасебфаеа$Г1пте; 
{Создает строку статуса и помещает ее в файл ресурсов} 


уаг 
В: ТВесс; 
Р5саеаз: Р5Еабаз11пе; 
реза п 
В.Азз1ап (0,24,80,25); 
Р5бафаз := Мем (Р5бабаз11пе, Тп1 (В, 


Меиб а а$ПеЕЁ (0, $ГЕЕЕ, 
МембсакизКеу ('-А1{-Х- Выход', КЬА1ТЕХ, спОо1е, 
МеизеафазКеу ('Демонстрация строки статуса!', 0,0, МТЬ)), 
МТ1))); 
ЗЕабазВез.Ри* (Р5баиз, 'Статус'); 
215розе (Р5фафа$, Попе) 
епа; 
Ъед1п 
Р5сафбаз5 ум := Мем (РВаЕ5 Е геашм, Тп1® ( 
'5фабаз.гез!, $ Сгеафе, 1024)); 
Сфафо$Вез .]п1% (Рбабаз5Егм); {Создаем поток} 


Вед1з+егТуре (ВбфаеазЬ1пе); {Регистрируем строку статуса} 
Сгеабебкае1$Г1пе; {Помещаем строку статуса в поток} 
осасазВез$ .Бопе 

ела. 


В программе создается поток, связанный с указателем РУ аш$5Ит, и в 
него с помощью процедуры Стещеюа!$[те помещается строка статуса. 
Этой строке присваивается ключ Статус. 


21.2. ИСПОЛЬЗОВАНИЕ РЕСУРСА 


Получить объект из ресурса не представляет проблемы: после ини- 
циации файла ресурсов Вы просто используете его метод Сер которому 
передаете ключ (имя) нужного ресурса. Например, в слелующей программе 
используется файл 5ай15.гез, созданный в предыдущем примере: 


О95ез ОБ]есёз, Ог1уегз, \У1емз, Мепиз, 01а1о9$, Арр; 
уагх 
ЗЕафазВез: ТВезоцгсеЕ11е; {Файл ресурсов} 


фуре | 
РМуАрр =^ТМуАрр; {Программа в Тигро \У1$1оп} 
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ТМуАрр = оБдесе (ТАрр11саЕ1оп) 
СопзЕгасеог 1111; 
Ргосеаиге Тп1Е5каеаз11пе; \У1г6за1; 
епа; 
СопзЕгасеог ТМуАрр. Тп1(; 
{Открывает поток, связанный с файлом ресурсов} 
Ъед1п 
ЭЗсасазВе$ . Тп1 (М№ем (РВаЕб+геам, 
1016 ('5сабаз.хез', $ЕОреп,1024))); 
1Е ЗсабазВез.5Егеам^.56афаз <> 0 &БВеп 
На1*; 
Вед15сегТуре (В5З+ае\а$11пе); 
Тпрегтеа 116 
епа; 
Ргосеаиге ТМуАрр.Тп1Е бб абазГ1пе; 
{Получает строку статуса из файла ресурсов} 
Бед1п 
Ссаба$Ь1пе := Робаба$1пе (ЗЕабазВез$.Сее ('Статус')) 
ера; 
уах 
Ргоа: ТМуАрр; 
Бед1п 
Ргоа. 111; 
Ргоз.Вап; 
Ргод.Ропе 
епа. 


Заметим, что если в файле ресурсов нет ресурса с указанным именем, 
метод СеЁ возвращает значение МП.. 

Любой ресурс можно получить из файла ресурсов сколько угодно раз и 
в любом порядке, Т.е. файл ресурсов — это поток с произвольным дос— 
тупом. При необходимости можно дополнять ранее созданный файл ре— 
сурсов новыми объектами или заменять существующие в нем объекты 
другими. 

Для ускорения доступа к файлу ресурсов его можно связать с ЕМ$-— 
памятью или использовать для его размещения виртуальный диск. 


21.3. СТРОКОВЫЕ РЕСУРСЫ 


Списки строк используются в программах 'Гиро У1$1оп очень часто, 
поэтому специально для этого вида ресурсов разработаны два особых 
объекта — Т5И1А$Макег и Тэшта[15 С помощью ТэгИл$МакКег создается 
строковый ресурс, а с помощью Т5#1п9[15 ранее созданный строковый 
ресурс становится доступен программе. Предполагается, что создание 
строкового ресурса и его использование осуществляется в разных про- 
граммах, поэтому обоим объектам в Тагро \У1$юп присвоен один и тот же 
регистрационный номер. По той же причине Т5УН[15НМаКег имеет метод 
Рё но не имеет метода Сер а ТУ шпо[15 наоборот, имеет Се и не имеет 
Рш. 


456 Глава 21 


В отличие от остальных ресурсов доступ к строковым ресурсам осу— 
ществляется по индексам. Таким образом, Ваша программа становится 
независимой от языка, используемого для вывода сообщений. Чтобы 
поместить на экран ту или иную информацию, достаточно указать индекс 
нужного сообщения и в зависимости от используемого файла строкового 
ресурса сообщение будет выведено на нужном языке. 

В двух следующих программах иллюстрируется создание и использо — 
вание строкового ресурса. В программе СтежелтоКез создается стро— 
ковый ресурс, содержащий все строки текста программы. Константы № 
_ И 512е5НВез определяют количество строк и общую длину строкового ре- 
‚ сурса в байтах. В нашем примере эти величины заранее не известны и 
выбираются приблизительно, но так, чтобы в ресурсе гарантированно 
разместился бы весь текст программы. В реальной программе они должны 
выбираться, исходя из конкретной задачи. 


Ргодгаюм Сгеакеб®1паВез; 
{Эта программа создает строковый ресурс} 
Озез ОБ)есЕз; 


сопзЕ 
5$12е56хВез = 2000; {Общая длина всех строк в ресурсе} 
М5Ех = 40; {Общее количество строк} 

уаг 
Е: Фехе; {Файл с текстом программы) 


РгоаТехе: ТВезоцгсеЕ11е; 
ЗЕг1па$ : Т5Ег1р1$ЕМакехг; {Строковый ресурс} 
К: Тибедег; 


$: ЗЕЕара; 
Бед1п 
_ $ := сору(Рагатб56г(0),1,роз('.',Рагамбек (0))); 
Аз51ап (ЁЕ,$+'РАЗ'); 
Везе ({); {Открываем файл с текстом программы} 
Вед15$егТуре (К5$х115%&Макег); {Регистрируем объект} 


РгодТехе.Тп1* (Мем (РВаЕб $ геап, 
1116 ('ргод.гез', $ЕСгеафе, 1024))); 
ЗЕг1паз.Тп1 (б12е3егКез,М№5ег); 


К := 0; 
мр11е поЕ ЕОЕ(ЁЕ) ао 
Ьед1п 
ВеааГл (Ё,3); {Читаем строку программы] 
1пс (К); {К - порядковый номер строки} 
ЗЕг1па$.Раё (К, $) {Помещаем строку в ресурс} 
ела; 
С1о5е (Е); {Закрываем файл с текстом программы} 


{Помещаем ресурс в поток} 

РгодТехе. Рае (@5Ех1па$, 'Программа'); 

ЗЕг1па$.Вопе; {Закрываем ресурс} 

РгодТех® .Ропе {Закрываем поток} 
епа. 
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В программе Изе5тдКез$ текст, полученный из созданного строкового 
ресурса, читается и выводится на экран «задом наперед», начиная с по- 
следней строки текста. 


Ргодгаюм ОзезЕ1паВез; 
{Эта программа использует ранее созданный строковый ресурс} 
Озез ОЪ)]есез; | 
уаг 
РгоаТех*: ТВезоцгсеЕ11е; [Файл ресурсов} 
Р5Ег1па$ : Р5®г110911$®; {Строковый ресурс} 
К,М: Тпбедег; 


Бед1п 
Вед1з$егТуре (К5$6х1п9115е); {Регистрируем объект} 
РгоаТехе. Тп1® (М№ем (РВцЕ5сгеамп, {Создаем поток} 
111% ('ргод.гез'!, $ ОрепВеаа,1024))); | 
Р5ег1паз := {Получаем из потока ресурс} 
Р5Ег1па15$% (РгодТехе.Се® ('Программа')); 
№ := 1; 
мВ11е (Р5&г1паз^.беё (№) )<>'' ао 
10 (№); {№-1 = общее количество строк} 
Бог К := №-1 аомлво 1 ао 
Иу1ееГл (Р5ехг1паз^.сСее(к)); {Получаем и выводим строки} 
Р5Ег1па$^.ПБопе; {Закрываем ресурс} 
РгоачТехе.Попе {Закрываем поток} 
епа. 


Заметим, что индексы, по которым осуществляется доступ к строковому 
ресурсу, могут быть произвольными целыми числами в диапазоне от 0 до 
65535. Чтобы определить общее количество строк в строковом ресурсе, 
используется то обстоятельство, что при обращении к Тита [45.Се с 
недеиствительным индексом метод выдает пустую строку. На практике 
этот способ нельзя считать надежным (в строковом ресурсе могут хра— 
ниться и пустые строки), однако других способов определения этого па-— 
раметра в Т5Н119[15 не существует. 

Перед обращением к Г5г.15Макег.Рие и Т5Ггито [454 Се! соответствующие 
объекты должны быть зарегистрированы с помощью КедЯегТуре. 
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ОБЪЕКТЫ-КОНТРОЛЕРЫ 


При разработке диалоговых программ часто бывает необходимо не 
только предоставить пользователю возможность ввода данных, но и про— 
верить их допустимость в данном контексте программы. Если, например, 
пользователь должен вводить целочисленные величины, то в набранной им 
строке могут содержаться только цифры, а если от него ожидается ввод 
имени файла, строка должна представлять собой правильный маршрут 
поиска дискового файла. 

В этой небольшой главе рассматривается имеющаяся в Тито У1$0оп 
группа объектов — контролеров, упрощающих решение подобного рода 
задач. 


22.1. ТИПЫ ОБЪЕКТОВ-КОНТРОЛЕРОВ 


Объект — контролер обычно связывается со строкой ввода ТтриИШлте и 
активизируется при выполнении метода ГприИлпе.УаПа. Получив управ — 
ление, контролер осуществляет необходимую проверку данных и блоки-— 
рует завершение ввода, если обнаружена ошибка. В ОБес!/Итаом5 входят 
пять объектов — контролеров, являющихся наследниками абстрактного 
объекта ГУаПаа!ог и отличающихся алгоритмом проверки данных. 


22.1.1. ТРХРасшге\УаН аа ог 


Объект ТРХРсшгеУаПааюг проверяет введенную пользователем строку 
на соответствие некоторому шаблону ввода. Шаблон ввода определяется с 
помощью специальных символов, подобно тому, как задается допустимый 
ввод в базе данных Рага4ох корпорации ВоЦапа. В шаблоне можно ис- 
пользовать следующие специальные символы: 


Символ Назначение 


т Любая цифра 

Ё Любая буква 

@ Любой символ (буква, цифра или специальный символ) 

& Любая буква с автоматическим преобразованием в верхний регистр 

! Любой символ с автоматическим преобразованием букв в верхний регистр 
* 


Повторение следующего символа произвольное число раз 

; Следующий символ — не управляющии 

[] Заключенная в скобки последовательность символов может отсутствовать. 
, Разделение вариантов 

{} Создание группы 


Любой другой символ шаблона представляет сам себя, т.е. не является 
управляющим. Символ «;», предшествующий специальному символу, от 
меняет его специальное назначение. Чтобы в шаблон остзвить собственно 
символ «;», его нужно удвоить. 
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Перечисленные символы позволяют формировать шаблоны любой 
сложности. Например: 


ео {## — трехзначное число; примеры правильного ввода: 123, 566, 
080; неправильный ввод: 12 (нет одной цифры), -12 (первый символ 
— не цифра}; 


е *} — число с произвольным количеством цифр; допустимый ввод: 1, 
12, 12345678987654321; неправильный ввод: -12, 0334А; 

е [+,-]*# — произвольное целое число; допустимый ввод: +123, 
-56, 7890; недопустимый ввод: +-123, 1.23, 12345Е+02; 

е {#[#]}-{(#[#] }-(#*[##]} — дата в формате ДД-ММ-ТГГ; ло- 
пустимый ввод; 1-2-33, 01-02-1933; недопустимый ввод: 1/2/33, 
1 фев 33; 

ео {;**} — число в диапазоне 0...9 умножается (символ *) на произ— 
вольное положительное целое число; правильный ввод: 2*2, 
3*12345; неправильный ввод: 2/2, 123*12345. 


22.1.2. ТЕШегУаПАааюг 


Этот объект проверяет все введенные пользователем символы на их 
принадлежность к набору допустимых символов. Если очередной вводимый 
символ не принадлежит эталонному множеству, он игнорируется и при 
наборе просто не появляется в строке ввода. Таким образом, объект 
ТЕШегУапасеюг действительно фильтрует вводимую строку, удаляя из нее 
неправильные символы. Например, экземпляр объекта 


МуЕ11еег := Мем (РЕ11$егУа11Чабог, 1116 (['0'..'9'])) 


выбирает из ввода только цифры. 


22.1.3. ТКапдеУаПДатог 


Объект ТКапдеУаПааюг порожден от ТЕШегУаПааюг. Он преобразует 
символьный ввод в Целое число и проверяет, находится ли оно в диапазоне 
указанных значений М...Мах. Его метод 15УаПА вернет значение Гше 
только в том случае, когда, во—первых, пользователь введет правильное 
число, и, во—вторых, это число будет принадлежать нужному диапазону. 
Например, объект 


МуВапдае := Мем (РВапдеУа11Ча® ог, 1п1 (0,100)) 


позволяет вводить числа в диапазоне от 0 до 100 включительно. 


22.1.4. ТГоокирУаНАаафог 


Абстрактный объект ТГоокирУаПааюг предназначен для контроля со-— 
ответствия введенной пользователем строки набору эталонных строк. 
Фактически он модифицирует поведение базового объекта ТУаПааюг на 
случай, когла проверяется произвольная текстовая строка. В его потомках 
должен перекрываться метод ГооКкир, осуществляющий нужный контроль и 
возвращающий Тше только в том случае, когла подготовленная пользо — 
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вателем строка: соответствует одному из желаемых значений. Например, [6 
помощью объекта 


фуре 
ТМугооКирУа11Чафог = оБЗес* (ТЬоокорУа11Чафог) 
РапсЕ1оп ГооКор (соп$® $5; $5%:1п49): Воо1еап; \У1х%за1; 
ела; 
РапсЕ1оп ТМуГооКкорУа]11Чаеог.Гоокар; 


сопЗЕ 

Техе1 = 'ТатЬо!; 

Техф2 = 'Разса1!; 
Бед1п 

.ооКкир := (5=Тех*1) ок (5=Тех®2) ог (5$=ТехЕ1+' '+Техё2) 
епа; 


можно потребовать от пользователя ввода только одной из трех воз-— 
можных строк: ТигБо, Разса]! или Тигро Раса. 


22.1.5. ТУлпдТтоокир\УаН да ог 


Этот объект порожден от ТГоокирУаПааюг и сравнивает введенную 
пользователем строку с набором допустимых строк, хранящихся в от-— 
сортированной коллекции. Чтобы объект осуществлял сравнение с 
нужным набором строк, он инициируется следующим образом: 


ах 
МуСо11есЕ1оп: Р5ЕЕ1п9Со11ес®1оп; 
МубегУа1: Р5Ег1паГоокарУа11аа*ог; 

Бед1п 
{Создаем коллекцию строк} 
МуСо11есЕ1оп := Мем (Р5$&г1п9Со11есе1оп, 111% (1,1)); 
{Наполняем коллекцию - размещаем строки в куче} 
МуСо11есЕ1оп^.Тпзег® (Мемзег ('Турбо'!)); 
МуСо11есЕ1оп^.Тпзег® (№ем5 ег ('Паскаль'!)); 
{Создаем объект-контролер} 
Му5ЕгСо1 := Мем (РЗ г1паГоокирУа11Чав ог, Тп1* (МуСо11есЕ1оп)) 


епа; 


22.2. ИСПОЛЬЗОВАНИЕ ОБЪЕКТОВ-КОНТРОЛЕРОВ 


22.2.1. Контроль текстового ввода 


Как уже говорилось основное назначение объектов - контролеров 
состоит в контроле текстовой информации, вводимой пользователем с 
помощью объектов ТтриИлте или их специализированных потомков, Для 
упрощения подключения контролера в объекте ТтриШапе предусмотрен. 
специальный метод 5еЁ УаПааюг, елинственным параметром обращения к 
которому является ссылка на экземпляр объекта -— контролера. Таким 
образом, подключение контролера осуществляется в два этапа: вначале 
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инициируется экземпляр объекта — контролера, а затем вызывается метод 
ПприНапе.зе! УапПааюг для объекта, осуществляющего ввод данных. На-— 
пример: 


уаг 
ТирЬ1пе: РТприеГ1пе; 
Уа11Чафог: РКапде\Уа11Чафог; 

Редап 
{Создаем строку ввода} 
ТпрЬ1пе := Мем (РТпра*Т1пе,1р1е(...)); 
{Создаем объект-контролер} 
\У\Уа11Чафог := М№м (РВапдеУа11Чафхог, Тп1 (0,10)); 
{Связываем контролер с редактором} 
ТпрЬ1пе^.5ее\Уа11Чафог (Уа11Чафог); 


епа; 
Можно объединить оба действия в одном операторе: 
ТпрЬ1пе^.беЕ\Уа11АЧафог (Мем (РВапде\а119а*ог, Тп1 (0,10)) 


При работе совместно с объектом ТшриНалпе контролер может активно 
воздействовать на ввод пользователя. Это относится к объектам 
ТЕШегУапааюг и ТРХРсииеУаПаащог: они контролируют ввод каждого 
символа и игнорируют нажатие пользователем клавиши, если очередной 
символ не соответствует требуемому. Объект ТРХРсшгеУаПааюг, кроме 
того, способен автоматически дополнять ввод пользователя неспециаль — 
ными символами шаблона. Если, например, шаблон задан следующим 
образом: 


ТпрЬ1пе^.беЕ\Уа11Чаког (М№ем (РРХР1сЕигеУа11Чакохг, 
1016 ('#/#/#',Тгоае))) 


то нажатие пользователем любых клавиш, кроме цифровых, будет игно— 
рироваться, а сразу после нажатия первой (второй) цифровой клавиши в 
строке ввода появится символ «/». Вставкой неспециальных символов 
шаблона — управляет второй параметр обращения К методу 
ТРХРсигеУаПааюг.ти (Тгие — разрешить вставку, Ра[5е — запретить}. 


22.2.2. Проверка других объектов 


Хотя чаще всего для реализации текстового ввода Вы будете исполь— 
зовать объект ТшриНапе или его специализированного потомка, не ис-— 
ключена возможность проверки данных, подготовленных другими види-— 
мыми объектами. Для этого в поле ОрНоп$ любого видимого элемента 
предусмотрен бит о[Г/’аПаще, единичное состояние которого приведет к 
тому, что при каждой потере видимым элементом фокуса ввода будет 
вызываться его метод УаПа, который он наследует от ТМечм. Перекрыв этот 
метод, Вы сможете обратиться к любому объекту -— контролеру для про- 
верки данных. 
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22.2.3. Реализация нестандартного контроля 


Возможно, Вам понадобится сконструировать собственный объект- 
контролер. В этом случае Вы должны помнить, что за контроль отвечают 
четыре метода базового объекта ТУаПааюг: Уапа, 15Уапатриь 5УаПа и 
Етгог, причем абстрактные методы [5УаПа и Етог перекрываются в по- 
томках, вызываются другими методами объекта—контролера и не 
предназначены для вызова извне. 

Метод УаПа получает строку, введенную пользователем, осуществляет 
ее контроль и возвращает Тгие или Ра[5е в зависимости от результатов 
контроля (Тгие означает правильный ввод). Метод 1[5Уайатрш также по — 
лучает строку символов ввода, однако, в отличие от УаПа, он получает ее 
после каждого изменения пользователем входной строки. Метод 
15 УаПАтри! имеет два параметра обращения: 


ЕаипсЕ1оп Т\Уа11Чафог.Т1$\/а11АТпро® (уаг 5: $5%х1пд; 
бирргез$Е111: Воо1еап): Воо1еап 


Параметр Фирргез5РШ. указывает, должен ли метод автоматически 
форматировать строку перед ее проверкой. Если этот параметр имеет 
значение Тгие, метод должен дополнить подготовленный пользователем 
ввод 5 нужными в этом месте символами и только после этого производить 
контроль. Поскольку параметр 5 определен как параметр -— переменная, 
метод может вставлять дополнительные символы непосредственно в строку 
ввода, но ни в коем случае не должен удалять ошибочно введенные сим-— 
волы из нее. Из всех стандартных контролеров только ТРХРасшгеУаПааюг 
использует 5ирргез5 Ш = Тгие. 


Глава 23 


ПРАКТИКА ИСПОЛЬЗОВАНИЯ 


Программирование с использованием библиотеки Тито У1$1оп весьма 
специфично по сравнению с обычным программированием в среде Турбо 
Паскаля. Эта специфика прежде всего связана с широко используемым в 
Титро У19юоп механизмом ООП: как правило, нельзя чисто механически 
перенести старую программу в новую объектно — ориентированную среду, 
обычно для этого требуется переосмысление всего проекта в целом. Другая 
особенность Тифо \У1$9оп -— интенсивное использование динамической 
памяти: если Вы не имеете достаточного опыта работы с кучей, у Вас могут 
быть проблемы, связанные с динамически размещаемыми объектами. И, 
наконец, программы, управляемые событиями — это еще одна весьма 
специфичная особенность Тигоо У15$1оп, которая вначале может создавать 
определенные трудности в отладке. 

В этой главе обсуждаются дополнительные средства, имеющиеся в 
Татро У!31юоп и увеличивающие эффективность использования этой биб— 
лиотеки. Кроме того, приводятся практические рекомендации по разра -— 
ботке всей программы в целом и программированию отдельных ее частей. 


23.1. КОНТРОЛЬ ЗА ДИНАМИЧЕСКОЙ ПАМЯТЬЮ 


Как правило, объекты в Титфо \15$1оп размещаются в куче. Это отвечает 
специфике диалоговых программ: на этапе разработки программист 
обычно не может учесть все возможные действия пользователя программы. 
Чтобы не накладывать неестественные ограничения на те или иные ее 
возможности, не следует злоупотреблять статическими определениями 
объектов, так как в этом случае программа не сможет гибко учитывать 
специфические требования пользователя. 

В правильно разработанной программе контроль за доступной дина— 
мической памятью должен осуществляться перед каждым обращением к 
№т в противном случае нехватка памяти может вызвать аварийный ос-— 
танов программы и все полготовленные пользователем данные и про- 
межуточные результаты будут безвозвратно потеряны. | 

В Тыфо У!9оп имеются средства, упрощающие этот контроль: гло— 
бальная функция ГоиМетогу будет возвращать Тгие, если размер сво — 
бодного участка кучи стал слишком мал (по умолчанию меньше 4 Кбайт). 
Таким образом, вместо того, чтобы контролировать кучу перед каждым 
обращением к М№еу, можно обратиться к функции ГоиМетогу перед на-— 
чалом размещения динамического объекта или сразу после того, как 
объект размещен в куче. Если ГомМетогу возвращает Тгие, дальнейшая 
работа с кучей возможна только после ее очистки. Резервный участок кучи 
длиной в 4 Кбайт называется пулом надежности. Предполагается, что его 
размеры достаточны для размещения любого объекта Тито У1$1оп, поэтому 
обычно контроль с помощью ГоиМетогу осуществляется сразу после 
процедуры динамического размещения нового видимого элемента. 
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В следующем примере создается простое диалоговое окно: 


(5е5 Мепогу,...; {Функция ГоиМетогу 
определена в модуле Метогу} 


В.Аззтат (20,3,60,10); 

О := М№ем (201а1о4, Тп1Е (В, 'Диалоговое окно!)); 

м1ЕВ 0^ @о 

Бед1п 

В.Азз1ат (2,2,32,3); 
ТпзегЕ (М№ем (РЗ6аф1сТех®, 1п1%(В, 'Сообщение-вопрос'))); 
В.Аззтат (5,5,14,7); 
ТпзегЕ (М№ем (РВаббоп, Тп16 (В, '-Учез (Да)', смУез))); 
ВАзз1ап (16,5,25,7); 
Тпзеге (М№ем (РВаббоп, 1п1% (В, '-М№-о (Нет)', спмМоО))) 


епа; 
1Е ГомМетогу &Веп 
Бедап 
215розе (02,Ропе); {Нет памяти: удаляем распределение} 
ОцЕОЕМепогу; {Сообщаем об этом} 
РОТЕ := ГРа15е ° (Признак ошибки} 
ера 
е1зе 


РОТЕ := РезкКТор^.ЕхесУт1ем (0) =смУез$; 


Если Вы используете вызов ГомМетогу сразу после динамического 
размещения объекта, то в ходе самого размещения не должен произойти 
аварийный останов, связанный с нехваткой памяти. Таким образом, размер 
пула надежности должен быть достаточным для размещения всего объекта. 
Переменная Г[ГозМет.512е задает размер пула надежности в параграфах 
(участках, длиной по 16 байт). По умолчанию она имеет значение 4096 у 
16 = 256, т.е. размер пула надежности составляет 4 Кбайт. 

На практике вместо прямого обращения к ГоиМетогу чаще исполь-— 
зуется вызов метода ТРгодгат. Уапа\ем (Р: Ропиег: Ройшег. Этот метод 
получает в качестве параметра обращения указатель Р на динамический 
объект и осуществляет следующие действия: 

® если Р = МП. метод возвращает МП,; 

е если [омМетогу = Тгие, метод освобождает память, связанную с Ро 

вызывает метод ТРгодтат.ОШОЁЕМетогу и возвращает МП. 

е если обращение к методу Т\Меи. УаПа (стУаПа)} дает Еа!5е (см. ниже), 

объект Р удаляется из кучи и метод УаПаУеи возвращает №1; 

е в противном случае считается, что размещение осуществлено ус— 

пешно, и метод возвращает значение указателя Р. 

Метод ТРгодгат. Уайа Тем осуществляет стандартные действия по 
контролю надежности использования кучи. Обычно его используют перед 
тем, как поместить новый видимый элемент в группу, например: 


РезКТор^ .Тпзег® (\Уа11а\У1ем (Мем (ТМум1паом, 1п16(...)))); 
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Заметим, что нехватка памяти вызывает обращение к виртуальному 
методу ОшО!Метогу, предназначенному для выдачи сообщения о не-— 
нормальной ситуации. По умолчанию этот метод ничего не делает и просто 
возвращает управление вызывающей программе. Вы должны перекрыть 
его, если хотите сообщить пользователю о возникшей проблеме. 

В ряде случаев может оказаться полезной глобальная функция 
РапсЕ1оп МепА11ос (512е: Мога): Ро1пфег, которая осуществляет те 
же действия, что и Мем или Се Мет, но в отличие от них не распределяет 
пул надежности. Функция возвращает указатель на выделенную область 
кучи или МИ, если в куче нет свободного блока нужного размера. Ана-— 
логичные действия осуществляет функция МетАПос5ед, отличающаяся от 
МетАПос только тем, что выделяет память выровненную на границу 
параграфа (на границу сегмента). 


23.2. ОБРАБОТКА ОШИБОК ИНИЦИАЦИИ 
И МОДАЛЬНЫХ СОСТОЯНИИ 


Каждый видимый элемент наследует виртуальный метод Т\ет’.УаПа 
(Соттапа: И/ога): Воо]гап. С помощью этого метода решаются две задачи: 
если параметр обращения Соттапа = стУаПа = 0, метод должен про-— 
верить правильность инициации объекта и выдать Тгие, если инициация 
прошла успешно; при обращении с параметром Соттапа <> стУаПа 
метод возвращает Тгие только тогда, когда модальное состояние диало — 
гового элемента можно завершить командой Соттапа. По умолчанию 
метод УаПАа возвращает Тгие. Вы должны перекрыть этот метод, если хо— 
тите автоматизировать контроль за инициацией объекта и/или за за— 
вершением работы модального элемента. 

Поскольку метод УайПА автоматически вызывается из метода Уапау!ет, в 
нем нет необходимости контролировать правильность использования кучи 
— это делает УапаУМет. С другой стороны, в методе УаПа можно прове-— 
рить другие условия правильного функционирования объекта. Например, 
если в объекте используется дисковый файл, можно проверить сущест -— 
вование этого файла. 

Типичный метод УаПа имеет такой вид: 


Гипсе1оп ТМуУ1еи.\Уа114 (Соптапа: Мога): Воо1еап; 
Ъед1п 
\Уа]114 := Тгае; 
{Проверяем корректность инициации: } 
1Е Соптапа = стмУа11а &Ъеп 
1Е поЕ Соггес&1у1Тп1& еп 


Ъед1п 
ВерогЕЕггогТп1*; {Сообщяем о некорректной инициации] 
\а114 := Еа1зе 
ела 
е]1зе 


{Проверяем корректность завершения:} 
е1зе 1Е Соппапа <> Епаб1еСоммтапа +Веп 


Бед1п 
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Веро’ ЕггохгЕпа {Сообщяем о некорректном выходе} 
\Уа11аА := Га1зе 
‚ ела 


В этом фрагменте предполагается, что результат проверки правильности 
создания элемента возвращается в логической переменной СоггесНути, 
проверка корректности завершения работы модального элемента осу— 
ществляется сравнением команды завершения с ожидаемой командой 
ЕпаМеСоттапа, а сообщения об обнаруженных отклонениях от нормы 
выдаются процедурами КерогЁЁЕттоГтЁ и Керо[ЕтгогЕпа. Заметим, что со-— 
общения об ошибках инициации, не связанных с динамическим рас— 
пределением объекта в куче, реализуются в методе УаПа, в то время как 
сообщения об ошибках кучи — в методе Уайа\ет.. 

Если видимый элемент — модальный, метод УаПа перекрывается также 
для того, чтобы сообщить вызывающей программе о том, будет ли кор- 
ректным в данном контексте завершение модального состояния командой 
Соттапа или нет. Таким способом можно, например, перехватить выход 
из окна редактора в случае, если в нем остался несохраненный в файле 
текст. Разумеется, в подобной ситуации программа может не только выдать 
сообщение пользователю, но и предпринять необходимые действия для 
корректного завершения работы модального элемента. Метод УаПа ав- 
томатически вызывается методом Ехесше модального элемента перед за— 
верщением работы. 

Перекрытие методов УаПа особенно полезно на этапе создания 
сложных программ: автоматический вызов проверки состояния исполь— 
зуемого видимого элемента и выдача исчерпывающей диагностики могут 
дать неоценимую помощь программисту. Если Вы перекрываете методы 
Уайа, Вы можете программировать, не заботясь о многочисленных про— 
верках — методы сделают это за Вас. 


23.3. ОТЛАДКА ПРОГРАММ 


Если Вы пытались отлаживать какую —либо программу в Тито У1$1олп, 
Вы наверняка убедились. что трассировка (пошаговое прослеживание 
логики работы} таких программ весьма неэффективна. Вызвано это двумя 
обстоятельствами. Во-—первых, значительная часть библиотеки Тибо 
\151оп скрыта от Вас: библиотека поставляется в ТРИ-— файлах, просле-— 
живание работы которых невозможно. Во-вторых, в Титро \У131оп ис- 
пользуется принцип отделения логики создания видимых элементов от 
логики обработки связанных с ними событий: как только видимый элемент 
активизируется вызовом Ехесше, начинает работать его метод Напа!еЕуегиЕ, 
который может породить целую цепочку непрослеживаемых трассировкой 
действий программы. 

Ключом к решению проблемы отладки программ в ТитБо У1$1юп является 
расстановка точек контроля в наследуемых метолах Нап МеБуепЕ. Если 
программа не хочет открывать диалоговое окно или не реагирует на на— 
жимаемую кнопку, следует прежде всего убедиться в том, что Ваши 
действия действительно порождают нужное событие. 
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Может. случиться, что установленная контрольная точка не будет реа— 
гировать вообще или, наоборот, будет активизироваться слишком часто. 
Если точка не активизируется, это означает, что Ваш обработчик событий 
просто «не видит» событие. В этом случае необходимо убедиться в том, что 
поле Еуеп МазК видимого объекта содержит маску, позволяющую ему 
реагировать на событие нужного вида. Другой причиной «исчезновения» 
события может быть его перехват (и обработка) другим видимым эле— 
ментом. Это может быть вызвано различными обстоятельствами. Напри — 
мер, Вы могли ошибочно связать две разные команды с одной константой 
или используете команду, которую использует также другой видимый 
элемент. Кроме того, обычно в наследуемых методах Напа]еЁЕуеп! вызы — 
вается обработчик событий объекта — родителя, который может «украсть» 
событие у Вашего обработчика. В таких ситуациях бывает достаточно 
сделать вызов родительского метода после того, как событие будет об-— 
работано Вами. 

Если контрольная точка активизируется слишком часто, значит Вы 
установили ее неправильно. Например, если Вы установили эту точку 
внутри метода ТСгоир.Ехесше, точка будет непрерывно активизироваться, 
т.к. значительная часть времени работы программы тратится на ожилание 
события. Если Вам все-таки требуется установить контрольную точку 
именно в этом месте, сделайте ее условной, чтобы она не реагировала на 
пустые или ненужные события. 

Иногда запущенная программа «зависает», т.е. перестает реагировать на 
любые действия пользователя. Такие ошибки отлаживать труднее всего. 
Если программа «зависла», попытайтесь прежде всего локализовать то 
место, в котором это происходит. Для этого обычно используется рас-— 
становка контрольных точек в подозрительных местах программы. Следует 
помнить, что в Татфо \У131оп «зависания» связаны в основном с тремя ви- 
лами ошибок: 

е освобождается динамический объект, который входил в состав ранее 

освобожденной динамической группы; 

е читаются данные из потока в ошибочно зарегистрированный объект 

(объект имеет неуникальный регистрационный номер); 

е элемент коллекции ошибочно трактуется как элемент другого типа. 

Ошибки первого вида встречаются наиболее часто. Например, прогон 
следующего невинного на первый взгляд варианта программы приводит к 
зависанию: | 


Озез Ор]есез, Утемз; 
у\уагх 
С1, С2: РСгочр; 
В: ТВесё; 
Беда п 
В.Аз51ап (10,5,70,20); 
С1 := №м (Рбкопр, Тп1е(В)); 
В.Сгом (-10,-3); 
С2 := М№м (Рбгоор, Тп1(В)); 
С1^.Тлзеге (С2); 
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01зрозе (61, Попе); 
21зро5е (С2, Попе) {Здесь программа "зависнет"!} 
епа. 


Заметим, что перестановка операторов Г/{5розе местами приводит к 
корректному варианту, т.к. метод С1.)опе умеет контролировать осво— 
бождение своего подэлемента С2 и не освобождает его вторично. Во всех 
случаях оператор ПГ{5розе ((2, Ропе) излишен: освобождение группы вы-— 
зывает автоматическое освобождение всех ее подэлементов. 

Поскольку динамическая память используется в Титро У\У19оп очень 
интенсивно, полезно предусмотреть в отладочном варианте программы 
визуализацию ее размера. Для этого можно использовать такой объект 
ТНеарУе"т': 


Оп1Е НеарУ\У1е\м; 
ТпфегЕасе 
Озез 01а1о0о4$,ОБ]есе$; 
фуре 
РНеар\У1ем =^ТНеарУ1ем; 
ТНеарУ1ем = оБзес® (Т5+а%*1сТех+) 
СопвЕгасфог Тп1{(чаг В: ТВес®); 
Ргосеаиге Ордате; 
епа; 
Тир]1етепвае1ол 
Сопзегасвог ТНеарУ1ем.Тп1*; 
уаг 
5: 5614; 
Ъед1п 
СЕх (МетАуа11,5); 
Тпрег1Ееа 1п1%(В,#3+5) 
епа; 
Ргоседиге ТНеар\У1ем.Ораафе; 
\агх 
5: 5Ег1па; 
Бед1п 
ЗЕгх (МемАуа11,5); 
2015розебекг (Техе); 
ТехЕ := Мембег (#3+5); 
Ргам 
епа; 
епа. 


Например, в следующей программе показан способ включения кон-— 
трольного окна, создаваемого в этом объекте, в верхний правый угол эк — 
рана: | 


9зез Ор)есез,У1ем$,Арр, НеарУ1еим; 


у\уаг 
Н: РНеарУ1ем; {Окно для МетАуа11} 
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И: РИ1паом; 


С: РСгочр; 

К: ТВесЕ; 

Р: ТАрр11са®1оп; {Стандартная программа} 
Бедлап 

Р.Тп1е; 

В.Азз1ап (70,0,80,1); {Верхний правый угол} 

Мем (Н, Тп1(К)); {Создаем окно контроля} 

Р.ТпзегЕ (Н); {Помещаем его на экран} 

ВеааГп; {Пауза - показываем начальный размер кучи} 

В.Аз51ап (10,5,70,20); 

М := Мем (РМ1паом, Тп1 Е (В,'',0)); {Создаем окно} 


В.Азз1ап (5,3,55,12); 
С := №м (Рбгоцр, Тп1®(В)); 


М^ .ТрзегЕ (С); {Вставляем в окно группу} 
РезКТор^.Тпзеге (\); {Выводим на экран} 
Н^ .Ораа*е; {Обновляем окно контроля} 
Кеаа!п; {Пауза - размер кучи перед освобождением] 
015розе (И, Попе); {Освобождаем окно и группу} 
Н^ .Ораафе; {Обновляем окно контроля} 
ВеааЁп; {Пауза - размер после освобождения} 
Р.Вопе 

епа. 


Для получения текущего значения общего размера кучи используется 
вызов метода ТНеареи.Ораае в нужных местах программы. Вы можете 
автоматизировать обновление окна контроля, если включите вызов Ораае 
в перекрываемый метод ТРгодтат.14е. В следующем варианте показан 
способ отображения МетАуаЙ в фоновом режиме. Кроме того, в про— 


грамме иллюстрируется возможное использование функции Ме$5адевВох. 


{5Х+} {Используется расширенный синтаксис. 
вызова функции МеззадеВох} 
_Озез ОБ]есЕз, У1емз,Арр,Неар\У1ем, МзаВох; 
суре 
МуАрр = оБЗесе (ТАрр11са&1оп) 
Ргоседиге 141е; У1х%иа1; 
епа; 
уаг 
Н: РНеарУ1ем; 
Ргосе4иге МуАрр.Та1е; 
Бед1п 
Н^ .Ораа*е 
епа; | 
уаг 
РИ1паом; 
РСсгхойр; 
ТВесе; 
МуАРРр; 


жо = 
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Бед1п 
Р.Тп1Е; 
В.А$51ап (70,0,80,1); 
Мем (Н,Тп1 + (В)); | 
Р.Тпзегк® (Н); 
Ме55адеВох (#3 'Размер кучи до размещения',МТЬ, 0); 
В.Аззтап (10,5, 70,20); 
М := М№ем (РМ1паом, Тп1(В,'',0)); 
В.Аззлап (5,3,55,12); 
С := М№ем (Рбгопр, Тп1Е(В)); 
М^ .Тпзегё (С); 
РезКТор^.Тпзекге (И); 
Мез5адеВох (#3'Размер кучи после размещения', МТЬ,0); 
2015розе (М, Попе); 
МеззадеВох (#3'Размер кучи после освобождения', М№ТЬ,0); 
Р.Бопце 
епа. 


Константа #3 вставляется в начало строки сообщения в том случае, 
когда требуется центрировать эту строку (расположить ее симметрично 
относительно границ окна сообщения). 


23.4. ИСПОЛЬЗОВАНИЕ ОВЕРЛЕЯ 


Модули ТитФо У1Зоп разработаны с учетом возможного использования 
их в оверлейных программах. Все они могут быть оверлейными за ис-— 
ключением модуля ОПуегз, который содержит процедуры обработки 
прерываний и другой системный интерфейс низкого уровня. 

При разработке оверлейных программ старайтесь спроектировать ло — 
гические последовательности вызовов тех или иных модулей так, чтобы по 
возможности уменьшить свопинг (динамический обмен оверлеев). По-— 
скольку программы Титро У1$1оп рассчитаны на интенсивное использо — 
вание диалога с пользователем, размещайте (если это возможно) все 
процедуры, связанные с некоторой точкой диалога, в том же модуле, в 
котором создается и исполняется соответствующий модальный элемент. 
Например, используемые в программе диалоговые окна, как правило, 
порождаются от ТО1а]0д, а диалоговые элементы этих окон — от Тшри те 
и ТИ5РЙемег. Если Вы поместите все три порожденных типа в один мо- 
дуль Ваша программа будет исполняться быстрее, так как взаимосвя— 
занные вызовы объектов не будут приводить к свопингу оверлеев. 

Заметим, что размеры всех основных оверлейных модулей — Арр, 
ОБес!5, Уем$, Мепиз приблизительно одинаковы и составляют около 50 
Кбайт. С учетом Ваших собственных объектов, обеспечивающих интен— 
сивное взаимодействие с пользователем и порожденных от ТИЙпао"\ или 
Тао, типичный размер оверлейного буфера составит не менее 64 
КБайт. Если Вы хотите минимизировать потери времени на свопинг и в то 
же время создать достаточно компактную программу, Вам придется по— 
экспериментировать с размером оверлейного буфера и/или испытательной 
зоны. Вы можете также возложить на пользователя Вашей программы 
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ответственность за выбор размера оверлейного буфера, пргдусмотрев 
соответствующий параметр в строке вызова программы. 
В следующем примере показан возможный способ инициации оверлея. 


{5Е+, О+, 5-} 
{5М 8192,65536,655360} 
Озез Оузег1ау, ПОг1уегз, Метогу, ОБ)есёз, У1емз, Мепаз, 
01а109$,1$%115$Е, 56а01а, Арр; 
{Объявляем оверлейные модули: } 
{50 АБр } | 
{50 21а]1]о9$ } 
{50 Н1$ЕГЗЕ } 
{50 Метогу } 
{50 Мепи$ } 
{50 ОБлесЕз } 
} 
} 


{50 5Еар1а 
{50 У1еиз 
соп$Е 
ОУхгВоаЁО1зКкК = 96 * 1024; [Размер буфера без ЕМ5-памяти} 
ОУхВоЕЕМ$ = 72 * 1024; {Размер буфера при 
использовании ЕМ5-памяти} 
фуре 


ТМуАрр = оБзесе (ТАрр11са®1оп) 
СопзЕгасе ог 1п1(; 
Резфёгасвеохг Попе; \У1г6па1; 


епа; {ТМуАрр 
Ргосе4иге 1п1(Оуег1ауз; 


уаг 

Е11еМате: $З6гапа [79]; 
ред1п 

г11еМаме := Рагамбег (0); 


Оуг1п1 (Е11еМапе); 
1Е ОугВеза1& <> 0 Вел 
БЬед1п 
Ру1пе ег ('Невозможно открыть оверлейный файл ', Е11еМапе); 
На1*; 
епа; 
ОугТп1ЕМ$; 
1Е ОугКеза1& = 0 ЕЪеп 
ОугЗеевВаЕ (ОухВаЕЕМ5) 
е1 зе 
Бес1п 
ОугбеЕеВаЕ (ОугВаЕР1$К); 
ОугбееВекгу (ОугВаЕЁО1$Кк а1у 2); 
епа | 
сг4; {1011Е0уеЕ1ау$} 
сорегасфог ТМуАрр.Т1п№; 
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Ьед1п 
Тп1Оуег1ауз; 
ТАрр11са*1оп.1п1{; 


еп; {ТМуАрр.Тп1 Е} 
РезЕгасфог ТМуАрр.Попе; 
Бедап 


ТАрр11са®1оп.Попе; 
ел; {ТМуАрр.Ропе} 


уагх 
МуАрр: ТМуАрр; 
Бед1п 
МуАрр. 1п1*; 
МуАрр.Вип; 
МуАрр.ПРопе; 
епа. 


В этой программе используется механизм размещения оверлеев в ис- 
полняемом ЕХЕ-— файле. Для этого после компиляции программы ис- 
пользуйте команду ДОС 


сору/Ь МуРгод.ехе+МуРгоа.оуг МуРгод.ехе 


Чтобы определить маршрут поиска ЕХЕ-— файла, в процедуре 
тИОуеПау$ проверяется параметр вызова с номером 0. Заметим, что в этот 
параметр автоматически помещается маршрут доступа к загруженной 
программе только в том случае, когла Ваш ПК работает под управлением 
М$-—ро5 версии 3.0 и выше. 

Обратите внимание: размер оверлейного буфера можно сделать 
меньшим, если программа обнаружит доступную ЕМ5- память, ведь в этом 
случае потери времени на свопинг будут минимальными. Разумеется, 
инициация оверлея осуществляется до обращения к ТАррПсайоп.ШиИ, т.к. 
модуль Арр, в котором находится этот метод, сделан в программе овер-— 
лейным. 


23.5. ПОРЯДОК ВЫЗОВА НАСЛЕДУЕМОГО МЕТОДА 


Большая часть объектов Титро У!310оп спроектирована в расчете на их 
дальнейшее перекрытие в прикладных программах. Типичным примером 
такого рода объектов является Т\е\у, метод Огау которого создает на 
экране пустой прямоугольник и, следовательно, не может отображать 
никакой полезной информации. Поскольку все видимые элементы по-— 
рождены от Т\Ует, Вам необходимо перекрыть метод Огау в собственном 
объекте — потомке. Более того, поскольку Т\Уеи.Огам не делает никакой 
полезной работы, его не нужно вызывать в перекрытом методе. Однако 
полностью перекрываемые методы, подобные ТИеу’.Огат, скорее исклю— 
чение из общего правила. Обычно в перекрытом методе вызывается со— 
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ответствующий метод, наследуемый от родителя, т.к. в нем реализуются 
некоторые необходимые для потомка действия. В такого рода ситуациях 
важна последовательность вызова наследуемого метода: вызывать ли его до 
реализации специфичных действий или после? Ниже приводятся прак-— 
тические рекомендации на этот счет. 


23.5.1. Конструктор 


Вызывайте наследуемый метод до реализации дополнительных действий: 


Ргосеааге МуоБ)есе.Т1п1*(.....); 

Бед1п | 
{Вызов наследуемого конструктора Тп1Ё} 
{Реализация дополнительных действий} 
епа; 


Такая последовательность необходима по той простой причине, что 
вызов наследуемого конструктора приводит к обнулению всех дополни-— 
тельных полей объекта МуОБесЕ. Если, например, Вы используете сле-— 
дующий фрагмент программы: 


фуре 
Муоь)есе = оБЗес® (ТМ1пдом) 
Уа1це: Мога; 
©} < : Воо1еап; 
Сопзегасеог 1п1{(уаг Воппаз$: ТВес®; АТ1е1е: ТТ161е5ег; 
АУа1ае: ИМога; АОК: Воо1еап); 


епа; 
СопзЕкас®ок Муор)ес®.Тп1%; 
Бед1п 
Тпрег1Ееа 1п14(Воцпа$, АТ11е, ипМ№оМапьег); 
Уа1пе := 16; 
ОК := Тгое; 
епа; 


то дополнительные поля Уаше и ОК получат нужные значения 16 и Те, 
Однако, если обращение —ТИ/Лпаом.тиИ (Воипа$, АТШе, итМ№МитьЬе!}; 
поставить после оператора ОК := Тше, в них будут помещены значения 0 
и Ра[5е. Из этого правила существует одно исключение, связанное с за— 
грузкой коллекции из потока конструктором Гоаа. Дело в том, что в на- 
следуемом методе ТСоЙесНноп.Гоа4 реализуется слелдующий цикл: 


СопзЕгасвог ТСо11ес&1оп.Гоаа (маг $: ТбЕгеам); 


Беда 
Фог Т := 0 Фо СопарЕ - 1 @ 
АЕРае (Т, СестТееп($)); 
епа; 


Если элементами коллекции являются произвольные наборы двоичных 
данных (не объекты), Вам потребуется перед чтением очередного элемента 
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сначала получить из потока его длину. Следующий пример иллюстрирует 
сказанное. 


фуре 
РБафаСо11есе1оп = ^ТРафаСо11есе1оп; 
ТРафаСо11есЕ1оп = оБзес® (Т5Ег1п9Со11ес&1оп) 
Т6емб512е: Мокгка; 
СопзфгасвКог Гоаа (маг 5: Т5еЕгеам); 
ЕРипсЕ1оп СееТееп(уахг 5: Т5Егеам): Ро1п%еег; \1х%ща1; 


СопзЕгасфог ТПрабаСо11есе1оп.Гоаа (маг $: Т5Егеат); 
Ред1п 
5$.Веаа (Т%епб17е, 512е0Е (1Т6еп$12е)); 
_ Тлвег1е@а Гоаа (5); 
епа; 
РГопсё1оп ТрабаСо11есе1оп.СееТееп (уахг 5: Т5егеам): Ро1пкег; 
уаг 
Тбем: Ро1пЕег; 
Бед1п 
СееМеп (ТЕет, Т%епб17е); 
5.Веаа (Тфем^, Т$епб17е); 
сСееТеем := Тбеп; 
епа; 


В этом примере конструктор Гоа сначала загружает из потока поле 
Пет512е, содержащее длину читаемого элемента. Затем вызывается кон— 
структор ТСоПесНоп.Гоаа, в котором осуществляется вызов сеШет. Новый 
СеШет использует поле ПетУ2е, чтобы определить размер читаемых 
данных, и резервирует нужный буфер в динамической памяти. Разумеется, 
запись полиморфных коллекций в поток должна происходить в том же 
порядке, т.е. сначала записывается длина очередного элемента, а ‘уже 
потом — его данные. | 


23.5.2. Деструктор 


Вызывайте наследуемый метод после реализации дополнительных 
действий: 


Ргоседике Муор]есе.Попе; 
Беда п 
{Реализация дополнительных действий} 
{Вызов наследуемого деструктора Попе} 
епа; 


Работа деструктора проходит в обратном порядке по отношению к 
конструктору. Вначале Вы должны освободить всю дополнительно рас — 
пределенную динамическую память, а уже затем вызвать наследуемый 
деструктор, чтобы уничтожить весь объект. 
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23.5.3. Другие методы 


Порядок вызова наследуемого метода зависит от конкретного алгорит— 
ма. В большинстве случаев наследуемый метод вызывается первым, но 
могут использоваться и другие последовательности. Особое значение имеет 
вызов наследуемого обработчика событий Напа!еБуеп В самом общем 
виде структура нового обработчика будет такой: 


Ргоседаке МуОр)]есе.Напа1еЕуеп+ (маг Еуеп®: ТЕуеп®); 
Бедап 

{Изменение наследуемых свойств} 

{Вызов наследуемого обработчика} 

{Добавление новых свойств} 

епа; 


Таким образом, вначале Вы должны запрограммировать те действия, 
которые изменяют стандартное поведение перекрытого обработчика, затем 
вызвать его и, наконец, осуществить новую обработку событий. Разумеет— 
ся, любая из этих трех частей может отсутствовать. Например, стан-— 
дартный обработчик ТО1а]од.Напа!еЕует лишь расширяет свойства на- 
следуемого метода ТИ’таом.Напа!еЕуепЕ добавляя в него обработку со— 
бытий от клавиатуры и событий — команд: | 


Ргоседаке ТО1а1о3.Напа1еЕуеп* (уаг Еуеп®: ТЕуеп®); 
Бед1п 

ТпВег1еа Напа1еЕуеп® (Еуеп®); 

сазе Еуепе.МПаф оЕЁ 

еуКеуро\т : 


е\уСоптапа: 


Этот обработчик перехватывает все события от клавиатуры и мыши, в 
том числе и нажатие на клавишу ТаБ. Если Вы хотите обработать событие 
от клавиши Та особым способом, Вы должны перехватить это событие до 
вызова стандартного обработчика. Например: 


Ргосе4аиге ТМоТаьз01а1оа.НапЯа1еЕуеп® (уаг Еуеп®: ТЕуепе); 
Бед1п 
1Е (Еуепе.ИБа$ = еуКеуПромп) ЕЪеп 
3Е (Еуепе.КеуСоае = КЬТар) ох 
(Еуепе.КеуСоае = КЬ$В1ЕЕТаЬ) ЕВеп 
С1еагЕуеп* (Еуеп®); 
Тпре’г1ЕеЯ Напа1еЕуеп® (Еуеп®); 
ера; 
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23.6. ПРИМЕРЫ ПРОГРАММНЫХ РЕАЛИЗАЦИЙ 


В этом разделе приводятся примеры программных реализаций неко -— 
торых типичных задач, решаемых с помощью 'ТитЬо У1Зюоп. Эти примеры 
не имеют сколько — нибудь серьезного прикладного назначения, они просто 
иллюстрируют возможные приемы программирования. Поскольку боль— 
шинство видимых объектов используется в тесной взаимосвязи, примеры 
иллюстрируют программирование сразу нескольких объектов. 


23.6.1. Строка статуса 


В следующей программе создается строка статуса, содержание которой 
зависит от установленного контекста подсказки (определяется значением 
поля ТРгодгат.Нерс®). В зависимости от действий пользователя эта 
строка будет содержать текст 


Езс Выход ЁЕ1 Сменить контекст на 1 
Однажды в студеную, зимнюю пору 


либо 


ЕЗС Выход КГР2 Сменить контекст на 0 
Я из лесу вышел. Был сильный мороз... 


Переключение строки осуществляется клавишами Е! и Е2, для выхода 
из программы используется клавиша Е5с. 


9зез ОБ]есЕз,Арр, Мепиз, Ог1уегз, \У1емз; 
суре 
РМубеаеаз11пе = ^ТМубеааз11те; 
ТМубзЕаеа$11пе = оБдесе (Т5каеаз1пе) 
РипсЕ1оп Н1п®(Спёх: Мога): $Ех1па; У1г6па1; 
епа; 
МуАрр = оЪЗесЕ (ТАрр11са®1оп) 
З$а*Т1пе: РМуббабаз1пе; 
Сопзёгасеог 1п1(; 
Ргоседиге Тп1Е5табозГ1пе; \У1х6чца1; 
Ргосеаиге Напа1еЕуепЕ (уаг Еуеп®: Теуеп®); У1гх®аа1; 
епа; 
сопзе 
смСпех1 = 200; 
сшСпех2 = 201; 


СопзЕгасеохг МуАрр.11п1{; 
Ъед1п 

Тпрегз&еа 1111; 

Тпзех* (З$аеГ1пе) {Использовать нестандартную строку статуса} 
епа (МуАрр.Тп1Е}; 


Ргоседиге Мудрр.1Тп1+5каеаз1пе; 
([Инициация нестандартного поля МуАрр.5ЕаЕГ1пе} 
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уах 
В: ТгесЕ; 
Бед1п | 
сесЕхееп® (В); 
В.А.У := ргеа(В.В.У); 
СЕаеТ1пе := Мем (РМуббаеазЬ1пе, Тп1е (в, 
Меибсасазо,еЕ (0,0, {Первый вариант строки] 
МеискаказКеу ('-Езс- Выход', КЬЕзс, смОцт1е, 
МембсасиазКеу ('-Е1- Сменить контекст на 1', 
КЬЕ1, смСп®х1, МТЬ)), 
Мембфаба$реЕЁ (1,1, {Второй вариант строки} 
Меибфсаеа$Кеу ('-Езс- Выход!, КРЕзс, стОц1, 
МембсаеизКеу ('-РЕ2- Сменить контекст на 0', 
КЬЕ2, спСпех2, МТЬ)), 
№11)))); 
епа {Му4рр. ГТл1Е5ЕаЕиз11пе}; 


Ргосе4ике МуАрр.Напа1еЕуепе; 
{Переключение контекста и обновление строки статуса} 
Бед1п 
Тпрег16еа Напа1еЕуеп® (Еуеп®); 
сазе Еуепф.Соптапа оЕ 
спСпёх1: Не]1рсех := 1; 
спСпЕх2: Не1рсех := 0; 
е1зе 
С1еагЕуеп* (Еуёеп®); 
епа; 
1Е Еуеп®.МРаф <> еуМоев1па %Веп 
Ьед1п 
За 1пе^.Орааее; 
С]1еагЕуепе (Еуеп+) 
ега 
ела {МуАрр.Напа1еЕуепЕ}; 


ГапсЕ1оп ТМубкафа$11пе.Н1п® (Спёх: Мога): Зекапа; 
[Переключение поля подсказки} 
соп$е 

Рхопр*: аккау [0..1] оЕ З%х1па =( 

'Однажды в студеную, зимнюю пору', 

'Я из лесу вышел. Был сильный мороз...'!); 
ред1п 

Н1пе := Ргошр® [Спех] 
епа {ТМубЕавизГ1пе.Н1пЕ}; 
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Р.Тп1 Е; 

Р.Вип; 

Р.Попе 
епа. 


23.6.2. Меню 


Стандартная программа содержит поле МепиВаг типа ТМепиВаг. По 
умолчанию метод ТАррПсаНоп.тИМепиВаг устанавливает это поле в МП, 
что означает отказ от меню. Если Вы хотите использовать меню в Вашей 
программе, необходимо перекрыть этот метод. В следующем примере 
‚ создается двухуровневое меню, показанное на рис.23.1. 


_$ Подменю..: _ЕЗС Выход 


‘1. Первый выбор _Р1” 
2 Второй выбор [2 


3 Третий выбор | 


Рис.23.1. Двухуровневое меню 


Опцию «Подменю...» можно выбрать следующими способами: 

е нажатием клавиш Ё10 — <смещение указателя> — Ещег 

е командой А{-5: 

е отметкой мышью. 

Опции «Первый выбор» и «Второй выбор» можно выбрать клавишами 
Е1 и Е2 без развертывания подменю. После развертывания подменю 
можно использовать те же клавиши, а также использовать клавиши с 
цифрами 1 и 2, отметку мышью или смещение указателя к нужной опции 
и Ещег. Опция «Третий выбор» доступна только после развертывания 
подменю. Выбор каждой из этих трех опций приводит к появлению на 
экране окна с сообщением. Кроме того, опция «Гретий выбор» попере-— 
менно запрещает или разрешает действие команд ст1, ст2 и стОий. 


[$Х+} 
Озез Ор]есЕз,Арр,Мепаз, Ог1уегз, Уземз,МзоаВох; 
фуре 
МуАрр = оБзесЕ (ТАрр11са®1оп) 
Ргоседцге 1п1(МепоаВатг; \1гх%1а]; 
Ргосеаиге Напа1еЕхеп® (маг Еуепе: ТЕуеп®); \У1г&ча]1; 


сопзе 
ст1 = 201; 
см2 = 202; 
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см3 = 203; 


Ргосеаиге МуАрр.1Тп1ЕМепоВаг; 
уаг 
В: ТВес®; 
Бед1п 
сесЕхфсеп® (В); 
В.В.У := асс (В.А.У); 


МепаВаг := Мем (РМепоВаг, Тп1® (В, 

МемМепа ( {Главная полоса меню} 

МембаБМепа ( {Первый элемент главного меню} 
'^5> Подменю...',ИсМмМоСопеехЕ, 

МемМепл ( {Определить выпадающее подменю} 


МеиТ$еп ('-1-^ Первый выбор','Е1',КЬЕ1, см1,0, 
МеиТ$ем('-2- Второй выбор','ЕР2',КЬЕ2, сп2,0, 
МемЬ1пе ( {Определить разделяющую линию} 
МеиТ$еп ('-3^ Третий выбор','',0,см3,0, 
№11))))), 
МемТеем ( {Второй элемент главного меню} 
'-Е5С- Выход', '-Е5С-', КБЕзс, сп0ц1,0, 
№11))))); 
еп {(МуАрр.ГТп1ЕМепиВаг}; 


Ргосеаиге МуАрр.Напа1еЕуепте; 
сое 
Е]ад: Воо1еап = Тгае; 
ст$ = [сп1,ст2, спОц1 8]; 
Беда п 
Тпре’г1%еа Напа1еЕхепе (Еуеп®);. 
сазе Еутепе.Соптапа оЕЁ 
сп1: МеззадеВох (#3'Первый выбор', МТЫ,0); 
сп2: МеззасвеВох (#3 'Второй выбор', МТЬ,0); 
сш3З: 
Бед1п | 
МеззасвеВох (#3'Третий выбор', №11,0); 
3Е Е1ад еВеп 
21зар1еСоттапа$ (ст$) 
е1зе 
Епар1еСоттапа$ (стз$); 
Е]ач := пое Е1аа 


ета 
ела 
епа —{МуАрр.Напа1еЕуеплЕ}; 
ъ‘-------.---.--.-...-.-- ] 
уах 
Р: МуАрр; 
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Р.1п1; 

Р.Вип; 

Р.Бопе 
епа. 


23.6.3. Диалоговое окно 


На рис.23.2 показан вид диалогового окна, которое создается и ис- 
пользуется в рассматриваемом ниже примере. 


= Пример диалогового окна 
Это статический текст 


1 Строка ввода: Начальный текст 


2 Независимые кнопки 3 Зависимые кнопки 
- [Х1 Первая’ кнопка _ -С } Первое продолжение 


„(Х1 Вторая кнопка. СЭ Второе, продолжение 
[1 Третья кнопка _. `’-(*) Третье` продолжение. 


Рис.23.2. Диалоговое окно со строкой ввода и кнопками 


Если диалог завершен командой «Установить», на экране разворахи — 
вается окно, в котором сообщаются полученные из диалогового окна па— 
раметры — текст из строки ввода и настройка кнопок. Если диалог за— 
вершен командой «Не изменять», окно сообщений содержит строку 


Команда 'Не изменять!, 


если диалог завершен по клавише Е5с, на экран не выводится никаких 
сообщений. 

Пример иллюстрирует использование строки ввода, зависимых и не- 
зависимых кнопок и нестандартных команд. 

Для задания начальных параметров и чтения параметров, установ — 
ленных в результате диалога, используется поле ТОа10о9.Раа. Это поле 
содержит данные, используемые в ходе диалога, в виде записи, поля и тип 
которой строго соответствуют порядку и типу вставляемых в окно тер— 
минальных элементов. В нашем примере (см. текст программы) первым в 
окно вставляется статический текст, однако этот терминальный элемент не 
имеет параметров, которые можно было бы изменить в ходе диалога, 
поэтому в записи Ра ему не отводится место. Второй по счету в окно 


Практика использования 511 


вставляется строка ввода Г/приНИапе. Этот объект характеризуется длиной [ 
строки, указываемой вторым параметром обращения к ТтриНапе ти, 
поэтому для него в Раа выделяется поле, длиной [+1 байт. Каждому 
кластеру с кнопками выделяется поле ИУ’ОКО, что дает возможность задать 
в кластере до 16 независимых кнопок и до 65536 зависимых: каждая 
независимая кнопка связана с соответствующим разрядом 16-—битного 
поля (первая кнопка — с младшим разрядом), а каждой зависимой кнопке 
соответствует свое число (первой кнопке соответствует число 0, второй — 
1 итл.). Установка данных в поле ТО1а10о9.Раа осуществляется методом 
ТРла/1од.5ееа, получить данные после диалога можно с помощью метода 
ТРла109.аеаю. 


{$Х+)} 
Озез Ор]есе$,Арр, Ог1уег$, Р1а]о3$,Мепаз, У1ем$,МзаВох; 
фуре 
МуАрр = оБзес®е (ТАрр11са%1оп) 
Ргосеамке Тп1Е5$аеаз11пе; \У1гЕца1; 
Ргоседиге Напа1еЕуеп* (маг Еуеп®е: Теуеп®); У\У1г®аа1; 
Ргосеаиге Сеёр1а1оа; 
епа; 
РМу01а1о3 = ^ТМу)1а1о9; 
ТМур1а1о3 = офЗесЕе (ТП1а1о9) 
Ргосед4иге Нап41еЕлуеп* (уаг Еуеп®: Теуеп®); \У1х%9аа1; 


епа; 
сое 

спО = 200; 

см1 = 201; 

см2 = 202; 
(------------------- } 


Ргоседаке МуАрр. 1116 56або$11пе; 
[Создает строку статуса} 
уагх 
В: ТВесе; 
Ъед1п 
СсесЕхтепе (В); 
В.А.У := ргеа(К.В.У); 
Сфаеа$1пе := М№ем (Рбхаба$11пе, Тп1* (В, 
МембЕасаз,еЕ (0, 5ЕЕЕЕ, | 
МембеаеазКау ('-А1ф-Х- Выход', КРА1ТЕХ, см0о1, 
МембЕаеиазКеу ('-Е1- Вызов окна',КЬЕ1, сто, МТЬ)), 
ть) )) 
епа {МуАрр.Тр1Е5ЕаЕи$Г1пе}; 
е---------------- } 
?госеацхге МуАрр.Напа1еЕуепт*; 
ГОбрабатывает нестандартную команду ст0} 
Бед1п 
ТпВеглЕеа Напа1еЕуепЕ (Еуепф); 
сазе Е\уеп®.Сотштапа оЁ 
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смО: СеЕр1а1оа 
е1зе 
С1еахЕуеп® (Еуеп®) 
епа 
еп {МуАрр.Напа1]еЕуепЕ}; 


Ргосеаиге МуАрр.Сее01а1оч; 
{Создает и использует диалоговое окно} 


уагх 
В: ТВесе; {Координаты элементов} 
р: РМур1а1о9; {Диалоговое окно} 
Т: РТпри Ь1пе; {Строка ввода} 
ВВ: РВаА1оВае®опз; {Зависимые кнопки} 
СВ: РСВескКВохез; {Независимые кнопки} 
5 : БЕЕала; {Для вывода сообщения} 
соп5Е 
Ь = 120; {Длина строки ввода} 
фуре 
Тр1а1о9Пафа = гесога {Параметры диалогового окна} 
Т Раба: $%х309 [1]; {Текст в строке ввода} 
СВ_Рафа: Мога; ° {Независимые кнопки} 
ВВ Рафа: Мога {Зависимые кнопки} 
епа; 
сопзе | 
3Е: аггау [0..2] оЕ ЗЕгапа = ('Первое', 'Второе"', 'Третье'); 
Рафа : ТБ1а1очрафа = ( {Начальные параметры диалога} 
Т_ Рафа : 'Начальный текст'; 
СВ Рафа: 3; {1-я и 2-я кнопка} 
ВВ Рафа: 2); {3-е продолжение} 
Бедап 
В.Аз$1ап (5,3, 15,18); {Координаты диалогового окна} 
р := Мем (РМур1а1оч,Тп1& (В, 'Пример диалогового окна')); 
у1ЕВ 0^ 4о 
Ьед1п 


В.Аззтап (1,1,69,3); 

Тизег* (Мем (Р5ЕБае1сТехЕ, {Вставляем статический текст} 
111% (К,#3'Это статический текст'))); 

В.Аз$з1ап (20,3,60,4); 


Т := №м (РТпра&Ь1пе, Тп1® (В, 1)); 

Тпзег® (Т); {Вставляем строку ввода} 
В.Аззтап (1,3,20,4); 

Тизег® (Мем (РГаЪе1, {Вставляем метку строки ввода} 


1116 (В,'-1- Строка ввода:',Т))); 

В.Азз1ап (60,3,62,4); 

Тлзег® (Меи (РН1$5®$оку, {Вставляем список ввода} 
1016 (В,Т,0))); 

В.Аззтап (10,6,30,9); 

СВ := М№еи (РСБесКкВохез, Тп1® (В, 
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Мем5Т$ем ('Первая кнопка', = 
МембТтем ('Вторая кнопка', | 
МемзТеем ('Третья кнопка', №1.))))); 


Тизег® (СВ); {Вставляем независимые кнопки} 
В.Азз1ат (6,5,30,6); = — | | 

Тизег% (Мем (РТаБе1, о {Вставляем метку кнопок} 

[11 (В, '-2- Независимые кнопки ',СВ))); 

В. Аззт ап (40, 6, 63,9); 

ВВ := Мем (РКаа1оВаоп$, ТптЕ (В, 


лемоТеем ('Первое продолжение', 
Мем5Теецп ('Второе продолжение', | 
:ем5Теепм('Третье продолжение‘, МТЬ))))); 


[пзег* (ВВ); -_ — ‚ {Вставляем зависимые кнопки} 
В.Азз1 ат (36,5, 63, 6); О 
[пзег® (Мем (РГаре]1, ‘. _ {Вставляем метку кнопок} 


1016 (В, '-3- Зависимые кнопки',ВВ))); 

З.Азз1ат (14,11,32,13); 

Тпзеге (Меи (РВаефоп, {Вставляем кнопку "Установить"} 
‚Таз (В, '-4- Установить! г ст1,БЕМогта1) )); 

В.Азз1апт (40,11,58, 13); 


Тпзеге (Мем (РВаефол, [Вставляем кнопку "Не изменять"} 

1016 (В,'-5- Не изменять! '‚ст2,ЬЕМогта1))); | | 

беераа рас ` [Устанавливаем начальные значения} 
епа; | | 


{Помещаем окно на экран и ‘получаем команду завершения} 
сазе ПБезкКТор^ „ЕхесУ1ем (р). ОЕ. 


см]: | 
Ъед1п' — [Была команда ‚: "Установить": } 
р^.Сесрафа (Рафа);  . {Получаем новые значения} 
м1ЕВ Рафа ао | 
Бед1п | ’ [Готовим сообщение} 
5 := #3'Параметры диалогового окна: '+ 
#13'Текст :'+Т Рафа+#13'Кнопки: '; 
1Е СВ Рафа апа 1. <> 0 &Веп 
$5 := 5+' Первая" 
1Е СВ Рафа апа 2 <> 0 &Веп 
3 := 5+! Вторая' 
1Е СВ Рафа апа 4 <> 0 +Веп 
°$ := $5+' Третья!; 
3 :=5+#13'Продолжение; '+$%[ВВ_Ража] 
ел | 
епа; | | 
сп2: $ := #3'Команда "Не изменять"'; 
е1зе | 
5 = 1: 


епа; {сазе} 
1Е $ <> '' &Веп 
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Мез5адевВох (5,МТЪ,0) 
епа (МуАрр.СеЕр1а1о9}; 


Ргосеаиге ТМуП1а1оч.Напа1еЕуепте; 
{Обрабатывает нестандартные команды ст1 и ст2} 
Бед1п 
Тпре’г1Ееа Напа1еЕуепре (Еуеп®); 
1Е Еуепе.МРаЕе = еуСоттапа еЪев 
сазе Етеп{.СоттапА оЕЁ 
сп1: ЕпаМоаа1] (сп1); {Завершить с командой ст1}] 
ст2: ЕпЯМоаа1 (сп2) {Завершить с командой ст2} 
епа; 
С]1еахгЕуеп* (Еуепф) {Очистить другие события} 
епа (ТМурла]од.Напа1еЕуепЕ}; 


Р.Тп1; 

Р.Воп; 

Р.ПБопе 
епа. 


Лля использования нестандартных команд ст0, ст1 и ст2 перекры-— 
ваются обработчики событий строки статуса и диалогового окна. Чтобы 
завершить диалог с выдачей нестандартной команды, в обработчике со— 
бытий окна вызывается метод Еп4Моаа|, в результате чего метод Ехес Мет 
возвращает значение соответствующей команды. Заметим, что стандартная 
для Титро У\У1$1юп команда стСапсе]! (закрыть окно по клавише Ес) об-— 
рабатывается стандартным методом ТО1а/од.НапеЕБуегЕ. 


23.6.4. Окно с текстом 


В следующей программе на экране создается несколько окон, содер — 
жащих один и тот же текст — текст программы (см. рис.23.3). 
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05е5 ко ПИ ИИ Е 
сопзф [71 
смНем\ 1 п ; в ОЪ 4ес{3з , Ярр, Итемз , Ог1чуегз 

см0де14 п м сопз 
Мах. 1пе ; смНен\ п 288, 
сме 1 п 281; 
Мах! 1 пе 22; 


| ИИА 

Озез 0 ]4е'“== 

сопз% 
смНему п 
све] п 


рр, Ч1емз ‚ Ог1че 
смНемУ1п = 288, 22 
си/е 1 {п 201; 23 
Мах. 1пе 22; —_ 273 


уаг 
11пез. аггау (9. .Нах | а 


ГП Открыть. новое 1Ше| Удалить _ 


Рис.23.3. Окна с текстом программы 


Каждое новое окно открывается с помощью клавиши [15. Активное 
окно можно удалить клавишей Пе! или распахнуть на весь экран клавишей 
Р5. С помощью мыши Вы можете перемещать активное окно по экрану 
и/или изменять его размеры. 


9зез ОБ)]есЕз,Арр, У1емз, Ог1уегз ,Мепаз; 


сое 

спМемМ1п = 200; 

спре1М1п = 201; | 

Мах 1пе = 22; {Количество текстовых строк} 
зах 

Т1пез: агхгхау [0..МахГ1пе] оЕ Зегара [80]; 
туре 


МуАрр = оБЗесе (ТАрр11сак1оп) 
И1пМо : Мога; 
СопзЕгасеог 1п1{; 
Ргосеаиге Тп1Е5каеоазГ1пе; У1х6ца1; 
Ргосеацге Напа1еЕуеп (маг Еуепе: Теуепе); \У1гх&ца1; 
Ргосе4иге МемМ1паои; 
епа; | 
РТпсег1ог ^ТТрбег1ог; 
ТТобегзог = офзес® (ТтУ1ем) 
СопзЕгасеог 1п1е(В: ТВес®); 
Ргосеиге ПОгам; \У1г&ца1; 
епа; 


СопзЕгасвог МуАрр.Тп1(; 
[Открывает и читает фаил с текстом программы} 
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уаг 
Е: сехс; 
$: 5Егара; 
К: Титседег; 
Бед1п 
Тпрехтееа 111%; 
И1тоМо := 0; {Готовим номер окна} 
Бог К := 0 Во Мах|Г1лпе @ао 
Ь1пез[к] := '!; {Готовим массив строк} 
$ := сору(Рагам5ех(0),1,роз('.',Рагамзег (0)))+'РАЗ!; 
{$1-} 
Аз з1ап (Ё,$); 
Везеф (Е); 
1Е ТОВези16 <> 0 +Веп 
ех1{; {Файл нельзя открыть} 


Бог К := 0 ео Мах!лое @о 
1Е вое ЕОЕР(ЁЕ) ЕБеп Веаатт (Е, Г1пез[к]); 
С1озе (Е) 
{21+} 
епа {Мудрр.ГТп1ЕЁ}; 
(------------------ } 
Ргоседахе МуАрр. Тп1Е5тасазапе; 
уаг 
В: ТВесЕе; 
Ъедап 


СесЕхеепт (В); 
В.А.У := ргеа(В.В.У); 
Ссаеа$[1пе := Мем (Рбфабо$11пте, ТпаЕ В, 
МембфабазреЕЁ (0, 5ЕЕЕЕ, 
МембЕаеазКау ('-А1{-Х- Выход!, КРАТЕХ, спОчт Е, 
МембсаеазКеу ('-Тп5- Открыть новое', КЮТпт5, сиМемМ1п, 
МеиббасазКеу ('-Пе1- Удалить активное', КБОе1, смС1озе, 
МеибсафеазКеу ('-К5- Распахнуть', КЬЕ5, смбоот, №М10))))}, 
МтЬ))) 

епа (МуАрр.Тп1Е5Еави$Г1пе.; 


Ргосеаиге МуАрр.Напа1еЕуеп{; 
{Обработка нестандартных команд стМ№еиИ1п, стре]И1п} 
ред1п 
ТопБег16еа Напа1еЕуеп® (Еуеп®); 
сазе Еуепе.Сотштап оЕ 
спМемМ1п: 
БЬедлп 
С]1еахЕхуеп® (Еуеп®); 
МемМ1паом; 
епс; 
спре1М11п: Ехепе.СоммапА := смС1о5е; 
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епа; 
С]1еахЕуепт* (Еуеп+) 
епа (МуАрр.Напа1еЕуепЕ}; 


Ргоседиге МуАрр.МемИМ1п9ом; 
{Открывает новое окно} 
уаг 
В: ТВесе; 
И: РМ1паом; 
Ьед1п 
Тис (М1п№); {Номер окна} 
{Задаем случайные размеры и положение окна:)} 
В.Азз1ап (0,0,24+Вапаом (10), 71+Вапаом (5)); 
В.Моуе (Вапаоп (80-В.В.Х),Капаом(24-В.В.У)); 
И := №м (РМ1паом, Тп1®(В,'',ИМ1пМ№о)); 
М^ .СеёСс11рВес* (В); {Получаем в К границы окна} 
ВК.Сгом (-1,-1); {Размер внутренней части окна} 
{Инициируем просмотр текста:) 
М^ .ТпзегЕ (М№ем (РТрпЕег1охг, Тп1®(В))); 


РезКкТор^.Тпзекге (И); {Помещаем окно на экран} 
епа —{МуАрр.МеиИ1паои}; 
(------------------- } 


СопзЕгасвог ТТпбег1ог.1Т11(; 
[Инициация просмотра текста во внутренней части окна} 


Ъед1п 
Тпрег1ее@Я 1Тп1е (В); 
СгомМоае := аЕСгомН1Х+аЕсСкомН1У 


епа {ТТлЕег1ог.Гп1Ё}; 


Ргоседиге ТТпеег1ог.Огам; 
‘Вывод текста в окне} 
таг 
К: Тобсеаег; 
В: ТОгамВоаЕЕег; 
ред1п 
— ог К := 0 Фо ргеа(512е.у) ао 
Бед1п 
МоуеСпаг (В,' ',СееСо1охг (1), 512е.Х); 
МохебЕг (В, сору(11пез[К],1,512е.Х),СеЕСо1охг (1)); 
Иг1 Ее 1пе(0,К,512е.хХ,1,вВ) 
епа 
епа {ТГлЕеглог.Огаи}; 
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Р.Вопе 
епа. 


В программе объявляется тип Т]щепог, предназначенный для созлания 
изображения во внутренней части окон. Его метод ШшЁ определяет способ 
связи объекта ТПиЁепог со стандартным объектом ТИЙпао"и: оператор 


СсхомМоае := чЕСхгомН1Х+а9ЕСкомН1У 


задает автоматическое изменение размеров объекта ТПёепог при изме- 
нении размеров окна так, чтобы вся внутренняя часть окна была всегда 
заполнена текстом. Метод ТПёепог.Огаиу заполняет внутреннюю часть окон 
текстовыми строками, которые в ходе выполнения конструктора 
ТМуАрр.тиИ предварительно считываются из файла с исходным текстом 
программы в глобальный массив [пез. Аля вывода текста сначала с по— 
мощью метода МоуеСйаг буферная переменная В типа ТОгауВиег за 
полняется пробелами, затем методом Моуе5 И в нее копируется нужный 
текст, а с помощью ИТиеШМпе содержимое переменной В помещается в 
видеопамять. Такая последовательность действий стандартна для вывода 
текстовых сообщений в Тшфо У1310оп. Заметим, что функция де Соог (1) 
возвращает номер элемента палитры, связанный с обычным текстом; для 
выделения тестовых строк можно использовать вызов Се{Со/ог (2). 


23.6.5. Окно со скроллером 


Скроллером называется специальное окно, обеспечивающее просмотр 
(скроллинг) текста. Типичный скроллер — это окно редактора интегри— 
рованной среды системы Турбо Паскаля; его поведение Вам, очевилно, 
хорошо знакомо. Средства Тифо У19оп обеспечивают стандартные 
функции скроллера для окна, создаваемого в приводимой ниже программе. 
В частности, это окно (см. рис.23.4) управляется мышью, реагирует на 
клавиши смещения курсора, оно может изменять размеры и свое поло — 
жение на экране, его можно «распахнуть» на весь экран. 


7зез Об]ес&з,Арр, Ог1уег$,Мепаз, У1емз; 
$4 
Т1 пез: РСо11ес&1оп; (Коллекция для хранения текстовых струк} 
туре 
ТМуАрр = оБзес®е (ТАрр11са®1оп) 
Ргоседцге Вип; У\У1г%аа1; 
епа; 
РТпеехг1ог =^ТТпл$ег1ог; 
ТТобег1охг = оБЗесЕе (Т5сго11ет) 
СопзЕгасвог 1п1% (В: ТВес®; 5Х,5У: ЕР5сго11Ваг); 
Ргосеиге ПОгам; \1х®ча1; 
епа; 
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[2] Просмотр файла Е:^НЕМВООК2“23 .ряз ————————ы—(1]1= 
95е$ 0Ъ4ес+$,йрр,г1чегз ‚Мелиз,У1емсз ‚ 1115; А 
уаг || 

Е1пе$. РСо11ес+1оп; {Коллекция для хранения текстовых строк} - 
фуре 


ТНуйрр = оЪъ4ес*% (ТАрр | 1са* 1оп ) 
Ргоседиге Вип; у1г%иа]; 
эта; 


Р] пфег1ог =^ТИ\*ег1ог, 
Т Гпеег1ог = о ]ес% (Т$Зсго | ]ег) 
Сопз$гисфог [114 (9: Т#ес®; 5Х,3%: РЭбго11Ваг); 
Ргоседиге Шгам; у!1г%ца|; 
епа; 
РВОСЕВИВЕ ТМуйрр.Вип; 
{Читает строки из текстового файла и обеспечивает их просмотр} 
уах 
В: ТИАесф; 
у: РЫ1таоы, 
3, паме’ з&г1тд, 


Рис.23.4. Окно со скроллером 


Ргоседцге ТМуАрр.Вип; 
{Читает строки из текстового файла и обеспечивает их просмотр; 
уаг 
В: ТВесё; 
И: РМ1паом; 
5, паме: 3%х1п9; 
Е: Жехс; 
Ъед1п 
{Получаем в МАМЕ имя файла с текстом программы: } 
паме := сору (Рагам$% г (0),1,роз('.',Рагамбекг (0)))+'РАЗ'; 
{Создаем коллекцию текстовых строк:} 
Т1пез$ := Мем (РСо1]ес&1оп, 1п1% (10,5)); 
аз51ап (ЕЁ, патме); 


{$1-} 
гезее (Ё); 
{>21+) 
1Е ТОВезо1е = 0 еп 
Беда п {Файл успешно открыт} 
1 ЕВ Г1пез^ ао мчЬ11е поЕ ЕОЕ(Е) ао 
ред1п 
Кеаа!л (Ё,$); 
Тпзеке (Мемзст($)) 
епа; 
С1озе (Е) 
еза 
е1зе {Файл не был открыт} 


11 пез^.Тпзех* (Мембет ('Нет доступа к файлу '+папе)); 
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{Создаем окно со скроллером:} 
РезКТор^.секЕхееп® (В); 


М := Мем (РИ1паом, Гп1 (В, 'Просмотр файла '+папме,0)); 
мтЕВ И^ ао 
Бед1п 


СеЕСс11рВес* (В); 

В.Сгом (-1,-1); 

Тпзег* (Мем (РТпеху1охг, Тп1& (В, ЗЕапаахга$ско11Вах ( 
з$ЬНог17о0оп$а1+ зрЮНапа1еКеуроага), 
ЗЕапЧагЯ$сго11Вахг (5ЮУег&1са1+$ЮНапЯ91еКеуроага) ))) 

епа; 
РезКТор^ .ТпзегЕ (И); 
{Ждем действий пользователя; } 
ТпВехг1ееа Вип 
епа {ТМуАрр.Вип}; 


СопзЕкгасеохг ТТпеег1охг.Тп1(; 
{Создает окно скроллера} 
Ъед1п 
 `ТлЬег1ееЯ Тп1+4(В,5Х,5У); 
СгомМоае := аЕСбгомН1Х+аЕСкомН1У; 
ЗеЕ11т1+ (128, 11пез^.СоцпЕ-1) 
епа [{ТТлеег1ог.Гп1Е}; 


Ргосеаиге ТТпЕег1ог.ПОгам; 
[Выводит на экран содержимое окна скроллера} 
уах._ 

У: Трбедег; 

В: ТОгамВаЕЕег; 


5: ЗЕкапа; 
Ъед1п 
Бог У := 0 о ргеа(512е.У) ао 
Бед1п 


МоуеСраг (В,' ',СеЕСо1ох (1),517е.Х); 
1Е (У+0е16а.УуУ < Г1пез$^.Соцп®) ава 
(11пез^.Аф (У+0е1$а.уУ) <> №11) ЕЪеп 
Ъедлап 
5 := Р5Ек1па (Т1пез^.АЕ (У+Ре1%а.уУ))^; 
Моуебег (В, сору ($, Бе1+а.Х+1,Ъепаев (5$) - 
Ре1+а.хХ),СееСо1ох (1)) 
епа; 
ИхтееЬ1пе (0,У,512е.хХ,1, В) 
епа 
епа (ТТрЕегтог.Огаи}; 


таг 
Р; ТМуАрр; 
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ред1п 
Р.Тп1Е; 
Р.Вап; 
Р.Бопе 
епа. 


В программе перекрывается метод ТАррПсаНоп.Кип. В потомке ТМуАрр 
этот метод вначале считывает текстовые строки из файла с текстом про— 
граммы в коллекцию Гшез и создает на экране окно со скроллером. После 
этого вызывается стандартный метод ТАррПсаНоп.Кип. 

Метод ТПёепог.Огау обеспечивает вывод нужных строк в окно скрол- 
лера. Для определения порядкового номера выводимых строк и их поло — 
жения относительно границ скроллера используется поле ТосгоПег.ОеПа. 
Обратите внимание: если в коллекцию помещается «пустая» строка, т.е. 
строка нулевой длины, глобальная функция Меж возвращает значение 
МП.. В методе ТПиепог.Огам оператор 


1Е (У+0е1$а.УуУ < 11пез5^.Сочп®) апа 
(ъ1пез^.АЕ (У+0е1фа.У) <> МТЬ) %Веп ... 


осуществляет проверку значения получаемого из коллекции указателя на 
МП; если бы мы не предусмотрели эту проверку, прогон программы 
(использование МП, -— указателя) на некоторых ПК мог бы привести к 
аварийному останову. 


23.6.6. Просмотр списка файлов 


Ниже приводится программа, в которой показано, как можно создать и 
использовать диалоговое окно для выбора файлов из любого каталога. В 
пример включены лишь минимальные средства, с помощью которых на 
экране формируется окно выбора файлов и окно с сообщением о кон- 
кретном выборе (см. рис.23.5). 

Для реализации просмотра списка файлов и выбора из этого списка 
нужного файла в Титфо \1$1оп предусмотрен объект ТВох. Этот объект 
создает специальное окно скроллера, содержащее одну вертикальзую 
полосу и указатель на текущий элемент. Имена файлов помещаются в 
коллекцию строк, указатель на которую передается объекту с помоью 
1летода Т[15Вох.Меи/!4151. 

В программе используются две глобальные переменные, содержащие 
указатель на коллекцию Г и номер выбранного элемента Рос. В объекте 
ТАррПсаНоп перекрываются методы Кип и Ропе. Новый метод ТМуАрр.Кип 
создает коллекцию и окно просмотра. Метод ТМуАрр.Ропе перед завер— 
шением работы программы формирует окно, в котором сообщается имя 
выбранного из списка файла. Заметим, что это имя помещается в пере-— 
менную Рос в момент выхода из программы с помощью перекрываемого 
метода ТГ15Вох. УапПа. 
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Текущий 
ЯъС [ТТАВ .РЯЗ ЕМОСМП$ . ТРИ ГОВМСМО$ . РАЗА 
ЯЗС ТТТЯВ . ТРИ ВЕМОНЕГР . НЕГР РОВМ$ . РАЗ _ 
СЯГС .РЯЗ ПЕМОНЕГР .РАЗ КУТЕЧЕВ.РЯЗ : 
САГС . ТРИ ПЕМОНЕГР . ТРИ КУТЕЧЕВ. ТРО 1 
САЯГЕНОЯЯ . РАЗ ПЕМОНЕГР.ТХТ БАбЕТЗ.РЯЗ > 
САГЕМДЯЕ . ТРО Е 11.05 .РЯЗ БЯОСбЕТЗ .ТРИ — 
яТяСоОгТ, .РЯЗ Е1ШЕУТЕМ. ЕХЕ БЕМРОВМ РАЗ › 
ВЕМОСМОУ .РЯЗ ГШЕОТЕЧ .РЯУ БЕНРОВМО . ВАТУ 


Г г 1- ИННННЕНЕЕНнНаНи "ТпРогпа+ Оп иЩЕНаннннннниниЕиннЕн 


Выбран файл ГОЗМУ.РАЗ 


Рис.23.5. Окно выбора файлов 


[$Х+}] | 
15ез 120$,О)ес*5$,Арр, У1емз, 01а1095,Ог1уег$,МзаВох; 
уаг 
Г: Р5Ег1паСо11есе1оп; {Коллекция имен файлов} 
Кос: ЗЕгара; {Выбранный файл} 
1уре 
ТМуАрр = оБзесе (ТАрр11са%®1оп) 
’Ргосеааге Коп; У1х®за1; 
Резёгоас®ог Попе; У1г%ца1; 
епа; 
РМуЬ15ЕВох =^ТМу11$6 Вох; 
ТМу11$ЕВох = обес (Т11$%Вох) 
ГирсЕ1оп Уа114(Соптап@: Мога): Воо1еап; У\1х&ца1; 
епа; 


Ргоседаге ТМуАрр.Коп; 
[Создает диалоговое окно с ТГ1$ЕВох} 
у\уаг 
В, ВВ: ТВес®; 
М: РО1а1од; 
беахсПВес; 
Р5сго11Ваг; 
РТ.1$% Вох; 


шо 
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Бед1п 
{Создаем коллекцию имен файлов:} 
Т := М№м (Р5&:1109Со11есЕ1оп, Тп1(50,10)); 
Е1паЕ1 3% ('\дамез\Е19\*.*', Агср1уе, 5); 
Я11е БозЕггог = 0 ао м1 В 5,1^ ао 
Бед1п 
Тпзег® (Мемзет (Мапе)); 
Р1памехеё (5) 
епа; 
{Создаем окно:} 
В.Аззтап (17,4,63,14); 


М := М№ем (РО1а1оа, Тп1®(В,'Текущий каталог:')); 
{Вставляем в окно ТГ1$ЕВох:} 
"т ЕВ И^ ао 

Ьедап 


ВВ.Аз5з1ап (44,1,45,9); 

В := Мем (Р5сго11Ваг, 1п1%(ВВ)); 
Тпзег® (В); 

К.Азз1ап (1,1,44,9); 

Р := Мем (РМУЬ15ЕВох, Т1п16(В,3,В)); 
Р^.М№ем11 5$ (Г); 


Тпзеге (Р) 
ера; 
РезкКТор^ .Тпзеге (И); {Помещаем окно на экран} 
ТлВег1$еа Коп {Ждем команду А1Е-Х} 
епа; {ТМуАрр.Кип} 
(------------------ } 


КапсЕтоп ТМу115ЕВох.Уа11а; 
[Помещает в Гос имя выбранного файла} 


Ьед1п | 

Гос := Р5Ег1па (1^.Аф (Госазеа))^; 
\а114 := Тхае 

епа; {ТМуГ1$ЕВох.Уа11а} 
(------------------ } 


РезЕгасВохг ТМуАрр.Попе; 

(Выводит имя выбранного файла} 

уагх 
В: ТВесЕ; 

ред1п 
В: Азз1ап (20,15,60,22); 
МеззадеВохВес* (В, #3'Выбран файл '+Еос, МТ, $402); 
ТлВег1%еа Попе 

епа (ТМуАрр.Попе}; 


зах 
Р: ТМуАрр; 

редзп 
Р.Тп1е; 
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Р.Коп; 
Р.ПБопе 
епа. 


Окно Т/19{Вох управляется мышью и клавишами. В частности, клави — 
шами смещения курсора можно выбрать нужный файл, клавишами РаОр, 
Рорп листать окно со списком. Работают также клавиши Епа, Ноте, СИ-— 
РаОр, СЁ- Рарп. 

В момент обращения к методу ТМуАрр.Ропе вызывается функция 
ТМУуяЯВох.Уайа, которая определяет номер выделенного файла (этот 
номер хранится в поле Т5Вох.Росизеа) и переписывает имя этого файла 
из коллекции в глобальную переменную Рос. 


ПРИЛОЖЕНИЯ 


11. СРЕДА ТУРБО ПАСКАЛЯ 


П1.1. ЭЛЕМЕНТЫ ДИАЛОГОВОЙ СРЕДЫ 


При работе с Турбо Паскалем на экране ПК может формироваться сложная структура 
прямоугольных участков экрана, рассматриваемых как единое целое и предназначенных для 
тех или иных действий. Такие участки в тексте книги называются меню, окнами, полями и т.д. 
На рис.П1.1 показаны эти элементы и даны их названия. 


йктивная опция 


Активное окно 
Вызов меню 
Меню ——————+ 


Командное поле 


[Х] Опция включена 


[ ] Опция отключена 


Неактивное окно ————|| ( ) Опция отключена 
(+) Опция включена 


( ) Опция отключена 


Строка статуса и подсказки 


Рис.111.1. Элементы диалоговой среды Турбо Паскаля 


Меню будем называть прямоугольный участок экрана, содержащий кодовые слова и 
предназначенный для диалогового выбора продолжения работы. Меню фиксирует некоторое 
текущее состояние диалоговой среды и предлагает несколько альтернативных путей перехода 
из этого состояния. Содержащиеся в меню кодовые слова обозначают возможные альтерна— 
тивы. Условимся называть их в дальнейшем опциями (орИйоп — выбор). 

Окно в Турбо Паскале предназначено для обмена информацией межлу программистом и 
средой. В окно редактора программист помещает текст программы, в окне программы среда 
показывает результат ее прогона, в справочном окне появляются справочные сообщения, в 
отладочном окне программист может наблюдать за изменением переменных в процессе от- 
ладки программы. Одновременно на экране может присутствовать сразу несколько окон, 
однако только одно из них активно в каждый момент. Активное окно очерчивается двойной 
рамкой, неактивные — одинарной. | 

Диалоговое окно разворачивается на экране по мере надобности. С помощью диалогового 
окна пользователь уточняет выбранное действие. Внутри диалогового окна может быть не- 
сколько полей. В поле ввода программист может подготовить текстовую строку (например, 
имя файла). В поле выбора среда предлагает несколько возможных имен файлов. В поле пере 
ключаемой опции можно установить необходимую настройку среды, с помощью командных 
полей — передать среде ту или иную команду. 

Работа с меню и окнами значительно упрощается, если Ваш ПК оснащен устройством 
ввода типа «мышь». Условимся в дальнейшем вместо длинного "устройство ввода типа 
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«мышь»" писать просто мышь что соответствует обиходному названию этого прибора. 
Подвигав мышь по столу, Вы тут же заметите перемещающийся по экрану указатель мыши. С 
помощью этого указателя можно выбрать нужный элемент диалоговой среды. Для этого 
подведите к нему указатель и нажмите левую кнопку мыши. 


1П1.1.1. Работа с окнами 


В среде Турбо Паскаля используется несколько окон, которые могут частично или пол— 
ностью накладываться друг на друга. Для последовательной смены окон используется клавиша 
Еб: нажатие на эту клавишу делает активным очередное окно; если это окно было закрыто 
другими окнами, оно накладывается поверх них. Для смены активности окон можно исполь— 
зовать и мышь: переместите указатель мыши внутрь неактивного окна и нажмите левую 
кнопку. 

В верхней части рамки, очерчивающей активное окно, имеются два небольших поля, ис-— 


пользуемых при работе с мышью. Поле [8] служит для удаления окна с экрана, поле [11- 


для распахивания окна на весь экран, а если это поле помечено значком 1 ‚ — для возврата к 
прежним размерам после распахивания. Эти же действия выполняются и с помощью кла— 
виатуры: ЁР5 распахивает окно или возвращает окну обычный размер, А/!{—ЁР3 закрывает окно 
(удаляет его с экрана). Закрытое окно удаляется из системы окон Турбо Паскаля и его уже 
нельзя вызвать с помощью Р6. Перед закрытием окна редактора, содержащего несохраненный 
на диске текст, среда спросит, нужно ли его сохранить. 

Положение и размеры активного окна можно изменять по своему вкусу. При работе с 
клавиатурой для изменения этих параметров используется команда СШ-Р5. После этой ко— 
манды изменяются цвет и линии рамки: таким образом среда сигнализирует о переходе к 
режиму настройки. Теперь клавишами смещения курсора Вы можете перемещать окно по 
экрану и этими же клавишами, нажатыми в сочетании с клавишей 5, можно менять раз— 
меры окна. После того, как положение и размеры окна установлены нужным образом, на- 
жимается клавиша Епег. При работе с мышью для изменения положения активного окна 
следует подвести указатель к левому верхнему углу рамки окна и нажать левую кнопку — 
окно будет «схвачено» мышью, о чем свидетельствует изменение цвета и линий рамки. Затем, 
не отпуская кнопки, перемещайте мышь по столу, при этом окно будет смещаться по экрану. 
Передвинув окно нужным образом, отпустите кнопку. Для изменения размеров окна ис- 
пользуется правый нижний угол рамки, который «захватывают» мышью точно так же, как и 
при перемещении окна. 

В окнах редактора и справочной службы содержится текст, который может не помещаться 
целиком в окне. Правая и нижняя рамки такого окна содержат указатели размеров, в которых 
показывается положение демонстрируемого в окне фрагмента относительно полных размеров 
текста. Эти поля можно использовать для того, чтобы перемещать окно относительно текста с 
помощью мыши. Чтобы сдвинуть окно вниз на одну строку, подведите указатель мыши к 


самому нижнему краю вертикального указателя размеров так, чтобы он попал на поле [У] и 
нажмите левую кнопку. Для сдвига окна вниз на страницу установите указатель мыши в 
любое место вертикального указателя размеров несколько ниже его середины и нажмите 
левую кнопку. Точно так же поступают при перемещении окна вверх, вправо и влево, ис— 
пользуя для этого соответственно верхнюю часть вертикального указателя и правую и левую 


части горизонтального указателя, если окно смещается на страницу, или поля , , — 
при смещении на одну строку или символ. 


1П1.1.2. Работа с меню 


Для перехода из состояния редактирования к выбору из главного меню используется 
клавиша 210, для возврата в редактор — клавиша Езс. В активном меню указателем (цветом 
или оттенком) выделяется очередная опция. Для выбора того или иного продолжения пере— 
местите клавишами смещения курсора указатель к нужной опции и нажмите Егиег. Выбирать 
можно и другим способом. В кодовом слове опции цветом выделяется одна из букв. Для вы- 
бора опции нажмите клавишу с нужной буквой, если выбирается опция из дополнительного 
меню, или комбинацию АП-—<буква>, если выбирается опция главного меню. При работе с 
мышью для выбора из меню нужно переместить указатель мыши к соответствующей опции и 
нажать левую кнопку. | 
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Выбор ОПЦИИ обычно приводит к развертыванию нового меню или диалогового окна. Если 
справа от опции стоит многоточие, эта опция связана с развертыванием диалогового окна, 


если стоит значок №, вызывается дополнительное меню. 

Некоторые часто используемые опции, содержащиеся в дополнительных меню, можно 
вызвать непосредственно из режима редактирования. Справа от таких опций в меню ука— 
зывается клавиша или комбинация клавиш, которая позволяет сделать это. 

Следует учесть, что детальную информацию на английском языке о том или ином про— 
должении (опции) можно получить с помощью справочной службы, если клавишами пере -— 
мещения курсора сместить указатель к этой опции и нажать клавишу Ё1. 


111.1.3. Работа с диалоговым окном 


С помощью диалогового окна уточняется выбранное действие. В диалоговом окне имеется 
несколько полей, в которых группируется информация о возможностях среды и ее настройке. 
Сразу после развертывания диалогового окна активизируется то или иное поле, которое 
выделяется цветом (оттенком). В активных полях ввода, переключаемых опций или выбора 
файла, кроме того, виден мигающий курсор. 
Запомним следующие правила: 
е для перехода от одного поля к другому предназначена клавиша табуляции ТаБ (клавиша 
располагается в левой верхней части основной зоны клавиатуры и обозначена двумя 
разнонаправленными стрелками); 


Аля перехода внутри поля используются клавиши смещения курсора, 


закрыть диалоговое окно можно клавишей Ебс (в этом случае не происходит никаких 

хействий, связанных с окном} или клавишей Ещег (в этом случае выполняются все 
указанные в окне установки или выбирается указанный файл). | 

При работе с мышью для выбора поля или опции следует сместить к этому полю (опции) 

указатель мыши и нажать левую кнопку. Для того, чтобы закрыть окно и выполнить все 

связанные с ним установки, нужно указать мышью на соответствующее командное поле и 

нажать левую кнопку (в большинстве случаев это поле помечается символами ОК). Чтобы 


закрыть диалоговое окно и не выполнять никаких действий, используется поле [1] верхней 
рамки или командное поле со словом Сапсе] (отмена). 

Если по смыслу того или иного исполняемого действия необходимо ввести текстовую 
строку (например, имя файла), то сразу после раскрытия диалогового окна активизируется 
поле ввода с мигающим курсором. Следует ввести нужный текст и нажать Ещег. При вводе 
текста используются правила редактирования, принятые в редакторе Турбо Паскаля: оши — 
бочно введенный символ можно стереть клавишами ВасК5расе или Пе], причем этот символ 
может быть в любом месте строки (используйте клавишу перевода курсора влево, чтобы 
указать ошибочный символ, или укажите на него мышью и нажмите левую кнопку); ввод 
текста может происходить в режиме замены (переключается клавишей 11$). Если после 
подготовки текста Вы нажмете Епег, текст будет введен и диалоговое окно закроется, однако 
если Вы по каким-либо причинам измените свое решение, достаточно нажать Е5с, чтобы 
закрыть диалоговое окно без ввода текста. Можно также повторить ранее введенный в 
аналогичной ситуации текст, например, уже вводившееся имя файла. Аля этого вместо ввода 


ожидаемого текста нажмите клавишу смещения курсора вниз или укажите на поле справа 
от поля ввода мышью и нажмите ее левую кнопку. В развернувшемся на экране небольшом 
окне содержится протокол использования данной опции. В протоколе сохраняются текстовые 
строки, введенные ранее, и можно клавишами смещения курсора подвести цветной указа — 
тель -— прямоугольник к нужной Вам строке протокола и нажать Епег или указать на эту 
строку мышью и дважды подряд нажать на левую кнопку (нажимать на кнопку нужно быстро, 
без заметной паузы, иначе среда не воспримет это как команду ввода и просто переместит 
указатель к нужной строке протокола). 

Переключаемые опции задают выбор нужной настройки среды из двух или нескольких 
вариантов. Варианты могут быть связаны с включением или отключением какого —либо па— 
раметра среды. Например, можно потребовать от компилятора использовать арифметический 
сопроцессор или не использовать его. Слева от таких опций в диалоговом окне имеется не— 
большое поле выбора, выделенное квадратными скобками; включенный параметр отмечается 
символом Х в этом поле: [Х]; если поле пустое [ ], данный параметр не задействован. Если 
переключаемая опция задает выбор из нескольких вариантов, слева от указателя каждого 
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варианта имеется поле выбора, выделенное двумя круглыми скобками, причем выбранный 
вариант отмечается точкой: (*). 

Чтобы изменить состояние переключаемого параметра или выбрать другой его вариант, 
нужно клавишами смещения курсора подвести указатель к соответствующей опции и нажать 
клавишу Пробел (длинная клавиша в самом низу. клавиатуры) или подвести указатель мыши к 
полю выбора слева от опции и нажать левую кнопку. Можно также нажать клавишу с буквой, 
которая выделена цветом в нужной опции. 

В диалоговом окне обязательно имеется несколько командных полей, которые распола— 
гаются в правой или нижней части окна и выделяются цветом. С каждым таким полем связана 
некоторая команда. Эту команду можно выполнить, если активизировать поле клавишей та — 
буляции и нажать Еп(ег или указать на него мышью 1 и нажать левую кнопку. 


11.2. СИСТЕМА МЕНЮ _ 


Все управление средой Турбо Паскаля осуществляется в основном с помощью системы 
последовательно разворачивающихся меню. Лишь’ одно из них — тлавное меню — постоянно 
присутствует на экране, остальные разворачиваются по ‘мере выбора продолжений. 

Главное меню содержит фактически лишь оглавление дополнительных меню. В этих меню 
сгруппированы близкие по своему роду действия, условное название которых и служит ко— 
довым словом соответствующей опции главного меню: 

Ее (файл) — действия с файлами и выход из системы; 

ЕАй (редактировать) — восстановление испорченной строки и ‘операции с временным 
буфером; | 

Зеагсй (искать) — поиск текста, процедуры, функции 1 или места ошибки; 

Кип (работа) — прогон программы; 

Сотрйе (компилировать) — компиляция программы; 

Рерид (отладка) — отладка программы; 

Тоо$ (инструменты) — вызов. вспомогательных программ (утилит): 

ОрНоп$ (варианты) — установка параметров среды; 

ИПпаом (окно) — работа с окнами; 

Нар (помощь) — обращение к справочной службе. 

Ниже описываются опции дополнительных меню Турбо Паскаля. 


П1.2.1. Меню опции ЕНЕ 


МЕМУ. Создает и открывает новое окно редактора с именем МОМАМЕхх.РА5$. Порядковый 
номер ХХ окна зависит от количества окон со стандартным именем МОМАМЕ, открытых к 
моменту обращения к опции. 


ОРЕМ. Открывает новое окно редактора и помещает в него указанный дисковый файл. 
При обращении к этой опции открывается диалоговое окно (рис.111.2), в поле ввода которого 
можно написать нужное имя файла. Если в имени опущено расширение, среда добавит 
стандартное расширение .РА$. Имени файла может предшествовать путь. Нужный файл Вы 
можете также выбрать из поля выбора, предварительно активизировав это поле мышью или 
клавишей ТаБ; при работе с мышью для загрузки нужного файла из списка в поле выбора 
укажите на имя файла мышью и дважды подряд с небольшим интервалом нажмите левую 
кнопку. Вы можете открыть доступ к протоколу использования этой опции и выбрать в этом 
протоколе одно из ранее использованных имен. Для этого при активном поле ввода нажмите 


клавишу смещения курсора вниз или укажите мышью на поле [$] справа от поля ввода и 
нажмите ее левую кнопку. В открывшемся окне протокола подведите указатель клавишами 
смещения курсора к нужной строчке и нажмите Ещег. Командное поле ОРЕМ (открыть) 
используется для команды чтения файла в новое редакторское окно, КЕРГАСЕ (заменить) 

для замены существующего в активном редакторском окне текста на текст, считанный из 


файла. 
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Рис.П1.2. Диалоговое окно опции ЕЙе/Ореп 
Опция вызывается непосредственно из редактора клавишей 23. 


5АУЕ. Записывает содержимое активного окна редактора в дисковый файл. Если это окно 
связано с именем МОМАМЕхх.РА$, среда запросит новое имя файла (см. ниже опцию 5АУЁ 
А$). Опция вызывается непосредственно из редактора клавишей Р2. 


ЗАУЕ А$. Записывает содержимое активного окна редактора в дисковый файл под другим 
именем. Диалоговое окно этой опции изображено на рис.111.3. В поле ввода Вы должны на— 
нисать имя того файла, в который будет переписано содержимое активного окна редактора. 
Вы можете выбрать уже существующий файл из поля выбора или из протокола опции. В этом 
случае в зависимости от настройки среды старое содержимое файла будет уничтожено или 
сохранено в виде страховочной копии с расширением „ВАК (настройку среды см. в опции 
ОРПОМ$5/ЕМУЩКОММЕМТ. 


ЗАУЕ АШ.. Записывает содержимое всех окон редактора в соответствующие дисковые 
файлы. 


СНАМСЕ ГК. Позволяет изменить текущий каталог пользователя. В поле выбора диало — 
тового окна этой опции (рис.[11.4) приводится дерево каталогов текущего диска. 

Перемещаясь по этому дереву, можно указать на нужный каталог, после чего с помощью 
командного поля СНК (СНапде РШВесюгу — изменить каталог) сменить текущий каталог. 
Если выбран указатель ОАГУЕ$ (дисководы), можно изменить также текущий диск. Командное 
поле КЕУЕКТ (возвращаться) позволит восстановить прежний текущий каталог, если Вы по 
каким —либо причинам решите отказаться от сделанного Вами изменения (эта команда 
действует до момента закрытия окна). 


РЕПУТ. Печатает содержимое активного окна редактора на принтере или выводит его в 
файл (см. опцию РАПУТЕК $5ЕТОР.. 


РЕПУТЕК 5ЕТОР. Настраивает среду на печать текущего файла. Поле ввода ЕШег рай 
должно содержать имя программы — фильтра РЕМЕЕТК.ЕХЕ и, возможно, путь к этой про-— 
грамме. Поле ввода Соттапа Ипе содержит выбор принтера/файла и параметров печати. 
Турбо Паскаль поддерживает три типа принтеров: матричные принтеры Ер5оп, лазерные 
принтеры НР Газегде{ и так называемые постскрипт — принтеры, т.е. принтеры, «понимающие» 
язык описания страниц Ро${Ё5спре. Аля указания нужного типа принтера в поле Соттапа те 
помещаются следующие строки: 
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Рис.П1.3. Диалоговое окно опции Ейе/5ауе а$ 
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Рис.П1.4. Диалоговое окно опции Ейе/СВапде ат 
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$МОЗИАР /АЗСТТ | Неизвестный тип принтера; в выводной поток помещаются только тек-— 
стовые символы и коды перевода строки 

$МОЗМАР /ЕРЗОМ | Принтер Ерзоп или совместимый с ним; система команд Ерзоп поддер— 
живается большинством матричных принтеров других фирм 

Принтер НР Газег]её или совместимый с ним; система команд НР Газег/е{ 
поддерживается большинством лазерных принтеров других фирм 
Постскрипт -— поинтер, воспринимающий команды на —аппаратно-— 
независимом языке описания страниц Ро$ё5спре 


[ЗМОЗМАР /НР 


| СМОЗНАР /Р$ 
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$МОЗМАР /Охххх | Вывод в файл; имя файла ХХХХ должно следовать сразу за символами /О 
без пробелов; если файл не существует, он будет создан в процессе вывода 


Эти команды могут дополняться следующими параметрами: 


Определяет количество строк на одной странице (по умолчанию 55} 


/Тхххх Количество символов пробела, заменяющих один символ табуляции (по 
олчанию 8) 


РО5 5НЕЫМ.. Обеспечивает временный выход в ДОС. Турбо Паскаль остается резидентным 
в оперативной памяти и занимает значительную ее часть, поэтому под управлением ДОС в 
этом состоянии могут выполняться только сравнительно небольшие по объему программы. 
Чтобы увеличить объем свободной памяти для ДОС, необходимо перед обращением к этой 
опции сбросить режим отладки клавишами СИ]-ЁР2. Аля возврата в Турбо Паскаль нужно в 
ответ на запрос ДОС напечатать слово ЕХТ и нажать Еп(ег. 


ЕХП. Завершает работу с Турбо Паскалем. Опция вызывается непосредственно из ре- 
дактора командой А{-—Х. 


01.2.3. Меню опции ЕТ 


ОМРО. В активном окне редактора восстанавливает только что уничтоженную командой 
СШ-У или измененную: строку. Турбо Паскаль создает специальный буфер изменений для 
каждой страницы редактора. Последовательное использование опции ИМО может отменить 
все сделанные Вами изменения текста. Опция может вызываться непосредственно из окна 
редактора клавишами А{—ВасК5расе. 


КЕОО. Отменяет действие предыдущей команды ИМО, 


СОТ. Удаляет выделенный блок из окна редактора и переносит его в буфер обмена 
СИрЬоаг (команды редактора для работы с блоками см. в гл.1). Опция вызывается непо— 
средственно из редактора командой 5ВШ-Пе!1. 


СОРУ. Копирует выделенный блок из окна редактора в буфер обмена СПрЬоага. Опция 
ьызывается непосредственно из редактора командой СН]-—1пз. 


РАЗТЕ. Копирует содержимое буфера обмена СИрЬБоагА в окно редактора. Содержимое 
буфера остается без изменений и может использоваться повторно. Опция вызывается непо-— 
средственно из редактора командой 5—5. 


СТЕАК. Удаляет из окна редактора выделенный блок, но не помещает его в буфер. Ула-— 
ленный фрагмент безвозвратно теряется. Опция вызывается непосредственно из редактора 
командой СШ-Пе!. 


5НО\М/ СИЫРВОАЕО. Показывает содержимое буфера обмена. 


1.2.4. Меню опции ЗЕАВСН 


ЕИМ\МО. Обеспечивает поиск нужного фрагмента текста в активном окне редактора. В мо-— 
мент обращения к этой опции в поле выбора диалогового окна (рис.П1.5) содержится слово, 
на которое указывал курсор в активном окне редактора. Вы можете ввести новое слово или 
текстовую строку, положение которой в редактируемом файле Вам необходимо найти, или 
выбрать эту строку из протокола. После нажатия на Епёег (или выбора командного поля ОК) 
редактор отыщет этот фрагмент в тексте и установит курсор на его начало. 

Поиск управляется следующими переключаемыми опциями: 

Сазе 5епяшуе — учитывать величину букв (т.е. прописные буквы считать отличающимися 
от строчных; опция определена только для латинских букв}; 

У/Во!е мога$ оту — искать по совпадению целых слов (если текст будет обнаружен внутри 
более длинного слова, поиск продолжится дальше); 

Кедшаг ехргезяоп — искать по выражению — описателю текста (см. ниже); 

Еогуаг4 — направление поиска вниз по тексту; 

ВаскуатА — направление поиска вверх по тексту; 
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С/1ора! — искать во всем тексте; 

беес{е4 {ехЁ — искать только в выделенном блоке; 

Егот сигзог — начать поиск от текущего положения курсора; 
Епиге 5$соре — искать от начала текста. 


[1] 


Е1па. 


Техф® фо ЁГ1та 


0041013 ___ 01 тес 101 
_Е 1] базе зепзт1уе (+) КГогчага 
(_) ВасКыага 


Г 1 Улае ч0г45 оп] чЧ 
[] _Вечи1аг ехргезз 101 


(+) Б1оБаГ А ГОМ СиР$ОГ 


( } Зе1есфеа %ех* о ие 1ге зсоре 


Рис:111.5: Диалоговое. окно`опции Зеагс®/Ета 


В поле ввода можно ввести выражение —описатель текста, которое формируется из 
следующих специальных символов: и | | 

^ — в начале строки в выражении - описателе означает начало текстовой строки в ис- 
комом тексте; В 

$ — в конце строки в выражении — описателе показывает конец текстовой строки; 

. — на этом месте может стоять любой. символ; 


* — после любого символа означает любое количество › (в том числе ноль) этих символов, 
которые могут стоять вместо него; например, Бо" означает ь, Бо, Боо, Боф, Бе; 
- -— после символа означает один или больше (не ноль} этих символов, которые могут 
стоять вместо него; например, Ъо+ означает Бо, Бо*, Боо,`но неЬ или Ье; 
[] — означает один из символов, который может стоять внутри скобок, но не любой 
другой символ; например, [ро] означает Ь, о или (; 
[^] — символ ^ в начале строки, заключенной в квадратные скобки, означает отрицание; 
например [^Боё] — это любые символы, кроме Ь, о или *; 
[-] — символ «—» между двумя символами, обрамленными квадратными скобками, оп— 


ределяет диапазон; например, [Ь-о] означает любые символы от Ь до о включительно; 
\ — перед специальным символом означает сам символ; например, \^ означает сам символ 
^, а не начало строки. 


КЕРГАСЕ. Отыскивает в окне редактора нужный текстовый фрагмент и заменяет его на 
новый. Диалоговое окно этой опции похоже на предылущее.со следующими отличиями: 

е в поле ввода Тех! о Ппа нужно ввести искомый текст или выражение - описатель, в 
поле Мем {ехЁ — тот текст, который будет вставляться вместо искомого; 

» Переключаемая опция РготрЁЕ оп гер]асе указывает на необходимость запросить под-— 
тверждение у программиста, прежде чем производить замену найденного фрагмента; 

е командное поле Спапде аП используется для поиска и замены всех обнаруженных 
вхождений фрагмента текста (поле ОК или нажатие' на Ешег означает только одно — 


кратный поиск — замену). 


З5ЕАЕСН АСА1\. Повторяет поиск или поиск и замену фрагмента текста для ранее уста — 
новленных параметров. 
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СО ТО ИМЕ МОМВЕК. Осуществляет позиционирование курсора в окне редактора на 
строку с указанным номером. 


$НОМ/ ГАЗТ СОМРШЕК ЕККОК. Показывает строку текста программы, в которой была 
обнаружена синтаксическая ошибка при последнем прогоне компилятора. 


ЕМО ЕККОК. Отыскивает в тексте программы строку, вызвавшую ошибку периода ис- 
полнения программы. Как правило, при работе в среде Турбо Паскаля ошибка периода про— 
гона программы (например, деление на ноль) вызывает автоматическое прекращение прогона, 
в окне редактора появляется текст программы и курсор показывает то место, в котором 
возникла эта ошибка. Если программа компилировалась без привлечения средств отладки (см. 
ниже опцию ОРПОМ5/СОМРИЕК) или исполнялась вне среды Турбо Паскаля, нужно записать 
или запомнить два шестнадцатиричных числа, которые появляются на экране в сообщении об 
ошибке и указывают адрес ошибочной ситуации (задаются в формате 5555:ОО0ОО, где 555$ — 
сегмент, а ОООО — смещение), затем загрузить Турбо Паскаль (если программа исполнялась 
вне среды) и вызвать эту опцию. После ввода адреса ошибки, среда начнет поиск ошибочного 
оператора. 


ЕМР РКОСЕРОКЕ. Позволяет в режиме отладки отыскать в тексте программы нужную 
процедуру или функцию. 


1П1.2.5. Меню опции ВОМ 


КОМ. Осуществляет компиляцию, компоновку и исполнение (прогон) программы из файла 
редактора. Компиляция проходит в режиме МАКЕ (см. ниже опцию СОМРШЕ/МАКЕ). Если 
программа уже откомпилирована к этому моменту, то среда сразу начнет ее прогон. Опция 
вызывается непосредственно из редактора командой СЁ1-Р9. 


СО ТО СОЕ$ОК. Начинает или продолжает режим отладки исполняемой программы под 
управлением встроенного отладчика. Вначале осуществляются все действия по компиляции и 
компоновке программы, затем программа начинает работать обычным образом (экран пере-— 
ходит в режим воспроизведения окна программы) и останавливается перед выполнением 
первого оператора из той строки, на которую указывает курсор. В этот момент экран воз— 
вращается в режим воспроизведения окна редактора, а строка с курсором выделяется 
цветным прямоугольником. Можно перевести курсор к новой строке и вновь выбрать эту 
опцию — программа остановится перед выполнением нового оператора и т.д. В этом режиме 
доступны все средства встроенного отладчика. Для прекращения отладки нажмите клавиши 
СШ-РЕ2. Опция вызывается непосредственно из редактора клавишей [Е4. 


ТВАСЕ ПМУТО. Начинает или продолжает режим отладки исполняемой программы под 
управлением встроенного отладчика. Если к моменту обращения к этой опции режим отладки 
не был запущен, он запускается точно так, как если бы была вызвана опция СО ТО СИК$ОК, 
однако программа останавливается перед первым исполняемым оператором, т.е. указатель 
будет указывать на слово ВЕСИМ, открывающее раздел операторов основной программы. Если 
режим отладки уже был запущен, вызов этой опции приведет к выполнению всех действий, 
запрограммированных в текущей строке, и указатель сместится к следующей строке про- 
траммы. Если текущая строка содержит обращение к процедуре или функции, управление 
будет передано внутрь этой процедуры (функции) и программа остановится перед исполне— 
нием ее первого оператора. Таким образом, с помощью этой опции можно по шагам про— 
слеживать исполнение всех нестандартных процедур (функций). Опция вызывается непо-— 
средственно из редактора клавишей [7. 


5ТЕР ОТЕК. Также, как и предыдущая опция, начинает или продолжает пошаговое 
прослеживание работы программы, но не прослеживается работа вызываемых процедур и 
функций. Опция вызывается непосредственно из редактора клавишей Р6. 


РКОСКАМ ВЕЗЕТ. Сбрасывает все ранее задействованные отладочные средства и пре- 
кращает отладку программы. Удаляет исполнявшуюся программу из памяти и закрывает все 
открытые в ней в этот момент файлы. Опция вызывается непосредственно из редактора 
командой СИ-Р2. 
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РАКАМЕТЕК$. Позволяет задать текстовую строку параметров, которые ДОС перелает 
вызываемой программе. Эта строка передается программе, находящейся в окне редактора, при 
ее прогоне. 


П1.2.6. Меню опции СОМРЦПЕ 


СОМРШЕ. Компилирует программу или модуль который загружен в данный момент в 
активное окно редактора. Если в этой программе (модуле) содержатся обращения к нестан-— 
дартным модулям пользователя, последние уже должны быть откомпилированы и храниться на 
диске в виде ТРО-— файлов. Опция вызывается непосредственно из редактора командой А!- 
Е9. 

МАКЕ. Создает программу, которая, возможно, содержит включаемые файлы и/или об-— 
ращения к нестандартным модулям. Прежде всего компилируется начальный файл, если, 
разумеется, он определен опцией СОМРШЕ /РЕМАКУ ЕЩЕ (см. ниже). Если начальный файл 
не задан, компилируется файл из активного окна редактора. Если в процессе компиляции 
встретилось объявление нестандартного модуля, среда проверяет, были ли сделаны в соот— 
ветствующем РА$ — файле с текстом программы этого модуля какие-либо изменения с мо-— 
мента последней его компиляции и получения ТРИ- файла; если изменения были, ТРИ— файл 
создается вновь, а если изменения коснулись его интерфейсной части, будут перекомпили — 
рованы также все другие объявленные в программе модули, в которых содержатся обращения 
к измененному модулю. Однако, если РАб— файл с текстом измененного модуля не будет 
найден, система воспользуется существующим ТРИ- файлом без контроля его «свежести». 
Отметим, что этот контроль осуществляется по дате и времени создания РА5— файла и со-— 
ответствующего ему ТРИ- файла. Если системная дата установлена неправильно, среда Турбо 
Паскаля может ошибочно откомпилировать РА$ — файл, для которого существует адекватный 
ему ТРИ - файл. 

’Опция существенно упрощает процесс разработки многофайловых программ, так как 
всегда компилируется только тот минимум файлов, которых коснулись сделанные в программе 
изменения. Опция вызывается непосредственно из редактора клавишей Р9. 


ВОИПО. Эта опция полностью подобна опции МАКЕ за одним исключением: для всех ТРИ- 
файлов отыскивается соответствующий РА5— файл и осуществляется его перекомпиляция 
независимо от того, были ли сделаны в нем изменения или нет. После компиляции в этом 
режиме, Вы можете быть уверены в том, что в полученной программе учтены все изменения. 


РЕЗТИМАТЮМ. Эта опция управляет выходом компилятора: если справа от нее стоит ко- 
довое слово Метогу (память), выходной файл компилятора будет сохранен в оперативной 
памяти и может затем сразу же запускаться из Турбо Паскаля без его загрузки с диска; если 
справа стоит кодовое слово РО{5К (диск), файл с кодом программы будет сохранен на диске в 
виде файла с расширением „.ЕХЕ. Если объявлен начальный файл, его имя будет присвоено 
имени вновь создаваемого ЕХЁ- файла, в противном случае ЕХЕ-— файл получит имя файла из 
того окна редактора, которое содержит текст основной программы. Независимо от значения 
этого параметра ТРИ-— файлы, создаваемые в режимах КОИМ/КОМ СОМРШЕ/МАКЕ и 


СОМРШЕ/ВИПО, будут помещены на диск. 


РЕГМАКУ ЕШЕ. Задает имя начального файла. Если это имя задано, то вне зависимости от 
того, какая часть программы загружена в данный момент в окна редактора, ее компиляция в 
режимах КИМ, МАКЕ и ВОПО будет начинаться с этого файла. Чаще всего начальный файл 
содержит текст основной части программы. В этом случае при загрузке в окно (окна) редак — 
тора включаемого файла или файла-— модуля компилятор сумеет правильно построить про — 
трамму. Если начальный файл не указан, то компиляция в режимах КОМ, МАКЕ и ВОПО 
возможна только в том случае, когла в активном окне редактора находится основная про— 


грамма. 


СТЕАЮ РЮМАКУ ЕП. Очищает имя начального файла, заданное опцией РАМАКВУ РШЕ. 
МЕОКМА ПОМ. Показывает статистику программы. 
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П1.2.7. Меню опции РЕВОС 


ВКЕАКРОПУТ5. Эта опция позволяет просмотреть все контрольные точки и при необхо -— 
димости удалить, переместить любую контрольную точку или задать условия ее работы. В 
диалоговом окне опции (рис.Г11.6) приводится список всех контрольных точек с указанием 
имени файла (колонка ВгеаКрош!5 15, номера строки в этом файле (колонка Шпе #), с ко- 
торой связана контрольная точка, условия, при котором срабатывает останов программы в 
этой точке (колонка Сопа!!1оп), и количества проходов (колонка Ра$$), в течение которых ос— 
танов не происходит. Цветным указателем выделяется текущая контрольная точка. 


и 


ВгеаКро 111$ 


ВгеакКро1пез 113% Г1те # Соп4 1101 


ВТО. РЗ 


| И |_ ка: е. № Пе!езе № \1еы _ №СТеаг а Не № 


Рис.П1.6. Диалоговое окно опции РеБид/ВгеаКройи$ 


В качестве условия, управляющего работой контрольной точки, можно указать любое 
допустимое условное выражение, которое будет вычисляться в ходе исполнения программы; 
контрольная точка будет игнорироваться до тех пор, пока значение этого выражения не 
окажется равным ТКОЕ. Вычисление выражения и останов будут происходить только тогда, 
когда с момента запуска программы будет выполнено заданное количество обращений к 
строке с контрольной точкой (колонка Ра$$). 

С помощью командного поля Еай можно отредактировать текущую точку, т.е. установить 
новые ее параметры (файл, номер строки, условие и количество проходов). Задав новый файл 
и/или номер строки, можно переместить точку на новое место. Командное поле еее ис-— 
пользуется для удаления текущей точки, а поле Сеаг аП — для удаления всех контрольных 
точек. С помощью поля Уеу можно загрузить в окно редактора и установить его содержимое 
так, чтобы увидеть соответствующую контрольную точку. 


САЦ, 5ТАСК. Делает активным окно программного стека. В этом окне отображаются все 
вызовы процедур и функций. Внизу стека находится РКОСКАМ, т.е. имя Вашей программы, в 
вершине стека — текущая процедура (функция). Каждое новое обращение к процедуре 
(функции) отображается в этом окне в виде имени подпрограммы и списка параметров вь.зо — 
ва. Эта опция вызывается из редактора командой СИ-Е3. 


КЕС]15ТЕК. Делает активным окно регистров. В этом окне отображается текущее состояние 
всех регистров микропроцессора ПК. 


УГАТСН. Делает активным окно отладки. 
ООТРОТ. Делает активным окно программы. 


О5ЕК 5СКЕЕМ. Делает активным окно программы и распахивает его на весь экран. Вы- 
зывается из редактора команлой АП-Р5. 


ЕУАГОАТЕ/МОРГЕУ. Эта опция дает возможность в процессе отладки просмотреть со- 
держимое любой переменной или найти значение любого выражения. При необходимости 
можно с ее помощью установить новое значение любой переменной. При обращении к ней на 
экране разворачивается диалоговое окно, содержащее три поля: ЕХРКЕ$$1ОМ (выражение), 
КЕЗОГТ (результат) и МЕУ’ УАГОЕ (новое значение) (рис.П1.7). 
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Рис.11.7. Диалоговое окно опции Рерид/Еуаище/ Моацйу 


В первом поле следует ввести имя любой переменной или некоторое выражение. Сразу 
после того, как Вы нажмете Ещшег, в поле КЕЗОГТ появится соответствующее значение или 
сообщение Опкпомп 1аепЕ1ЁЕ1ег (неопределенный идентификатор), если такая переменная 
не определена в Вашей программе. К. моменту вызова опции программа должна находиться в 
режиме отладки, в противном случае это сообщение будет даваться для любых переменных и 
выражений с их участием. 

Если Вы запросили значение переменной, Вы можете перевести курсор в нижнее поле 
МЕУМ/ УАГОЕ и установить новое значение переменной — это значение будет немедленно 
передано в программу. 

При обращении к опции среда анализирует ближайшее окружение курсора в активном 
окне редактора и, если это возможно, выделяет идентификатор или константу, на которую 
указывает курсор. Выделенное автоматически переносится в поле ЕХРКЕ$51ОМ и предлагается 
в виде вычисляемого выражения. Таким образом, если перед вызовом этой опции установить 
курсор на интересующий Вас идентификатор, останется лишь нажать на Ег(ег, чтобы тут же 
получить его значение в поле КЕЗОГТ. Если предлагаемый идентификатор Вас не устраивает, 
можно его отредактировать или ввести новый. Для ввода нового нажмите на любую алфа— 
витно — цифровую клавишу, и предлагаемый в окне идентификатор исчезнет, заменившись 
вновь введенным символом. Для перехода к редактированию предлагаемого идентификатора 
следует сразу же после появления окна нажать Ноте или Епа, затем перевести курсор к 
нужному месту идентификатора и отредактировать его с использованием клавиш 11$, Пе] и 
ВасК5расе. Наконец, если сразу после вызова опции нажать Епа, а затем — клавишу перевода 
курсора вправо, появившийся в поле ЕХРКЕ$ОМ идентификатор дополнится символом, 
расположенным справа от него в тексте программы. Теперь при каждом нажатии на клавишу 
перевода курсора вправо очередной символ из текста программы будет копироваться в поле 
ЕХРЕЕ$$1ОМ. Описанная возможность существенно облегчает ввод длинных выражений и 
составных идентификаторов. 

Вы можете ввести (и вычислить) выражения с участием констант и переменных из Вашей 
программы, а также некоторых стандартных функций. Выражения составляются по правилам 
формирования выражений Турбо Паскаля, причем тип выражения может быть любым стан- 
дартным или определенным в программе типом. Фактически единственным ограничением на 
выражения является то, что в них нельзя использовать вызовы нестандартных функций 
(можно использовать только следующие предварительно определенные функции и константы: 
АВ$, АРОК, СНВ, О5ЕС, НТ ТОКЕЗОГТ, ГЕМСТН, ГО, МАХАУАП, МЕМАУТАП, ОШО, ОЕ$, ОЕ, 
РВЕР, РТВ, КОИМ, 5ЕС, 51СЕОЕ, $РТК, 5$ЕС, $0СС, 5\М/ГАР, ТКОМС, а также массивы ЛМЕМ, 
МЕМИУ/ и МЕМГ). 

Формат выводимого в поле КЕЗОЕТ результата по умолчанию совпадает со стандартным 
для Турбо Паскаля, но Вы можете управлять этим форматом с помощью специальных ключей. 
Ключ помещается в конце выражения (переменной) и отделяется от него запятой. Например, 
запрос 


Мешт [$40:0],Н 


выдаст содержимое четырех байт оперативной памяти в щестнадцатеричном формате. 
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Допускаются следующие ключи: 

С — формат СНАК (символьный); 

5 — формат 5ТЕМС (строковый); 

р — формат целых десятичных чисел; 

$, Нили Х — шестнадцатеричный формат; 


Еп — формат ВЕАГ (вещественный); число п определяет количество значащих цифр в 
выводимом результате; 

М -— формат копии памяти: выводится содержимое переменной побайтно, начиная с 
младшего байта, в шестнадцатеричном формате; если ключ указан для выражения, он игно— 
рируется; 

Р — формат РОГУТЕЕК (указатель); результат выводится в виде РТК($ЕС,ОЁР5)}, например, 
РНЫ($3ЗЕА1,$20}; 


К — формат КЕСОРР (запись); выводится в круглых скобках список полей с указанием их 
значений, например: (Х:1;У:10;2:5). 

Перед ключем формата можно указать целое число, которое трактуется как коэффициент 
повторения. Если, например, в поле ЕХРКЕ$$1ОМ содержится 


Озех11$ [0], 45 


то в качестве результата будет выдано в формате целых десятичных чисел значение четырех 
последовательных элементов массива Иег[15 начиная с элемента 0, т.е. Озег[ 150], Изе[4$Н1] 
и тд. Коэффициент повторения относится только к переменным (по отношению к выраже-— 
ниям он игнорируется) и его можно указывать без ключа формата. Если, например, 


уаг 
Ч5ег11$е : агкау [0..20] о 1п6едег; 


то обращения 


ОзехТ138[0],4р 
0зех:т138[0],4 


дадут идентичные результаты. 
Выражения в поле ЕХРКЕЗ$ ОМ можно задавать многократно, можно использовать также 
ранее введенные выражения из протокола опции. Для выхода из диалога используйте клавишу 


Езс или поля Сапсе] и [8] — при работе с мышью. Опцию можно вызвать непосредственно 
из редактора командой СШ-Е4. Отметим, что эта опция может использоваться как встроенный 
в Турбо Паскаль калькулятор. 


АРО УАТСН. С помощью этой опции можно указать отладчику те переменные и/или 
выражения, за изменением значений которых Вы хотели бы наблюдать при отладке про— 
траммы. Указанные переменные и выражения вместе с их текущими. значениями булут по— 
стоянно содержаться в окне наблюдения, доступ к которому возможен с помощью клавиши 
[6. Если Вы сделаете активным это окно, Вы сможете перемещаться в нем, вызывая при не-— 
обходимости «прокрутку» его содержимого. Таким образом можно наблюдать за прсиз— 
вольным количеством переменных и выражений. 

Опцию можно вызвать непосредственно из редактора командой СШ-Е?. При этом сгра-— 
ъедлливо все сказанное выше относительно вызова опции РЕВИС/ЕУАГОАТЕ/МОГТЕУ, т.е. 
выделение идентификатора, его редактирование и дополнение, использование коэффициента 
повторения и ключей формата. Сразу после добавления отслеживаемого выражения акти— 
визируется окно наблюдения. 


АРО ВКЕАКРОГМУТ. С помощью этой опции меню РЕВОСЯ Вы можете установить в текущей 
строке контрольную точку. Текущая строка — это строка с курсором в окне редактора. Если 
для нее установлена контрольная точка, строка выделяется цветом (яркостью). В программе 
можно установить произвольное количество контрольных точек. После запуска программы с 
установленными контрольными точками (точкой) отладчик прекратит исполнение программы 
перед выполнением того оператора, который содержится в первой (по логике работы про— 
траммы) контрольной точке. При этом на экране появится окно редактора с контрольной 
точкой и среда перейдет к режиму отладки программы. Если контрольная точка задана для 
строки, не содержащей исполняемого оператора (например, для строки со словом ВЕС), 
программа остановится перед первым после этой строки исполняемым оператором. Останов в 
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контрольной точке можно сделать условным. Оллажлы установленная контрольная точка 
действует на каждое очередное обрашение к соот:ст:71... ющей строке программы. 

В диалоговом окне опции поле Соп Шоп задает условие останова. Это может быть про — 
извольное логическое выражение с использованием любых переменных, констант, вызовов 
функций. Если к моменту исполнения оператора с контрольной точкой это выражение имеет 
значение ТКОЕЁ, произойдет останов прогона и среда перейдет к режиму отладки. Поле Ра$$ 
сошф указывает количество обращений к оператору с контрольной точкой, после которого 
произойдет останов. 

С помощью команды С]-ЁЕ8 контрольную точку можно установить/снять непосредст- 
венно из режима редактирования. 


П1.2.8. Меню опции ТООТ$ 


МЕЗЗАСЕ5. Активизирует окно сообщений. Окно сообщений содержит вывод инстру-— 
ментальных программ типа СКЕР и позволяет использовать эти сообщения для поиска нужных. 
фрагментов в текстах программ. Для поиска фрагмента подведите цветной указатель окна 
Ме5задез к нужному сообщению и нажмите Пробел или дважды щелкните по этому сооб- 
щению мышью. Среда отыщет и покажет файл с нужным фрагментом текста программы. 


СО ТО МЕХТ. Ищет фрагмент, заданный следующим сообщением в окне Ме$5адез. За- 
крывает окно Ме5задез, открывает нужный файл и позиционирует курсор на строку, соот- 
ветствующую следующему по отношению к текущему (т.е. выделенному цветом) сообщению в 
окне. Опция вызывается непосредственно из окна редактора клавишами А{-—РЁ8. 


СО ТО РКЕУ1ОЦЬ5. Ищет фрагмент, заданный предыдущим сообщением в окне Мезадез. 
Опция вызывается непосредственно из окна редактора клавишами АЙ-Р7. 


СКЕР. Инициирует работу утилиты САЁЕР. В строке Епеег ргодгаш агдитепез диало- 
гового окна опции необходимо перечислить аргументы вызова СКЕР: имена процедур, 
функций, переменных, которые необходимо отыскать в текстовых файлах, а также имена этих 
файлов. По умолчанию параметром вызова СКЕР указывается *.РА$, что означает поиск по 
всем РА5 — файлам текущего каталога. Если к моменту вызова опции текстовый курсор стоял 
на некотором имени процедуры, функции или переменной, это имя появится в качестве ар— 
гумента вызова перед *.РАЗ. После нажатия Ешег СКЕР начнет поиск имени во всех файлах. В 
окне Меззазез появятся сообщения СКЁЕР с указанием имени файла, номера строки и фрагмента текста 
программы, где было найдено нужное имя. Опция вызывается непосредственно из окна редактора 
клавишами 5АШ-Е2. 


1.2.9. Меню опции ОРТОМЪ$ 


СОМРШЕК. Эта опция задает несколько параметров, с помощью которых Вы можете 
управлять генерацией машинного кода программы. Вид диалогового окна этой опции показан 
на рис.111.8. 

Опция Рогсе юг саЙ$ определяет генерацию машинного кода, рассчитанного на дальнюю 
модель памяти. В соответствии с архитектурой центрального процессора ПК могут исполь- 
эзоваться две модели вызова процедур и функций: ближняя (МЕАЖ) и дальняя (ЕАК). Ближняя 
модель обеспечивает адресацию в пределах текущего сегмента, дальняя используется для 
организации межсегментных связей. Если опция установлена в активное состояние, все вы-— 
зовы процедур и функций будут использовать дальнюю (межсегментную) модель, в протизном 
случае — ближнюю (внутрисегментную) модель. Ближняя модель дает более экономный код 
программы и исполняется быстрее, однако при организации оверлея и вызове из программы 
других программ с помощью процедуры ЕХЕС нужно использовать дальнюю модель. 

При активном состоянии опции Оуейау$ аПомжеЯ компилятор генерирует дополнительный 
код при компиляции оверлейных модулей. Этот код позволяет передавать строки и множества 
в качестве фактических параметров при обращении из одного оверлейного модуля в другой. 
Отметим, что Турбо Паскаль считает модуль оверлейным только в том случае, когда он от- 
компилирован с активной опцией ОуейЙау$ аПожеа. 
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Опция И/ога а1дп ааю определяет способ выравнивания переменных и констант в памяти: 
если опция активна, каждая переменная и константа начинается в байте с четным адресом, 
т.е. выравнивается на начало машинного слова, если неактивна, переменные и константы 
располагаются в памяти сплошной цепочкой. Выравнивание по словам увеличивает скорость 
выполнения программ ценой несколько неэкономного расходования памяти. 

Активное состояние опции 286 1ш5КисНоп$ предписывает компилятору создавать код 
программы с полным набором команд микропроцессора шие] 80286. В неактивном состоянии 
опции компилятор порождает код, соответствующий набору команд микропроцессора [ие] 
8088 и представляющий собой подмножество команд микропроцессора Пие! 80286. В целях 
переносимости программ имеет смысл устанавливать неактивное состояние этой опции, так 
как в процессе счета программа не проверяет фактическое наличие микропроцессора Пие] 
80286 и не может эмулировать его систему команд. 


[8] Сопр1|ег Ор 10п3 


Соде депега*1от 
[ ] Гогсе Гаг са1 1$ _[ ] МОЕА а|119ип Дафа. 
[ ] Очег|ачз а очеа [ХХ] 286 ттзфгис топе. 


Вип 1ме еггогз Зуптах 0101$ 
[Хх] Напде слеск1т9 | [ ] 5ёг1СЕЁ чаг-8г1198 — 
[1] Зфаск. снеск1тв _ | [ 1] Сомр1ефе Ъоо]еап еца1 
[ХХ] 1/0 спеск1тд . В [ ] Ехфепае зои%ах 


[Хх] 8087/8828? [%] Пери 1пГогма& Топ 
[1 Емца 10 [Х] Госа1. зчмЪо 1$ 


Рис.111.8. Диалоговое окно опции ОрНоп$/Сотриег 


В активном состоянии опции Капде снес тд генерируется дополнительный код для про-— 
верки возможного выхода значений переменных за границы диапазона. Программа, откэм — 
пилированная с активной опцией, занимает несколько больший объем памяти и исполняется 
медленнее, зато дает возможность контролировать выход индексов за пределы, определенные 
в описании массивов. 

Опция ЗЧ асК сНесКтд аналогична опции Капде спесЮптд и контролирует возможное пере- 
полнение программного стека. 

Опция МО српесКтд используется для включения/отключения генерации программных 
кодов, контролирующих правильность операций ввода — вывода. 

Установка в неактивное состояние опции $Н1сЁ уаг-—5Н1п9$ позволяет отказаться от про— 
верки на совпадение длины формального и фактического параметра — строки при обращгнии 
к процедуре или функции. Если установлено активное состояние этой опции, компилятор 
вставляет в программу команды для сравнения длины строк. 

В активном состоянии опции Сотр]ее Бобфеап еуа! все логические выражения вычис-— 
ляются в программе полностью, в неактивном состоянии вычисление прекращается в тот 
момент, когда становится ясен окончательный результат. Допустим имеется такой фрагмент 
программы: 


РипсЕтоп МуГипс (чак х :; 1п6едег) : Воо1еап 
Ьед1п 
х := х+1; 
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Мугипс := х>10 
ела; 
х :=0; 
1Е Га1зе апа МуЕипс(х) &Вев х ;= 10; 


После его компиляции с неактивной опцией Сотрее Бофеап еуа]! исполнение этого 
фрагмента даст Х=0, так как не произойдет обращения к функции МУРИМС: выражение 
ГАЗЕ АМО МУЕОМС всегда имеет значение ЕРЕАГ5Е вне зависимости от того, что является 
вторым операндом операции АМО. Если же к моменту компиляции программы было уста-— 
новлено активное состояние этой опции, вычисление логического выражения продолжится до 
конца, состоится вызов функции МУРОМС и переменная Х получит значение 1. Разумеется, и 
в том и в другом случае не будет исполняться оператор х : = 10. 

Активное состояние опции Ех{епаей зупах дает возможность использовать в программе 
расширенный синтаксис Турбо Паскаля, который разрешает вызывать определенные про-— 
граммистом функции не только в выражениях, но и в виде отдельного оператора, подобно 
вызову процедуры. Отметим, что эта опция не распространяется на стандартные функции. 

Опция 8087/80287 ориентирует компилятор на работу с арифметическим сопроцессором. 
При неактивном состоянии все операции с вещественными данными реализуются программно 
и в программе разрешается использовать только один вещественный тип КЕАГ. Если опция 
установлена в активное состояние, компилятор будет создавать код, содержащий обращения к 
числовому сопроцессору, причем программе становятся доступны также типы $ИМОГЕ, 
РООВЕЕ, ЕХТЕМОЕР и СОМР (см. гл.4). | 

Опция ЕтшаНоп указывает компилятору, надо ли создавать такой код программы, который 
будет одинаково пригоден при работе на ПК с арифметическим сопроцессором или без него. 
Программа сама определит наличие сопроцессора и, если он имеется, будет использовать все 
его возможности; если же сопроцессора нет, его работа будет эмулироваться программно. В 
этом случае программе становятся доступны все вещественные типы. Активное состояние 
этой опции увеличивает размеры программы за счет подключения процедур эмуляции, но 
делает ее независящей от аппаратных особенностей ПК. Отметим, что опция ЕтшаНоп иг- 
норируется, если неактивна опция 8087/80287. 

Активное состояние опции РеБид и{огтаНоп устанавливает режим генерации отладочной 
информации в процессе компиляции программы. Отладочная информация представляет собой 
специальные таблицы, позволяющие установить однозначную связь между операторами ис-— 
ходного текста программы и теми кодами, которые порождает компилятор. Только после 
компиляции с активной опцией ПеБид штЮппаНоп становится возможной автоматическая 
локализация ошибки периода исполнения, а также пошаговая отладка программы. Активное 
состояние опции увеличивает размер ТРИ-— файлов и объем оперативной памяти, занимагмой 
программой, если она работает под управлением среды Турбо Паскаля, но не влияет на размер 
той же программы, запускаемой вне среды под управлением ДОС. Иными словами, догол— 
нительные таблицы отладки загружаются в память только средой Турбо Паскаля, а ДОС иг- 
норирует эту информацию. 

Опция [оса] зутро[5 аналогична опции Рефид июогтайоп и относится к именам локал»ных 
и глобальных переменных: если опция установлена в активное состояние, среда получит 
возможность доступа на этапе отладки к переменным по их именам. 

В поле Сопа!Шопа! аейпез Вы можете задать условия, которые используются в операторах 
условной компиляции (см. дальше п.П1.3). 


МЕМОКНУ 5$12Е5. В диалоговом окне опции ОРТ1ОМ$/МЕМОКУ $517Е$ используются три поля. 
ввода. С их помощью можно регулировать размеры памяти, которую занимает работавощая 
программа: 

ЗасК я2е — размер программного стека; по умолчанию 16384 байта, максимум — 65535 
байт; 

Гом Неар Пт — минимальный размер кучи; по умолчанию 0; 

НН Веар Пт — максимальный размер кучи; по умолчанию 655360 байт; этот параметр не 
может быть меньше параметра Гом Леар Пти. 

Для оценки необходимых программе объемов памяти следует учесть, что все локальные 
переменные при каждом обращении к процедуре (функции} размещаются в стеке, а при 
выходе из нее стек освобождается. Таким образом, требуемый размер стека определяется 
количеством вложенных вызовов процедур (функций) и суммарным количеством их ло- 
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кальных переменных. Величина кучи определяется реальными потребностями программы в 
динамической памяти. Если установлен максимально возможный размер кучи 655360 байт, то 
такая программа после загрузки займет всю доступную оперативную память, а это исключит 
возможность запуска из нее других программ. 


МКЕК. В диалоговом окне этой опции имеются две группы переключаемых опций, с 
помощью которых регулируется режим работы компоновщика Турбо Паскаля: опции группы 
Мар Ше управляют выходным документом компоновщика, опции группы ШМлЁ Бийег -— ис- 
пользованием памяти. Выходной документ компоновщика (карта распределения памяти) 
бывает полезен при отладке программы с помощью внешнего отладчика. Опция ОЙ запрещает 
формирование карты. Опция 5едтеп!5 формирует сегментную карту с указанием адреса за-— 
пуска программы и сообщениями об ошибках периода компоновки программы. Опция Рис 
дает такую же карту, как и опция 5едтеп!, и дополнительно приводит список внешних 
символов в алфавитном порядке. Наконец, опция Реюйеа дает полную карту распределения 
памяти. Опция Метогу предписывает компоновщику использовать оперативную память для 
размещения своих таблиц и временного хранения компонуемой программы, при активной 
опции Р15К компоновщик для этих целей использует пространство диска. Если активна опция 
Метогу, компоновщик будет работать значительно быстрее, однако при разработке крупных 
программ ему может не хватить оперативной памяти и он не скомпонует программу. 

Вообще, следует помнить о том, что даже довольно большой объем оперативной памяти 
ПК (640 Кбайт) может оказаться недостаточным для разработки с помощью среды Турбо 
Паскаля крупных программных проектов: ведь сам Турбо Паскаль занимает в памяти 304 
Кбайт. Если обнаружена нехватка памяти, среда дает сообщение 


ОцЕ оЕЁ метогу 
(не хватает памяти) 


и устанавливает курсор в конец программы. В этом случае следует прежде всего попытаться 
сэкономить память за счет установки в активное состояние опции Р15К1. Еще примерно 44 
Кбайта памяти можно сэкономить за счет отказа от автоматической загрузки системной 
библиотеки ТОКВО.ТЫ (см. ниже опцию ОРТОМ5/ЕМУЖОММЕМТ/5ТАКТОР). Наконец, может 
оказаться необходимым отказ от услуг самой среды Турбо Паскаля на этапе прогона про-— 
граммы. Для этого нужно установить опцию СОМРШЕ/РЕ$ТИМАТОМ в состояние ПК, 
создать программу с помощью опций МАКЕЁ или ВИП, выйти из среды и запустить про-— 
грамму. В этом случае программа получает в свое распоряжение всю память ПК, но Вы 
лишаетесь возможности отлаживать ее средствами встроенного отладчика. В некоторых слу— 
чаях за счет оверлейной структуры программы (см. гл. 11) ее размеры удается уменьшить 
настолько, что даже крупная программа помещается в памяти вместе со средой. Если, не-- 
смотря на все меры экономии, памяти все-таки не хватает, можно полностью отказаться от 
услуг среды и использовать автономный компилятор — компоновщик ТРС.ЕХЕ. 

РЕВОССЕЕ. Эта опция определяет ‘используемый отладчик и режим обновления экрана 
дисплея в процессё отладки. Если активна опция Ниедгйе4, к программе будет добаелена 
информация, необходимая для работы встроенного отладчика. Только в этом состоянии опции 
можно использовать контрольные точки и пошаговую отладку. При активизации олции 
«Напааопе к ЕХЕ-— файлу программы будут добавлены ‘соответствующие таблицы, кот.эрые 
позволят вести отладку программы ‘вне среды Турбо Паскаля с помощью внешнего отлалчика 
7р.ЕХЕ. Три других опции сообщают среде, в каких случаях следует переключать экран с 
воспроизведения окна редактора на окно программы. В режиме бтагЁ среда будет пере— 
влючать экран по мере надобности — только если в очередном операторе программы было 
обращение к экрану для вывода или к клавиатуре для ввода. Переключение на окно про— 
граммы будет также и тогда, когда отладчик «перескакивает» через вызов процедуры 
(функции) по клавише ЕВ, но в этой процедуре (функции) есть обращение к экрану. Если 
установлен режим А№ау$, переключение будет происходить перед исполнением любого 
оператора программы. Наконец, в режиме №пе среда никогда не переключает экран, даже 


1 Турбо Паскаль 7.0 включен в комплект поставки более мощной системы программиро -— 
вания ВоПап@ Разса] м обес{з 7.0. Входящая в эту систему среда программирования ВР 
использует расширенную память для размещения ‘таблиц компилятора и компоновщика. В то 
же время язык Турбо Паскаля представляет собой подмножество языка ВР, что дает воз — 
можность компилировать программы Турбо Паскаля без какой-либо их переделки в среде 
ВР. Используйте, если это возможно, среду ВР для разработки крупных программ. 
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если он требуется для вывода данных, т.е. вывод программы будет накладываться на текст 
программы. Испорченный в результате такого прогона текст в окне редактора можно обно— 
вить с помощью опции ИЛпаои/ Ке!езВ а15р1ду. 


ОБКЕСТОЕ!ЕЗ. Четыре поля ввода в диалоговом окне опции ОРТ1ОМ$ /РЩЕСТОЕ!Е$ по- 
зволяют определить четыре группы функциональных каталогов Турбо Паскаля. 

ЕХЕ & ТРИ Аесюпе$ указывает тот каталог, в который будут помещаться готовые к работе 
программы в виде ЕХЕ- файлов и результат компиляции модулей в виде ТРИ- файлов. Если 
каталог не указан, эти файлы будут помещаться в текущий каталог — именно такое состояние 
этой опции соответствует стандартной настройке среды. Не рекомендуется устанавливать в 
этой опции каталог, содержащий файлы системы Турбо Паскаль. 

шсшае апесюпез — здесь следует перечислить те каталоги, в которых Турбо Паскаль 
будет искать включаемые файлы, т.е. файлы, задаваемые директивой компилятору {$Г <имя 
файла>}. При указании нескольких каталогов, они перечисляются через точку с запятой. 
Отметим, что поиск в этих каталогах идет только в том случае, если включаемый файл не 
найден в текущем каталоге. 

Оп апесопез — задает каталоги, в которых среда ищет ТРИ- файлы, если они не об- 
наружены в текущем каталоге. В этой опции обычно указывается каталог, содержащий файл 
СКАРН.ТРИ (если в программе используются графические средства Турбо Паскаля), а также 
каталог, указанный в поле ЕХЕ & ТРИ апесюпез$. При перечислении нескольких каталогов они 
разделяются точкой с запятой. 

Если в своей программе Вы используете внешние процедуры и функции (см. гл. 11), они 
должны быть представлены в виде ОВ/- файлов. Поле ОБесЕ Атесюпез$ задает один или не- 
сколько каталогов, в которых Турбо Паскаль‘булет искать эти файлы, если их нет в текущем 
каталоге. 


ЕМУШКОММЕМТ. При вызове этой опции разворачивается еще одно дополнительное меню, 
содержащее пять опций. Эти опции описываются ниже. 
ЕМУЖОММЕМТ/РгеЕгепсе$. Диалоговое окно этой опции показано на рис.П1.9. 


[1] РгеГгегепсез 


зоигсе Тгаск1п9 
(,) Мен и1таоч _ 
С) СиггетЕ 17404 


Зсгееп $31263 
(+) 2511165 


(*) 43/58 11тез 


Нифо 5аце Зезкфор #11е 
[Хх] Еаог #1123  — С) Мое = 
[Хх] Ел гоптейе — — (+) СиггепЕ 41гесфогу 

[Хх]. ВезКфор _ С) СопЁ19 Ре а1гесвогч 


Рис.111.9. Диалоговое окно опции ОрНоп$/Епупоптетн/ Ргеегепсе$ 


Опции группы 5сгееп $#е5 определяют размер текстового экрана: если активна опцря 25 
пез, на экране будет 25 строк, если активна опция 43/50 Ппез, на экране будет 43 или 50 
строк в зависимости от того, оснащен ли Ваш ПК дисплеем с адаптером ЕСА или УСА. Олции 
Зоигсе гасктд определяют способ использования текущего окна редактора в процессе отлад — 
ки. Если активна опция № т иштао\м, прослеживаемая программа будет загружаться в новое 
окно редактора (если, разумеется, она еще не загружена в одно из ранее открытых окон), если 
активна опция Сиггеп! мтао\, — в текущее окно. 

Группа опций Аию зауе регулирует запись на диск текущей программы и информации о 
ней. Опция Еайог Ве; предписывает автоматически сохранять на диске содержимое всех окон 
редактора перед прогоном программы, если только текст в окне изменялся после последней 
записи на диск. Чрезвычайно полезная опция, которую я настоятельно рекомендую всегда 
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устанавливать в активное состояние — автосохранение измененного текста программы из-— 
бавит Вас от многих неприятностей при работе с плохо отлаженной программой или на ПК с 
ненадежной (сбойной) памятью. Разумеется, дополнительное обращение к диску затягивает 
переход к прогону/отладке, однако Вы по достоинству оцените эту услугу среды после 
первого же «зависания» программы. Опция Епуйоптеп{ задает режим автоматического со— 
хранения текущей настройки среды Турбо Паскаля в файле конфигурации ТОКВО.ТР. На- 
стройка среды будет сохранена автоматически при временном или окончательном выходе из 
Турбо Паскаля, если она изменилась с момента последней записи в этот файл. Активное 
состояние опции ПезКюр требует от среды автоматически сохранять на диске в файле 
ТОЕКВО.О$К информацию об открытых окнах, их размерах, контрольных точках и т.п. Ис- 
пользование этой опции позволит при очередной загрузке Турбо Паскаля автоматически 
получить точную копию того состояния среды, в котором Вы покинули ее в последний раз. 
Следует учесть, что опция РезК1юор игнорируется, если не был создан конфигурационный файл 
ТОКВО.ТР. 

Группа опций РезКюр Ше уточняет режим создания файла ТОЕВО.О5К: если выбрана 
опция М№ ле, файл не будет создаваться, даже если опция ДезКор активна; опция СигегЕ 
агес{огу определяет размещение этого файла в текущем каталоге, а опция Сопйд Ше апесюгу 
— в том же каталоге, где размещается конфигурационный файл ТОКВО. ТР. 

ЕМУКОММЕМТ/ЕаЙог. Диалоговое окно этой опции показано на рис.111.10. 
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Рис.[11.10. Диалоговое окно опции ОрНоп$/ЕпугоптепИ Е4 йог 


Активное состояние опции Стеае Баскир Ше$ заставит среду при записи файла с текстом 
программы проверить. существует ли уже одноименный файл; если существует, он будет 
переименован в файл с тем же именем и расширением .ВАК, что позволит иметь на лиске 
предыдущую версию только что сохраненной информации. Опция ш5зей тоае указывает на 
основной режим работы редактора: если она активна, редактор работает в режиме вставки, 
неактивна — в режиме замены. Опция определяет лишь начальный режим работы сразу после 
загрузки Турбо Паскаля, так как в процессе работы с редактором Вы всегда можете пере- 
ключить режим клавишей [$. Активизация опции Аиютаеп! тоае облегчит Вам выделение 
отступами условных и составных операторов, так как в этом случае каждая новая строка будет 
начинаться с таким же отступом от левого края экрана, что и предыдущая строка. Опция И$е 
1а6 спагасег$ определяет использование символов табуляции: если она активна, нажатие на 
клавишу табуляции вставит в текст специальный символ табуляции, если неактивна, в текст 
будет вставлено нужное число пробелов. Дополнительно к этому активная опция ОрИта] ВП 
заставит редактор вставлять минимально возможное число символов табуляции и пробелов 
при нестандартной длине табуляционного интервала (не 8 символов). Активная опция 
ВасКзрасе ишлаеп$ связывает с клавишей ВасКзрасе функции уничтожения предылущего 
символа с учетом автоотступа: если слева от курсора нет ни одного значащего символа, 
нажатие на ВасК5расе сдвинет курсор к позиции предыдущего автоотступа. Обычно эта опция 
устанавливается в активное состояние одновременно с опцией Ашотает тоае. Опция Сиг$ог 
{Пгоидй 1а5$ определяет перемещение курсора по строке при нажатии клавиши смещения 
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курсора влево или вправо: если она активна, курсор смещается скачком всякий раз, когда в 
строке встречается символ табуляции; при неактивной опции он всегла смещается только на 
одну позицию. В поле ТаБ $12е Вы можете задать длину табуляционного интервала. 
ЕМУКОММЕМТ/Моицее. 
Группа опций ЕН! тоизе БиНоп определяет способ использования правой кнопки мыши в 
сочетании с нажатой и удерживаемой клавишей СЫ: 


_ Функция правой кнопки 


Эквивалент действию опции Нер/Тор!с зеагсь 
Эквивалент действию опции Кип/Со 1ю сигзог 
Включает/отключает контрольную точ 
квивалент действию опции РеБид/Еуала!е 


Эквивалент действию опции РеБид/АЯ4 \ма{сВез 


Например, если активной сделана опция Со ю сигзог, то при работе с мышью нажатие на 
ее правую кнопку при нажатой и удерживаемой клавиши СЫ] будет эквивалентно вызову 
опции Кип/Со {ю сигзог или нажатию на клавишу Е4. | 

При обращении к справочной службе в тексте могут встретиться ссылки на други 
разделы справочных сообщений. Эти ссылки выделяются в справочном сообщении цветом (в 
стандартной настройке это — яркий желтый цвет). Соответствующие справки можно вызвать 
с помощью мыши: нужно установить указатель на ссылку и дважды подряд с небольшим 
промежутком времени (доли секунды) нажать левую кнопку легкими отрывистыми ударами. 
Этот прием требует определенной сноровки, так как слишком большая пауза между нажа-— 
тиями воспринимается средой как два нажатия на левую кнопку, а не как команда вызова 
соответствующей справки. Поле Моизе аоцЫШе ‘сШск в диалоговом окне опции 
Епуйоптей/ Моизе используется для регулирования промежутка времени, в течение которого 
два нажатия воспринимаются как одна команда: для увеличения интервала установите ука— 
затель мыши ближе к правой границе поля и нажмите левую кнопку. _ 

Переключаемая опция Кеуегзе тоизе БиНоп$ используется для реверсирования функции 
кнопок мыши: при ее активизации нажатие на левую кнопку воспринимается средой как 
нажатие на правую кнопку и наоборот. Эта опция может быть полезна в том случае, если Вам 
удобнее работать с мышью левой рукой. 

ЕМУКОММЕМТ/ $ апур. На рис.П1.11 показан вид диалогового окна этой опции. 

С помощью опции Риа! топйог зиррог! можно сообщить среде, что Ваш ПК оснащен двумя 
дисплеями. После активизации этой опции на дополнительный дисплей будет выводиться окно 
прогона программы. 

Опция Сгар|с$ $сгееп 5ауе обеспечивает сохранение в оперативной памяти ПК копии 
трафического экрана. Эту опцию следует активизировать если Вы разрабатываете (и отла— 
живаете в среде Турбо Паскаля) программу, использующую графические средства ПК. При 
=ктивизации этой опции Вы всегда сможете увидеть в окне прогона программы те графиче — 
ские изображения, которые она формирует. 

Опция ЕСА/УСА раейе $ауе позволяет сохранить в оперативной памяти цветовую палитру 
<крана, поэтому изменения этой палитры в отлаживаемой программе не будут влиять нё вил 
окон среды Турбо Паскаль. 

Отметим, что обе предыдущие опции используют часть оперативной памяти для сохра— 
нения графического экрана и цветовой палитры, поэтому их следует отключать, если Заша 
программа критична к объему доступной памяти и/или не использует графические средства 
ПК и не меняет цветовую палитру. 

Опция ССА 5$пом спесктд может быть неактивна, если Ваш ПК оснащен адаптерами типа 
ЕСА или УСА. Но если в нем используется адаптер типа ССА, неактивное состояние этой 
опции будет создавать помехи на экране в виде «снега» при смене на нем изображения 
(активное состояние этой опции несколько замедляет темп обновления информации на экра— 
не, но зато гарантирует отсутствие «снега» на дисплеях любого типа). 
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ПЕ И ЕТ М1 пом Веар 512е №7 
БгарН1с$ зсгееп 5ауе. 
ЕСЯХУСЯ ра1е{{е заче. МХ: ЕН 


_ ОбА: зпом свеск119 - 
ВИН 3 ИИ — Очег]ачу Неар 312е МЕР 

] ЧУзе ехрапёей пемогу 

.Гоаа ТИУВВО. ТРТ, 


Змар Г11е А1гесфогу — Оооо 
[к | Не __ 


Рис.11.11. Диалоговое окно опции ОрНоп$/Епуготеи/И $!апир 


Опцию ЁГСР со]ог 5еЁ следует активизировать только в том случае, когла ПК оснащен 
жидкокристаллическим дисплеем (обычно такие дисплеи устанавливаются на переносимых 
ИК). 

На машинах класса 1ВМ РС/ХТ может устанавливаться отображаемая память типа ЕМ$ (на 
современных ПК с процессорами 80386 и выше эта память может эмулироваться). Активи-— 
зация опции Изе ехрапае тетогу укажет среле на возможность использования этой памяти 
для размещения оверлейных модулей, сохранения копий графического экрана и некоторых 
других функций (см. ниже). 

При стандартной настройке среды сразу после загрузки Турбо Паскаля в оперативную 
память считывается системная библиотека 5У5ТЕМ.ТРИО из библиотечного файла ТОКВО.ТРГ. 
Вы можете отказаться от этого (и таким образом сэкономить для программы около 44 Кбайт), 
если сделаете неактивной опцию Гоаа ТОЕВО.ТРГ. Следует учесть, что в этом случае сис-— 
темная библиотека должна быть выделена в виде отдельного файла 5У$5ТЕМ.ТРИ в каталоге, 
путь к которому указан в поле Ипй Аиесюнез опции ОрНоп$/ Епугоптеп/Ойесюпез$. Из— 
влечение модуля 5У5ТЕМ.ТРИ из библиотеки ТОКВО.ТРЕ осуществляется с помощью утилиты 
ТРОИМОУТЕЕ.ЕХЕ, входящей в комплект поставки системы Турбо Паскаль. Для этого исполь — 
зуется команда ДОС вида: 


ТРОМОУЕВ ТОВБВО.ТРЬ *5У5ТЕМ.ТРО 


(перед именами утилиты, библиотеки и системного модуля можно указывать необходимые 
пути; символ * перед именем системного модуля определяет операцию извлечения модуля). 
Если программа использует другие библиотеки, входящие в ТОЕВО.ТРЕ (СЕТ, 2РО$, РЫМТЕК, 
ОУЕКГАУТ — см. гл.10), их также нужно выделить в отдельные ТРИ - файлы. 

В поле И/таом Пеар $12е задается размер оперативной памяти (в килобайтах), который 
выделяется для хранения неактивных окон среды, в поле ЕЧПог Пеар $12е — для хранения 
содержимого окон редактора, а в поле Оуейау Веар $12е — для хранения оверлейных модулей. 
Если активизирована опция И5е ехрапае тетогу, эта память выделяется из дополнительной 
памяти ПК, если неактивна — из основной. Соответствующей установкой значений в этих 
полях можно регулировать размеры буферной памяти в следующих пределах: 


Минимум Максимум 


Итпаом Реар з12е 24 Кбайт 64 Кбайт 
Еа1еог Веар $12е 28 Кбайт 128 Кбайт 
Оуег1ау пеар $12е 64 Кбайт 256 Кбайт . 


В поле 5ар Ше гесюгу можно указать «быстрый» диск, с которым среда будет произ — 
водить динамический обмен данными (свопинг) в процессе своей работы. В качестве 
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«быстрого» диска обычно указывается виртуальный диск, т.е. участок оперативной памяти, 
который используется подобно механическому диску (виртуальный диск организуется 
средствами ДОС). Если в этом поле ничего не указано, для свопинга используется текущий 
каталог. 

ЕМУКОММЕМТ/Со!0г$. С помощью диалогового окна этой опции Вы можете установить 
нужную цветовую палитру отдельных элементов среды Турбо Паскаля. В колонке @гоир 
указаны следующие элементы среды: 


РезЮор вид экрана; И’акйе$ окно отладки; 
Мепи$ меню; Сай $аск окно стека; 
О1а1од5 диалоговые окна; Кедяег окно регистров; 
ЕайПог окна редактора; Ошрш окно программы; 
Нер окно помощи; Сотрйег окно компилятора. 


В колонке [ет детализируются эти элементы (например, цвет рамки окна, цвет основных 
символов, цвет выделения и Т.п.). В поле Рогедгоипа задается цвет символов, а в поле 
Васкдгоипа — цвет фона. 

ОРТПОМ5/Ореп. Здесь Вы можете указать имя конфигурационного файла, из которого 
среда должна получить информацию о своей настройке. 

ОРПОМ5/5ауе. Сохраняет текущую настройку среды в конфигурационном файле. 

ОРПОМ5/5ауе аз. С помощью этой опции из меню ОрНоп$ можно указать каталог и файл, 
в котором среда будет сохранять свою настройку (по умолчанию это файл ТОВВО.ТР). 


‹П1.2.9. Меню опции УМТМООМ/ 


ТИ.Е. Располагает окна так, чтобы каждое было видно на экране и все они имели бы 
приблизительно одинаковые размеры.. 


СА$САПЕ. Располагает на экране окна редактора таким образом, чтобы были видны рамки 
каждого из них. Используется для организации более удобной работы с помощью мыши. 


СГО5Е АШ.. Закрывает все открытые окна, 


КЕРКЕ$Н ГУ5РГАУ. Удаляет следы вывода программы, работавшей в режиме отладки с 
установленной опцией ОрНоп$/ПеБиддег/ Гл5р1ау змарртд/ Мопе. 


$/2Е/МОТЕ. Эта опция обеспечивает перемещение окна по экрану и/или изменение его 
размеров. Вызывается из редактора командой СШ-Р5. 


2ООМ. Распахивает активное окно на весь экран или возвращает ему прежний вид. Вызов 
из редактора клавишей Р5. 


МЕХТ. Активизирует очередное окно. Вызывается из редактора клавишей Е6. 


РКЕУТОЦ$. Активизирует предыдущее активное окно. Вызывается из редактора командой 
УВШ-Еб. 


СГО$Е. Закрывает активное окно. Вызывается из редактора командой АИ- Е3З. 


И$Т. Выводит на экран список всех открытых окон среды. Вызывается из редактора ко 
манлдой А/-0. 


П1.2.10. Меню опции НЕГР 


СОМТЕМТЬ. Выводит на экран содержание справочной службы. 


ПУРЕХ. Выводит на экран алфавитный список всех ссылок справочной службы. Вызы-— 
вается из редактора командой $НШ-Е1. 


ТОРГ 5ЕАКСН. Осуществляет поиск в окрестности курсора зарезервированного слова или 
имени стандартной процедуры (функции) и дает соответствующую справку. Вызывается из 
редактора командой СИ|-РЕ1. 


РЕЕУОИ$ ТОРГ. Выволит на экран предыдущее справочное сообщение. Вызывается из 
редактора командой АПН-Р1. 
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НЕГР ОМ НЕГР. Дает справку о том, как пользоваться справочной службой. Отметим, что в 
сообщениях справочной службы все перекрестные ссылки выделяются цветом. Вы можете 
подвести к любой из них ‘указатель мыши и двойным нажатием на ее левую кнопку вызвать 
на экран соответствующее справочное сообщение (или сместить к ней указатель с помощью 
клавиш перевода курсора и нажать Еп{ет). 


ЕШ.Е5. С помощью этой опции Вы можете установить нужные файлы справочной службы. 
СОМРШЕК К1ЕСТГУЕ$. Показывает справку о директивах компилятора. 

КЕЗЕКУЕР У’ОКО5. Показывает справку о зарезервированных словах. 

5ТАМРАКРО ОМ!Т$У. Показывает справку о стандартных модулях. 

ТОЕВО РАЗСАГ ГАМСОАСЕ. Показывает справку о языке Турбо Паскаль. 

ЕККОК МЕЗ5ЗАСЕ$. Показывает справку о сообщениях об ошибках. 


АВОСТ. Выводит информацию о авторских правах и версии Турбо Паскаля. 


11.3. ДИРЕКТИВЫ КОМПИЛЯТОРА 


В меню ОРПОМ$/СОМРШЕЕ включены опции, с помощью которых можно управлять 
работой компилятора. В ряде случаев бывает необхсдимо временно отменить действие той или 
иной опции при трансляции некоторого фрагмента программы. Особенно часто, например, 
такая необходимость возникает при обращении к диску: если программа пытается прочитать 
несуществующий файл или записать данные на защищенный диск, возникнет ошибка периода 
исполнения и программа аварийно закончит свою работу. В то же время, если отключить 
опцию МО СНЕСКИМС, этого не произойдет, программа сможет проанализировать последствия 
обращения к диску и предпринять альтернативные действия. 

В Турбо Паскале можно использовать директивы компилятора, которые в виде особым 
образом оформленных комментариев вставляются в текст программы и модифицируют те или 
иные возможности компилятора в процессе компиляции. Директивы могут быть переклю — 
чающими, условными и параметрическими. Переключающие директивы воздействуют на те 
опции, которые включены в диалоговое окно ОРПОМ$5/СОМРИЕК; условные директивы оп-—- 
ределяют условия, при которых компилируются те или иные фрагменты программы; пара-— 
метрические директивы задают параметры, которые должен учитывать компилятор. 

Все директивы оформляются в виде особых комментариев: они обрамляются фигурными 
скобками, а за открывающей скобкой должен без пробелов следовать знак доллара 
(лесятичный код 36). Как только в процессе разбора исходного текста программы компилятор 
встретит такого рода последовательность символов, он воспримет их как директиву и нужным 
образом изменит свою работу. 

Переключающая директива содержит букву, обозначающую опцию, и знак «+» или ‹—». 
Знак «+» означает установку опции в активное состояние, знак «—» — в пассивное состоя — 
ние. Например, директива {$[Г-} означает временное отключение контроля ошибок ввсда— 
вывода, директива {$К+} — включение контроля границ диапазона. В одной директиве можно 
перечислить несколько опций, например: 


{5А+,В-,О+,Е+,Р+,Т+,1+,М№М+,0О-,В+, 5+, У+} 


Следует учесть, что директивы компилятора действуют от момента своего появления в 
тексте до конца текущего модуля, т.е. локализуются в теле модуля, в то время как огции, 
установленные в самой среде, распространяются на все модули и основную программу. В 
случае конфликта между директивами и опциями, предпочтение отдается директивам. Тзким 
образом, правильно расставленные директивы обеспечивают нужную компиляцию программы 
независимо от настройки среды. Они особенно полезны в случае, когла компиляция осу— 
ествляется автономным компилятором ТР.ЕХЕ. 

Некоторые директивы компилятора могут действовать только на часть текста программы, 
такие директивы называются локальными; в отличие от этого глобальные директивы распо— 
лагаются в самом начале текста программы (модуля) и действуют сразу на всю программу 
(модуль) в целом. 

Ниже приводится список всех директив компилятора. В скобках дается действие дирек— 
гивы для знака «—». Знаком * отмечены локальные директивы. 
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{$А+} — выравнивать данные на границу слова (байта); 

{$В+} — вычислять логические выражения полностью (де получения результата]; 

{$0-+} — разрешить (запретить) работу со встроенным отладчиком; 

{3Е+) — включить (отключить) режим программной эмуляции сопроцессора: 

{$Е+} — использовать дальнюю (ближнюю) модель вызова; 

{$а+} — использовать (не использовать) полный набор команд микропроцессора шие] 
80286 (микропроцессора Пие! 8088); 

{$1+}* — включить (отключить) контроль операций ввода — вывода; 

{51+} — включить (не включать} локальные символы в информацию для отладчика; 

{$№+} — использовать числовой сопроцессор (реализовать операции с плавающей точкой 
программно}; 

{$0-+} — разрешить (не разрешать} создание оверлейной структуры: 

{$В+} — включить (отключить) контроль границ диапазона; 

{55+} — включить (отключить) контроль возможного переполнения стека; 

{$У+} — включить (отключить) контроль длины строк при обращении к процедуре или 
функции; | 

{$Х+)} — использовать (не использовать) расширенный синтаксис. 


К условным директивам относятся следующие локальные директивы компилятора: 

{$РЕНШМЕ <условный символ>} — установить условный символ; 

{$ТЕРЕЕ <условный символ>} — проверить установку условного символа; если символ ус — 
тановлен, будет компилироваться вся следующая за директивой часть программы вплоть до 
директив {$ЕГ5Е} или {$ЕМГ/Е) в противном случае этот фрагмент программы будет пропущен 
компилятором; 

_ (ЕМБЕЕ <условный символ>} — проверить установку локального символа; обратна ди-— 
рективе {$1ЕЛРЕЕ}, т.е. действует только в том случае, когда условный символ не установлен; 

{$ЕТЗЕ} — определяет начало альтернативного фрагмента программы; этот фрагмент будет 
компилироваться в том случае, если условный символ, проверенный предылущей по тексту 
программы директивой {$1РЛЕЕЁЕ;} или {$1ЕМРЕЕ) не установлен; альтернативная часть вместе с 
директивой {$ЕЁЗЕ} может опускаться; 

{$ЕМОЕ} — ограничивает область действия директив {$1ЕДРЕЁЕ}, ЛЕМОЕЕ;} или {$ЕГЗЕ}- 

_ Установить условие — это значит с помощью опции ОРПОМ$/СОМРШЕК/СОМРОГПОМАЕ 
РЕЕРИМЕ$ среды Турбо Паскаля или с помощью директивы компилятора {$РЕЕМЕ} ввести 
некоторое слово (условный символ}, которое затем будет управлять компиляцией какого — 
либо фрагмента программы. Если, например, использовать в качестве условного символа слово 
РЕВОС, то можно написать такой фрагмент программы: 


{$ТЕОЕЕГ БеЬид} 
Иг1еетТл ('Отладка: х=!, х); 
{5ЕМОТЕ} 


’еперь, если установлен (задан в среде или введен с помощью директивы {$РЕРИМЕ) ус- 
ловный символ РЕВОС, в программе будет откомпилирован оператор И/КТЕШМ\, если этот 
условный символ не задан, компилятор пропустит этот оператор. 

Отметим, что условные символы никак не связаны с множеством идентификаторов сзмой 
программы и недоступны ей на этапе исполнения. Для предыдущего примера нельзя написать 


МуизЕеГл (Рефоа); 


если, разумеется, в программе не определена переменная или константа с этим именем. 

Одновременно в программе может быть установлено сколько угодно условных символов. 
Для тестирования нескольких условий используется вложение условных директив компиля — 
тора, например: 


{5ТРГРЕГ Уаг1} 
{$ТРОЕГ Уаг2} 
а := п; 
{5ЕГЗЕ} 
а := 0; 
{ЗЕМОТЕ} 
{ЗЕМОТР} 
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В директивах {$1ЕРЕЕ} или {$1ЕМРЕЕ;} программист может использовать следующие стан-— 
дартные условные символы, которые устанавливаются в среде автоматически: 

УЕК?О — указывает версию 7.0 Турбо Паскаля (для других версий используются другие 
условные символы: УЁК40, УЕК50, УЕК55, УЕКб0); 

М$РрО5 -— указывает на то, что программа будет исполняться под управлением операци-— 
онной системы М5-—РО5 (РС 2О5}; версии Турбо Паскаля для других операционных систем 
не будут устанавливать этот символ; 

СРИО86 — указывает на то, что программа будет исполняться на ПК с микропроцессором, 
принадлежащим семейству Пе! 80х86; 

СРИ87 — указывает на то, что в составе аппаратных средств ПК обнаружен (к моменту 
компиляции программы!) арифметический сопроцессор семейства 1т{е! 80х87. 


К параметрическим относятся директивы: 

{$М <стек>,<нижн>,<верх>} — установить требуемые размеры памяти (глобальная ди-— 
ректива)}; здесь <стек> — размер стека; <нижн> — нижняя граница динамической памяти; 
<верх> — верхняя граница динамической памяти; 

{$1 <имя файла>} — включение РА$— файла: <имя файла> — имя включаемого файла; 

{$Г <имя файла>} — включение ОВ/- файла: <имя файла> — имя включаемого файла. 

В директиве {$М} все размеры задаются в байтах, следуют друг за другом в указанной 
последовательности и отделяются запятыми. Между буквой М и первой цифрой размера стека 
должен быть хотя бы один пробел, между последней цифрой верхней границы динамической 
памяти и закрывающей фигурной скобкой не должно быть никаких символов, например: ‹ 


{$М 16384,0,655360} 


Включаемый файл, определенный в директиве {$1} должен содержать исходный текст 
фрагмента программы. Компилятор использует эту директиву как указание обратиться к 
дисковому файлу за очередной строкой программы. После того, как весь фрагмент программы 
из файла будет прочитан, компилятор продолжит чтение строк из файла редактора. Если в 
имени файла опущено расширение, используется стандартное расширение .РА$. Диск и ка- 
талог, в котором находится файл, задаются опцией ОРПОМ$/ЕМУ1КОММЕМТ/РЮЕСТОЕЕ$. 

Директива {$1} предназначена для указания компилятору файла, в котором содержится 
результат трансляции ассемблерной процедуры или функции, объявленной в программе как 
внешняя (ЕХТЕЕМАГ, см. гл. 11). Если в имени файла опущено расширение, используется 
стандартное расширение.ОВ/ Диск и каталог, в котором находится файл, задаются опцией 
ОРПОМ5/ЕМУЩКОММЕМТ/Р/КЕСТОЕЕ5. 


111.4. РЕДАКТОР 


Основные приемы работы с редактором описаны в гл. 1. Ниже приводится полное опи- 
сание команд редактора. Все команды редактора можно разделить на команды перемещения 
курсора, команды удаления/вставки, команды работы с блоками, прочие. 

При их описании используются следующие обозначения клавиш управления курсором: 

ВЛ курсор влево; ВВ курсор вверх; 

ВП курсор вправо; ВН курсор вниз. 


11.4.1. Команды перемещения курсора 


СН]-5$ или ВЛ — на символ влево; 

СШ-р или ВП -— на символ вправо; 

СШ-А или СШ-ВЛ - на слово влево; 

СШ-Е или СШ-ВП - на слово вправо; 
СШ-Е или ВВ — на строку вверх; 

СШ-Х или ВН - на строку вниз; 

СШ-И/ — прокрутка вниз на строку вместе с курсором; 
СШ-7 — прокрутка вверх вместе с курсором; 
СШ-К или РдОр — на страницу вверх; 

СШ-С или Рдрп — на страницу вниз; 

Сш-О 5 или НОМЕ - в начало строки; 
СШ-О В или ЕМО - в конец строки; 

СН1-О Е или СШ-НОМЕ - в начало экрана; 
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СШ-О Х или СШ-ЕМО - в конец экрана; 

СШ-О К или СШ-РдИОр -— в начало файла; 

СШ-О С или СШ-РдДп - в конец файла; 

СШ-О В - в начало блока; 

СШ-О К - в конец блока; 

СШ-О Р — на последнюю позицию (используется после поиска или поиска/замены); 
СШ-О ИМ - на последнюю ошибку. 


П1.4.2. Команды удаления/вставки 


СШ-У или ПМ — включить/отключить режим вставки; 
СШ-М - вставить строку; 

СШ-У — удалить строку; 

СШ-Н или ВасК5расе — стереть символ слева от курсора; 
СШ-@ или РЕГ — стереть символ над курсором; 

СШ-Т - стереть слово справа от курсора; 

СШ-О У -— стереть остаток строки справа от курсора. 


1.4.3. Команды работы с блоками 


При подготовке текстов программ часто возникает необходимость перенести фрагмент 
текста в другое место или удалить его. Для такого рода операций удобно использовать блоки 
— фрагменты текста, рассматриваемые как единое целое. Длина блока может быть достаточно 
большой (ло 64 Кбайт), он может занимать несколько экранных страниц. В каждый момент в 
среде может быть объявлен только один блок в одном окне редактора. Обмен блоками между 
окнами возможен только через буфер редактора (см. опцию ЕТ в главном меню). 

СШ-К В — пометить начало блока; 

Си-К К — пометить конец блока; 

СШ-К Т -— пометить в качестве блока слово слева от курсора; 

СШ-К Р -— напечатать блок; 

СЫ-К С -— копировать блок, начиная с позиции курсора; 

Си1-К У -— переместить блок; 

СШ-К Н - убрать выделение блока цветом; повторное использование СШ-К Н вновь 
выделит блок; 

СШ-К У - удалить блок; 

СШ-К В — читать блок из дискового файла; 

СШ-К ИУ - записать блок на диск; 

С-К Г — сместить блок вправо; 

СШ-К И -— сместить блок влево. 


11.4.4. Прочие команды 


СШ-О Е - искать по образцу; 

СШ-Г — продолжить поиск; 

СИ1-О А - искать по образцу и заменять; 

С-И — прекратить дальнейшее выполнение поиска или поиска иамены; 

СЫ1-К п — установить маркер; п = 0..9 (см. ниже); 

СИ1-О п - искать маркер; 

СШ-О М! -— искать ошибку; 

СШ-О [ -— искать правую парную скобку (см. ниже}; 

СН1-О ] — искать левую парную скобку (см. ниже); 

Си]1-О Г — восстановить испорченную строку (см. ниже); 

СН1-О Т или СШ-ОТ - включить/отключить табуляцию; 

СШ-О Е — переключить заполнение табуляции; 

СШ-О Гили СШ-О Г -— включить/отключить автоотступ; 

СН1-О О -— вставить настройку компилятора в начало файла (см. ниже). 

Назначение болыпинства команд понятно без каких-либо комментариев, но некоторые 
нуждаются в пояснении. 

СЫ1--К п. Устанавливает в текущую позицию курсора маркер с номером п = 0..0. Маркер 
на экране невидим и никак не влияет на исполнение программы. Команда используется со— 
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вместно с командой СШ-О п (искать маркер с номером п) для ускорения поиска нужных 
фрагментов текста при разработке крупных программ. Обратите внимание — комбинации 
клавиш СЁ]-К п набираются следующим образом: вначале нажимается СШ, затем, не отпуская 
ее, — К; после этого все клавиши отпускаются и нажимается клавиша с цифрой п. Точно так 
же набирается команда СИ1-О п. 

СШ-О | и СШ-О [Эти команды используются для поиска ближайшей парной скобки. 
Команды позволяют отыскивать пары скобок (и ), [и } [и]. Подведите курсор так, чтобы он 
указывал на одну из скобок, и дайте соответствующую команду — редактор отыщет нужную 
парную скобку. 

СШ-О О. Эта команда заставит редактор поместить в самое начало файла строки, со— 
держащие текущую настройку среды в виде директив компилятора, например: 

({2А+,В-,0+,Е+, Е+,С+,1+,1+,М+,О-,В+, 5+, Ут, х+} 
{$М 16384,0,655360} 
{СРЕРТМЕ $11п91е} 


1.4.5. Команды, передаваемые среде из редактора 


Некоторые наиболее часто используемые команды можно передать среде непосредственно 
из режима редактирования. Все они уже описаны выше, когда рассматривалась система меню. 
Тем не менее я повторю их здесь, чтобы Вам было легче ими пользоваться. 

Е1 — получить справку; 

Е2 — записать файл из окна редактора на диск; 

Е3 — прочитать файл с диска в окно редактора; 

Е4 — исполнить до курсора (выполнить опцию КОИМ/СО ТО СОЕ$ОК}; 

Р5 — распахнуть окно на весь экран или вернуть ему прежние размеры; 

Рб — активизировать следующее окно; 

ЕТ — проследить процедуру (выполнить опцию КОМИТКАСЕ МТО): 

Е8 — пропустить процедуру (выполнить опцию КОМ/$ТЕР ОУЕК); 

Е9 — компилировать программу (выполнить опцию СОМРШЕ/МАКЕ}; 

Е10 — перейти в главное меню; 

СШ-Е!1 — получить контекстную справку; 

СШ-Е2 — сбросить режим отладки; 

СШ-ЕЗ — активизировать окно программного стека; 

СШ-Е4 — вычислить выражение или показать/изменить переменную (выполнить опцию 
РЕВИС/ЕУАГОАТЕ/МОПГГУ); | 

СШ-Р5 — перейти к режиму установки положения и размеров окна; 

СИ]-Е? — добавить выражение в окно отладки (выполнить опцию РЕВИС/УИ/АТСНЕ$/ АБО 
МАТСН}; 

СШ-ЁР8 — переключить контрольную точку; 

СШ-Р9 — выполнить компиляцию и прогон программы; 

Си]-—Пе! — очистить буфер редактора; 

СШ-15$ — копировать блок в буфер редактора; 

АП-С — вызвать меню компиляции СОМРЦЕ;, 

АП-Р — вызвать меню отладки ОДЕВОИС; 

АП-Е -— вызвать меню редактора ЕГ/Т; 

А!-Е — вызвать меню файловой службы ЕШЁ; 

АП-Н - вызвать меню справочной службы НЕГР; 

АП-О — вызвать меню установок ОРТПОМ№5; 

АЁ-К — вызвать меню прогона программы КИМ; 

А!-5$ — вызвать меню службы поиска 5ЕАКСН; 

АЛ-И/ — вызвать меню окон И/МОРО"У/ 

АПН-Х - выйти из Турбо Паскаля; 

А1!-0 — получить список открытых окон; 

АП-РЕ1 — получить последнюю справку; 

АП-ЕЗ — закрыть активное окно; 

АП-Р5 — показать окно программы; 

АП-ЕЭ — выполнить опцию СОМРШЕ/СОМРШЕ; 

5Ш-ЁЕ1 — получить список ссылок справочной службы; 

ЫН-—Еб — активизировать предыдущее активное окно; 

5И-Пе! — перенести блок из окна редактора в буфер; 
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| 5-15 — копировать буфер в окно редактора. 


111.5. ВЫЗОВ ТУРБО-ПАСКАЛЯ 


Полный формат команды ДОС, осуществляющей вызов Турбо Паскаля, имеет вид: 
[РАТН] иуБо [ОрЕ1опз] [Е11еМапе] 


Здесь РАТН — путь к системному каталогу (сы. гл.1 И П...1.1); 
Орюош5$ — список опций; | 
ЕЙеМате- имя РА5— файла. 

В квадратных скобках указаны необязательные параметры команды. 

Параметр ЕИеМате, если он указан, задает имя текстового файла, который будет автома — 
тически загружен средой в активное окно редактора. Если в имени файла не указано рас-— 
ширение, среда добавляет стандартное расширение.РА5. 

С помощью параметров ОрНоп$ среде можно передать указание изменить нужным об- 
разом свою настройку. Каждый параметр задается в формате /7, где 2 — буква, опреде — 
ляющая настройку среды (см. ниже), — знаки «+» (включить настройку) или «—» (отключить 
настройку); несколько параметров отделяются друг от друга пробелами. 

В списке ОрНоп$ можно использовать следующие управляющие параметры: 

/С<имя> -— загрузить нужный файл конфигурации (эквивалентно опции ОРПОМ$/ОРЕМ 
среды); <имя> — имя конфигурационного файла, например: /СМу.Ер; 

/Р+ — использовать дополнительный монитор (эквивалентно опции ОРПОМ$/ЕМУТ- 
КОММЕМТ/5ТАКТОР/РОАТ МОМГТОК 59РРОКТ} 

/Е<размер> — установить нужный размер памяти для экранного буфера (эквивалентно 
опции ОРПОМ5/ЕМУ1КОММЕМТ/5 ТАКТОР/Е ТОК НЕАР 5$12Е); <размер> — устанавливаемый 
размер (килобайт); например /Е15 — установить размер экранного буфера в 15 Кбайт; 

/С- — сохранять копию графического экрана (эквивалентно опции ОРПОМ$/ЕМУТ- 
КОММЕМТ/5ТАКТОР/СКАРНТС$ 5СКЕЕМ 5АУЕ); 

/ТГ-+ -— ПК оснащен жидкокристаллическим дисплеем (эквивалентно опции ОРТПОМ$/ЕМ- 
УКОММЕМТ/5ТАКТИР/ГСР СОГОК 5$ЕТ}; 


/М+ -— ПК оснащен адаптером типа ССА (эквивалентно опции ОРПОМ$/ЕМУТ- 
КОММЕМТ/$ТАВТОИРИ/ССА $МО\М/ СНЕСКПУО}; 
/О<размер> -— установить нужный размер памяти для хранения оверлейных модулей 


системы Турбо Паскаль (эквивалентно опции ОРТПОМ$/ ЕМУВОММЕМТ/5ТАКТОР/ОУЕЯГАУ 
НЕАР $17Е); 

/Р+ -— сохранять цветовую палитру экрана (эквивалентно опции ОРПОМ$/ 
ЕМУТКОММЕМТ/5ТАКТОР/ЕСА/УСА РАТЕТТЕ 5АУЕ); 

/5<путь> -— определяет путь к «быстрому» диску (эквивалентно опции ОРТЮМ$/ЕМУТ- 
КОММЕМТ/5ТАКТОР/$ИГАР ЕЁЕ ГЛКЕСТОКУ);; | 

`/Т+ - загружать в память библиотеку 5У5ТЕМ.ТРИ из файла ТОЕВО.ТРЕ (эквивалентна 
опции ОРПОМ5/ЕМУКОММЕМТ/$ТАЕТОР/ИГОАР ТОКВО.ТР!); 

/И/<размер> — установить нужный размер памяти для хранения окон Турбо Паскаля 
(эквивалентно опции ОРПОМ$/ЕМУКОММЕМТ/ 5ТАКТОРУИЛМРО"\У/ НЕАР $ Е); 

/Х+ — использовать ЕМ$- память (эквивалентно опции ОРПОМ$/ЕМУЮОММЕМТ/ 
<ТАЕТОР/И$Е ЕХРАМРЕР МЕМОКУ.. 


12. ВАРИАНТЫ КОДИРОВКИ ЗНАКОГЕНЕРАТОРОВ ПК 


Стандартный знакогенератор ПК 1ВМ РС имеет кодировку символов, изображенную на 
рис.26. Символы с кодами от 0 до 127, образующие первую половину символов знакогенера-— 
тора (рис.112.1, а), построены по стандарту АЗСП и одинаковы на всех 1ВМ -— совместимых ПК. 
Вторая половина символов (коды 128...255) могут отличаться на ПК разного типа. В стан-— 
дартном знакогенераторе фирмы 1ВМ символы псевдографики занимают три смежных ко- 
лонки (коды 176...223, см. рис.Г12.1, Ь). Колонки с кодами от 128 до 175 и от 224 до 239 ис- 
пользуются для размещения некоторых символов национального алфавита различных евро -— 
пейских языков, а последняя колонка (коды 240...255) — для размещения специальных знаков. 
С учетом этого расположения символов разрабатывается подавляющее большинство программ 
зарубежного происхождения. 
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Рис.12.1. Стандартная кодировка фирмы 1ВМ: а) для кодов 0...127; Ь) для кодов 128...255 


Стандартный отечественный знакогенератор строится по рекомендациям Международного 
консультационного комитета по телеграфии и телефонии (МККТТ). Расположение символов 
во второй половине таблицы этого знакогенератора (рис.П12.2‚а) резко отличается от принятого 
фирмой ВМ, что затрудняет использование зарубежного программного обеспечения на 
отечественных ПК. В связи с этим, стандартный (так называемый ГОСТовский) вариант ко— 
дировки часто заменяется альтернативным (рис.П2.2, Ь), главное достоинство которого — 
расположение символов псевдографики на тех же местах, что и в знакогенераторе 1ВМ. Не-— 
достаток такого знакогенератора заключается в том, что символы кириллицы не образуют 
непрерывный массив. Вариант, показанный на рис.112.2, Ь в настоящее время получил наи— 
большее распространение на отечественных ПК. Именно на него рассчитаны практически все 
программы отечественного производства. Он стал фактическим стандартом для зарубежных 
фирм, изготовляющих ПК для экспорта в нашу страну. 
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Рис.П2.2. Варианты кодировки для кодов 128...255: а) по рекомендациям МККТГ, 
Ь) наиболее популярный 


ПЗ. СООБЩЕНИЯ И КОДЫ ОШИБОК 


П3.1. СООБЩЕНИЯ ОБ ОШИБКАХ 
ПЕРИОДА КОМПИЛЯЦИИ 


Среда Турбо Паскаля дает исчерпывающую информацию о характере и месте обнару-— 
женной компилятором ошибки, При обнаружении ошибки среда автоматически загружает в 
окно редактора исходный файл и помещает курсор около того места, где в исходном тексте 
обнаружена ошибка. При этом в верхней строке редактора появляется диагностическое со— 
общение. После нажатия на любую клавишу (кроме Ё!1) верхняя строка восстанавливает свой 
первоначальный вид и среда переходит к режиму редактирования. Если после появления 
сообщения об ошибке нажать Е1, на экране появится окно справочной службы с детальной 
информацией об ошибке и рекомендациями по ее устранению. Некоторые ошибки в ис- 
ходном тексте обнаруживаются не сразу, а в ходе продолжающегося контекстного разбора. 
Например, несоответствие типов в операторе присваивания не может быть обнаружено до тех 
пор, пока не будет вычислено целиком выражение в правой части этого оператора. В таких 
случаях ищите ошибку слева от курсора или в предыдущей строке текста. 

Ниже приводятся сообщения об ошибках в том виде, в каком они появляются в верхней 
строке! редактора, а также перевод сообщений справочной службы. 


1 ОЕ оЕ метогу (Выход за границы памяти). 
Компилятору не хватает памяти. Имеется ряд возможных решений этой проблемы: 
® если в опции СОМРШЕ/РЕЗТИМАТПОМ установлено значение МЕМОКУ, замените эту 
опцию на О/5К; 
»е если в опции ОРПОМ$/ЫМКЕК/ММК ВОИЕЕЕК установлено значение МЕМОКУ, заме- 
ните эту опцию на О/5К; 
»е если Вы используете резидлентные обслуживающие программы, такие как $/)ЕКГСК, 
МОКТОМ, удалите их из памяти; 
е если Вы используете интегрированную среду ТОКВО.ЕХЕ, то попробуйте воспользо— 
ваться компилятором ТРС.ЕХЕ — он занимает меньше памяти. 
Если ни одна из рекоменлаций не помогает, то, возможно, Ваша программа просто 
слишком велика, чтобы компилировать ее в таком объеме памяти. В этом случае Вы должны 
разбить ее на два или более модулей. 


2 Таеп*1Е1ег ехресееа (Не указан идентификатор). 
В этом месте должен находиться идентификатор. Возможно, Вы пытаетесь использовать в 
качестве идентификатора зарезервированное слово. 


3 ОЧпКпомп 1аепе1ЁЕ1ехг (Неизвестный идентификатор). 
Этот идентификатор не был описан. 


4 Рор11саее 1аеп&1ЁЕ1ег (Двойной идентификатор). 
Попытка дважды описать один и тот же идентификатор. 


5 бупфах еггог (Синтаксическая ошибка). 
В исходном тексте найден недопустимый символ. Возможно, Вы забыли заключить в 


апострофы строковую константу. 


6 Еггог 1п геа1 сопзвапЕ (Ошибка в вещественной константе). 
Синтаксис констант вещественного типа описан в гл.4. 


7 Егкгог 1п 1пеедег сопзбапе (Ошибка в целой константе). 

Синтаксис констант целого типа описан в гл.4. Учтите, что после целых действительных 
чисел, превышающих диапазон представления целых чисел (-—2147483648.. + 2147483647), 
должны ставиться точка и ноль, например, 12345678912.0. 


1 На экране после кода ошибки (цифры) нет точки, поэтому ее нет и в соответствующем 
месте текста. 
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8 5Ег1пд сопзбапЕ ехсееЯ$ 11пе (Строковая константа превышает допустимые 
размеры). 
Вероятно, Вы забыли поставить апостроф в конце строковой константы. 


9 Тоо мапу пезбеа Е11ез$ (Слишком много вложенных файлов). 
_ Компилятор допускает не более пяти уровней вложенности включаемых файлов (Т.е. в 
исходном файле есть ссылка на включаемый файл, в котором есть ссылка на еще один 
включаемый файл и т.д.). 


10 ОпехресееЯ епа оЕЁ Ё11е (Не найден конец файла). 

Вы могли получить это сообщение об ошибке по одной из слелующих причин: 

е® Ваш исходный файл закончился перед последним ЕМО основного раздела операторов; 
вероятно, в Вашей программе неодинаковое количество операторов ВЕСИМ и ЕМО; 

е включаемый файл заканчивается в середине раздела операторов; каждый раздел 
операторов должен целиком помещаться в одном файле; 

® Вы не закончили комментарий. 


11 Г1пе ®оо 1опд (Слишком длинная строка). 
Максимальная длина строки, обрабатываемой компилятором, равна 126 символам 
(обратите внимание: редактор среды может обрабатывать строки практически неограниченной 


Алины). 


12 Туре 14еп+1ЁЕ1ег ехресёеа (Здесь нужен идентификатор типа). 
Не указан тип идентификатора. 


13 Тоо мапу ореп Е11е$ (Слишком много открытых файлов). 

Появление этой ошибки означает, что конфигурационный файл СОМЕ!С.5У5$ операционной 
системы не включает параметр ЕП.Е5=хх или этот параметр указывает слишком мало файлов. 
Увеличьте число файлов до нужного значения, например, до 80. 


14 Тпуа114 Е11е паме (Неверное имя файла). 
Имя файла неверно или указан несуществующий путь. 


15 Р11е поЕ Еоппа (Файл не найден). 
Файл не был найден в просмотренных каталогах. 


16 Р15К Е011 (Диск заполнен). 
Удалите некоторые файлы или воспользуйтесь новым диском. 


17 1пуа114 сомр11ег Я1гесе1уе (Неправильная директива компилятора). 

Неверная буква в директиве компилятора, один из параметров директивы компилятора 
неверный, или Вы пользуетесь глобальной директивой компилятора, когда компиляция тела 
программы уже началась. 


18 Тоо тапу Ё11ез (Слишком много файлов). 

В компиляции программы или программного модуля участвуют слишком много файлов. 
Попытайтесь не использовать так много файлов, например, объединяя включаемые файлы или 
делая короче имена файлов. 


19 ОпдеЕ1пея фуре 1п ро1пёег @ЯеЕЁ1п1Е1оп (Неопределенный тип в объявлении 


указателя). 
Попытка объявить типизированный указатель, связанный с ранее не объявленным типом 


данных. 


20 Уах1аб]е 19епеЕ1ЁЕ1ег ехрескеа (Отсутствует идентификатор переменной). 
На этом месте должен быть идентификатор переменной. 


21 Егхгохг 1п вуре (Ошибка в объявлении типа). 
Объявление типа не может начинаться с этого символа. 


22 ЗЕхасбаге +оо 1агде (Слишком большая структура). 
Максимально допустимый размер любого структурного типа составляет 65520 байт. 


23 5ек Базе +уре оЁ гапде (Базовый тип множества нарушает границы). 
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Базовый тип множества должен представлять собой тип — диапазон с границами в пределах 
от 0 до 255 или перечисляемый тип с не более чем 256 значениями. 


24 Е1]е сопропепез$ мау поЕ Бе Е11ез (Компонентами файла не могут быть фай- 
лы). 

Конструкции типа Ше оё Ше (файл файлов) или Ше оЁ оес{ (файл объектов) не допус-— 
каются. Нельзя объявлять любые структурные типы, которые используют в качестве компо— 
нентов объекты или файлы. 


25 Тпуа11А з6х1пд 1епдЕВ (Неверная длина строки). 
Объявляемая длина строки должна находиться в диапазоне от 1 до 255. 


26 Туре ш1зщаесн (Несоответствие типов). 
Это сообщение может быть вызвано следующими причинами: 


е несовместимые типы переменной и выражения в операторе присваивания; 

е несовместимые типы фактического и формального параметров В обращении к про- 
цедуре или функции; 
тип выражения не совместим с типом индекса при индексировании массива; 
несовместимые типы операндов в выражении. 


27 1пуа11а забгапде Базе «*уре (Неправильный базовый тип для типа- 
диапазона). | 
Допустимыми базовыми типами являются все порядковые типы. 


28 Гомег Боцпа дгеафег ЕПап иррег Боипа (Нижняя граница больше верхней). 
Описание типа — диапазона содержит неправильные границы. 


29 ОгЯ1па1 еуре ехресееЯ (Нужен порядковый тип). 
Вещественные, строковые, структурные, процедурные типы и указатели в данном месте 
программы не допускаются. 


30 Тпееаег сопзфапЕ ехресёеа (Нужна целая константа). 
31 СопзфапЕ ехресееа (Нужна константа). 


32 Тпеедег ох геа1 сопз®апЕ ехресееЯ (Нужна целая или вещественная констан- 
та). 


33 Туре 19епЕ1ЁЕ1ег ехресееа (Нужен идентификатор типа) 


34 Тпуа11А ЕапсЕ1оп хеза1е вуре (Неправильный тип результата функции) 
Правильными типами результата функции являются все простые типы, строковые типы и 
указатели. 


35 аБе1 1аепЕ1ЁЕ1ех ехресееа (Нужен идентификатор метки). 
Метка не обозначена с помощью идентификатора, как это требуется из контекста про— 
граммы. 


36 ВЕС1М ехресееа (Нужен ВЕСТМ). 

37 ЕМО ехресёеа (Нужен ЕМР). 

38 Тпеедег ехргезз1оп ехрес%еЯ (Нужно выражение типа ТМТЕСЕК). 

39 Ога1па1 ехргез$1оп ехресфеа (Нужно выражение перечисляемого типа). 
40 Воо1еап ехргезз1оп ехресееа (Нужно выражение типа ВООЦЕАМ). 


4] ОрегапА Еурез ао по маёсП орекафохг (Типы операндов не соответствуют 
операции). 

Данная операция не может быть применена к указанным операндам, например, 'А' @4х 
'2'. 


42 Егхгог 1п ехргеззлоп ‘Ошибка в выражении). 
Данный символ не может участвовать в выражении указанным образом. Возможно, Вы 
забыли указать операцию между двумя операндами. 
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43 111еда1 азз1аптеп® (Неверное присваивание). 
Файлам и нетипизированным переменным нельзя присваивать значения. Идентификатору 
функции можно присвоить значение только внутри раздела операторов данной функции. 


44 Е1е1А 1ЧепЕ1Е1ех ехресфеЯ (Нужен идентификатор поля). 
Попытка использовать запись целиком в том месте, где требуется ссылка на какое —либо 
поле записи. 


45 ОБ)есЕ Е11е Еоо 1агде (Объектный файл слишком большой). 
Турбо Паскаль не может компоновать файлы .ОВ] больше 64 Кбайт. 


46 ОпаеЕ1пеа ехфегпа]1 (Неопределенная внешняя процедура). 

Внешняя процедура или функция не имеет соответствующего определения РОВШЫС в 
объектном файле. Убедитесь, что Вы указали все объектные файлы в директивах {$[ <имя 
.ОВ/-файла>} и проверьте написание идентификаторов процедуры или функции в файле . 
АМ. | 


47 Тпуа11а ор]есЕ #11е гесог (Неправильная запись объектного файла). 
Файл .ОВ/ содержит неверную объектную запись. Убедитесь что данный файл является 
действительно файлом .ОВ.. 


48 Соае зедтепе оо 1агде (Сегмент кода слишком большой). 
Максимальный размер кода программы или программного модуля равняется 65520 байтам. 
Разбейте Вашу программу или модуль на два или более модулей. | 


49 Рафа зедмепе Фоо 1агде (Сегмент данных слишком велик). 

Максимальный размер сегмента данных программы равен 65520 байтам, включая данные, 
используемые программными модулями. Если Вам нужно болыпее количество глобальных 
данных, опишите большие структуры с помощью указателей и выделяйте для них память 
динамически с помощью процедуры МЕ\/. — 


_.50 РО ехресееа (Нужен оператор РО). 


51 Тпуа11а РОВЬТС деЁ1п11оп (Неверное РОВЬТС-определение). 

Возможные причины сообщения: 

е данный идентификатор получил тип РИВЫС с помощью соответствующей директивы 
языка ассемблера, но не соответствует описанию ЕХТЕКМА в программе или про- 
граммном модуле Паскаля; 

е две или более директивы РИВЫС языка ассемблера определяют один и тот же иден- 
тификатор; 

е файлы .ОВ/У определяют символы РОВШЫС, не находящиеся в сегменте СОБЕ. 


52 Тпуа11А ЕХТВМ деЁ1п1е1оп (Неправильное ЕХТВМ- -определение). 

Возможные причины сообщения: 

® программа на ассемблере ссылается с помощью директивы ЕХТКМ на идентификатор, 
который не описан в программе на Паскале и не был описан в интерфейсных секциях 
используемых программных модулей; 

» ассемблерная программа ссылается на идентификатор, обозначающий абсолютную 
переменную (т.е. определенную словом АВ5ОГОТЕ); 

® ассемблерная программа ссылается на идентификатор процедуры или функции типа 
ПМЫМЕ. 


53 Тоо мапу ЕХТЕМ аеЁ1п1®1оп (Слишком много ЕХТАМ-определений). 
Турбо Паскаль не может обрабатывать файлы .ОВУ при более чем 256 определениях 


ЕХТЕМ. 
54 ОЕ ехресееа (Требуется ОГ). 
55 ТМТЕВЕАСЕ ехресееЯ (Требуется интерфейсная секция). 


56 Т1пуа11Я хе1осакаб1е геЁегепсе (Неправильная перемещаемая ссылка). 

Возможные причины сообщения: 

® файл .ОВУ содержит данные и перемещаемые ссылки в сегментах, отличных от СОРЕ. 
Например, Вы пытаетесь описать инициализированные переменные в сегменте РАТА; 
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»® файл .ОВЛ содержит ссылки с размерами в байтах на перемещаемые символы. Такая 
ошибка происходит в случае, если Вы используете операторы НПСН и ГОИ/ с пере- 
мещаемыми символами или если Вы ссылаетесь в директивах ОВ на перемещаемые 
символы; 

е операнд ссылается на перемещаемый символ, который не был определен в сегменте 
СОШЕ или в сегменте ВРАТА; 

» операнд ссылается на процедуру ЕХТЕМ или функцию ЕХТЕМ со сдвигом, например, 
САЬЬ Зог&Ргос+8. 


57 ТНЕМ ехресееЯ (Требуется ТНЕМ). 
58 ТО ог РОИМТО ехресееа (Требуется ТО или РОИМТО). 


59 ОпаеЕ1пеа Еогмага (Неопределенное опережающее описание). 

Возможные причины сообщения: 

е была описана процедура или функция в интерфейсной секции программного модуля, 
но ее определение отсутствует в секции реализации; 

е процедуры или функции были описаны с помощью опережающего описания, но их 
определение не найдено. 


60 Тоо мапу ргоседцгез (Слишком много процедур). 

Турбо Паскаль допускает не более 512 процедур или функций в одном модуле. Если Вы 
компилируете программу, то поместите некоторые процедуры или функции в модули, Если Вы 
компилируете модуль, то разбейте его на два или несколько модулей. 


61 Тпуа11А вуресазе (Неверное преобразование типа). 

Возможные причины сообщения: | 

е Вы пытаетесь разместить в памяти, занимаемой некоторой переменной, значение 
выражения другого типа в случае, когла размер размещаемого значения не равен 
размеру переменной; 

е Вы пытаетесь осуществить преобразование типа выражения, когда разрешается только 
ссылка на переменную, процедуру или функцию. 


62 01\у1$1оп Бу гего (Деление на ноль). 
Предшествующая операция пытается выполнить деление на ноль. 


63 Тпуа11а #11е Еуре (Неверный файловый тип). 

Данный файловый тип не обслуживается процедурой обработки файлов. Например, 
процедура КЕАОГМ используется для типизированного файла или процедура 5ЕЕК — для 
текстового файла. 


64 СаппоЕ ВеаА ог ИМх1фе уаг1аЪ1ез оЕЁ +113 Фуре (Нет возможности считать или 
записать переменные данного типа). 
Нарушены следующие ограничения: 
е процедуры КЕАР и КЕАРГМ могут считывать переменные символьного, целого, дей — 
ствительного и строкового типов; 
е процедуры ИЮМТЕ и ИЮГПЕЫЁМУ могут выводить переменные символьного, целого, 
действительного, булевского и строкового типов. 


65 Ро1пеег уаг1аф1е ехресееЯ (Нужно использовать переменную-указатель). 
Предыдущая переменная должна быть указателем. 


66 5Ег1пд уахг1аЪБ1е ехресееЯ (Нужна строковая переменная). 
Предшествующая переменная должна иметь строковый тип. 


67 ЗЕг1па ехргезз1оп ехресееЯ (Нужно выражение строкового типа). 
Предшествущее выражение должно иметь строковый тип. 


68 С1гсиа1аг ип1® геЕегепсе (Перекрестная ссылка модулей). 
Два модуля ссылаются друг на друга: | 

011 А; Оп В; 

Озез В; Озев А; 
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69 0п1Е паме п1змаёсВ (Несоответствие имен программных модулей). 
Имя программного модуля, найденное в файле „ТРЦ, не соответствует имени, указанному в 
предложении ЦЗЕЗ. 


70 9п1Е уегз1оп м1змаёсН (Несоответствие версий модулей). 

Один или несколько программных модулей, используемых данной программой, были 
изменены после их компиляции. Воспользуйтесь опцией СОМРИП.Е/МАКЕ или СОМРШЕ/ВИП.О 
в интегрированной среде или опциями /М или /В в компиляторе ТРС, что позволит автома — 
тически скомпилировать программные модули, нуждающиеся в перекомпиляции. 


71 Рир11са®&е ип1Е паме (Повторное имя программного модуля). 
Вы уже указали этот программный модуль в операторе 0$Е$. 


72 9116 Е11е Еокмае еггог (Ошибка формата файла модуля). 
Файл „ТРИ не соответствует стандарту Турбо Паскаля. 


73 ТМРЬЕМЕМТАТТОМ ехресфеа (Отсутствует исполняемая часть модуля). 


74 СопзбапЕ ап сазе Еурез Чо поЕ маёсН (Типы констант и тип выражения опе- 


ратора САЗЕ не соответствуют друг другу). 
Тип константы оператора СА$Е не совместим с выражением в операторе варианта. 


75 ВесогЯ уаг1аб]е ехресфеЯ (Нужна переменная типа запись). 
Предшествующая переменная должна иметь тип запись. 


76 СопзеапеЕ оч оЁ гапде (Константа нарушает границы). 

Возможные причины сообщения: 

» Вы пытаетесь указать индекс массива, выходящий за его границы; 

е Вы пытаетесь присвоить переменной значение, выходящее за границы, допустимые для 
типа этой переменной; | | 

е Вы пытаетесь передать в качестве фактического параметра процедуре или функции 
константу, выходящую за границы, допустимые для типа соответствующего фор- 
мального параметра. 


77 Е1]1е уаг1аб1е ехресфеа (Нужна файловая переменная). 
Предшествующая переменная должна иметь файловый тип. 


78 Ро1пёег ехргезз1оп ехресфе@ (Нужно выражение типа указатель). 
Предшествующее выражение должно иметь тип указателя. 


79 Тпеедег ог геа1 ехргезз1оп ехресфе (Нужно выражение вещественного или 


целого типа). 
Предшествующее выражение должно иметь тип АЕАГ или ПУТЕСЕК. 


80 ГаБе] поф и1&В1п сиггепе Ъ1осКк (Метка не находится внутри текущего бло- 


ка). 
Оператор СОТО не может ссылаться на метку, находящуюся вне текущего блока. 


81 Габе]1 а1хеа4у аеЁЕ1пеЯ (Метка уже определена). 
Данная метка уже помечает оператор. 


82 ЧпаеЕ1пеа 1аБе1 1п ргосезз1пд $збафемепе рагФ (Неопределенная метка в 


предшествующем разделе операторов) . 
Данная метка была описана, и на нее осуществлялась ссылка в предшествующем разделе 


операторов, но она не указана в тексте программы. 


83 1пуа114А @ агдитепЕ (Неправильный аргумент операции @). 
Правильными аргументами являются идентификаторы переменных, процедур и функций. 


84 0п1Е ехресфеа (Нужно кодовое слово ОМТТ). 
85«;» ехресфея (Нужно указать«;»). 
86«:» ехресфеЯ (Нужно указать«:»). 


87«,» ехресфеЯ (Нужно указать«,»). 
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88 «(» ехресфеа (Нужно указать «(»). 
89«)» ехресфеа (Нужно указать«)»). 
3 «=» ехресёеа (Нужно указать «=»). 
9$1«:=» ехресфеа (Нужно указать«:=»). 
92 «[» ог «(.» ехресееа (Нужно указать «[» или «(.»). 
93«]» ог «.)» ехресееЯ (Нужно указать«]» или«.)»). 
94«.» ехресЕеа (Нужно указать«.»). 
95«..» ехресееЯ (Нужно указать«..»). 


96 Тоо тмапу уаг1аЪБ1ез (Слишком много переменных). 

Нарушены следующие ограничения: 

ео общий размер глобальных переменных, описанных в программе или программном 
модуле, не может превышать 64 Кбайт; 

е размер локальных переменных, описанных в процелуре или функции, не может 
превышать 64 Кбайт. 


97 Тлуа11а ЕОВ сопекоф уаг1аБ1е (Неправильный параметр цикла оператора 
РОВ). 

Параметр цикла оператора ЕОЕ должен быть переменной порядкового типа, определенной 
в разделе описаний текущей подпрограммы. 


98 Тлеедег уаг1аЪ1е ехресёеа (Нужна переменная целого типа). 
Предшествующая переменная должна иметь целый тип. 


99 Е11е апа ргоседаге Еурез аге пое а11омеЯ пехе (Здесь не могут использо- 
ваться файлы или процедурные типы). 
Типизированная константа не может иметь файловый или процедурный тип. 


100 $5$Ех1па 1епдЕй м1зтаесНр (Несоответствие длины строки). 
Длина строковой константы не соответствует количеству элементов символьного массива. 


101 Тпуа11А огаег1пд оЁ Е1е1аз (Неверный порядок полей). 
Поля в константе типа запись должны записываться в порядке их описания. 


102 5%хг1па сопзбап®е ехресееЯ (Нужна константа строкозого типа). 


103 Тлёедег ох гкеа1 уаг1аЪ1е ехресёеа (Нужна переменная типа ТМТЕСЕВ или 


ВЕАГ). 
Предшествующая переменная должна иметь целый или вещественный тип. 


104 Ога1па1 уаг1абБ1е ехресееа (Нужна переменная порядкового типа). 
Предшествующая переменная должна иметь порядковый тип. 


105 ТМЬЫТМЕ еггкок (Ошибка в операторе ТМЫТМЕ). 
Оператор «<» не допускается в сочетании с перемещаемыми ссылками на переменные. 
Такие ссылки всегда имеют размер в слово. 


106 Спахасеег ехргез$1оп ехресееЯ (Предшествующее выражение должно иметь 
символьный тип). 


107 Тоо мапу ге1оса®1оп 1®ещз (Слишком много перемещаемых элементов). 

Размер таблицы перемещения файла .ЕХЕ превышает 64 Кбайта, что является верхним 
пределом в Турбо Паскале. Если Вы обнаружили эту ошибку, то это значит, что программа 
просто слишком велика для обработки компоновщиком Турбо Паскаля. Возможно также, что 
она слишком велика для выполнения в М5 —ШО5. В таком случае нужно выделить в программе 
основной раздел, который выполнял бы обращение к двум или более вспомогательным раз— 
делам с помощью процедуры ЕХЕС из модуля РОЗ (см. гл.11). 
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108 ОузегЕ1ом 1п аг1ЕНмеё1с орегабог (Переполнение при выполнении арифмети- 
ческого оператора). | 

Результат предыдущей арифметической операции не лежит в диапазоне —2 146 483 
648... +2 147 483 647. Исправьте операцию или используйте вещественные типы вместо це- 
лочисленных. 


109 № епс1о51пд РОВ, МНТЬЕ ох ВЕРЕАТ звабмепе (Нет операторов, заканчиваю- 
щих операторы ГОК, ИНТЬЕ или ВЕРЕАТ). 
Процедуры ВКЕАК и СОМТИМОЕ не могут вызываться вне тела оператора цикла. 


110 Рероа 1пЕогмаё1оп аБ1е оуегЁ1ом (Переполнение информационной таблицы 


отладки). 
Возможно, программа содержит более 65536 имен или 65536 строк. Отключите генерацию 
таблиц отладки директивой компилятора {$0-} или исправьте один или более модулей. 


111 
Ошибка с этим кодом не описана в версии 7.0 системы Турбо Паскаль. 


112 САЗЕ сопзбапё оцЕ оЁ гапде (Константа САЗЕ нарушает допустимые грани- 


цы). 
Целочисленные константы оператора САЗЁЕ должны находиться в диапазоне от —32768 до 


32767. 


‘113 Еггохг 1п зваёетепе (Ошибка в операторе). 
Данный символ не может быть первым символом в операторе. 


114 СаппоЕ са11 ап 1пеегкар® ргосеаиге (Невозможно вызвать процедуру преры- 


вания). 
Вы не можете непосредственно вызвать процедуру обработки прерывания. 


115 
Ошибка с этим кодом не описана в версии 7.0 системы Турбо Паскаль. 


116 МазЕ Бе 1п 8087 моде Фо сотр11е *%1№13з (Для компиляции необходим режим 


8087). 
Данная программа может быть скомпилирована только в режиме {$№-+}. В состоянии {$М№М-} 


операции с типами 5ПУСГЕ, РООВЕЕ, ЕХТЕМРЬЕР и СОМР не допускаются. 


117 Тагдеф ааагезз по® Еоцпа (Указанный адрес не найден). 

Команда СОМРЦП.Е/ЕМРО ЕВЮОВ в среде Турбо Паскаля (или поиск с помощью опции /Ё в 
командной строке компилятора ТРС.ЕХЕ) не обнаружила оператор, соответствующий задан — 
ному адресу. 

118 Т1пс1аае #11ез$ аге поф а11омеЯ ВБеке (Здесь не допускаются включаемые 


файлы). 
Раздел операторов должен целиком размещаться в одном файле. 


119 № Зпрег1ЕеЯ пеероЯаз аге ассезз151е Вехге (В этом месте программы нет 


унаследованных методов). 
Вы используете зарезервированное слово ПМНЕТЕР вне метода объекта или в методе, 


который не унаследован от родительского объекта. 


120 
Ошибка с этим кодом не описана в версии 7.0 системы Турбо Паскаль. 


121 Тпуа11А аза11Е1ег (Неверный квалификатор). 

Возможные причины сообщения: 

е Вы пытаетесь индексировать переменную, которая не является массивом; 

® Вы пытаетесь указать поля в переменной, которая не является записью; 

® Вы используете в качестве указателя переменную, которая не является указателем. 


122 Тпуа11А уаг1аЪ1е геЕегепсе (Недействительная ссылка на переменную). 


Сообщения и коды ошибок 563 


Предыдущая конструкция удовлетворяет синтаксису ссылки на переменную, но она не 
указывает адрес памяти. Возможно Вы вызываете функцию - указатель но забываете со— 
слаться на результат с помощью знака ^ 


123 Тоо тапу зупро]1з (Слишком много символов). 

Программа или программный модуль содержат более 64 Кбайт символов. Если Вы ком- 
пилируете программу с директивой {$0+), то попробуйте отключить эту директиву или раз— 
бейте программу на несколько модулей. 


124 Зеафемепе раг® оо ]агае (Слишком большой раздел операторов). 

Турбо Паскаль ограничивает размер раздела операторов до величины примерно 24 Кбайта. 
Если Вы обнаружили эту ошибку, поместите части раздела операторов в одну или несколько 
процедур и вообще сделайте Вашу программу более структурированной. 


125 
Ошибка с этим кодом не описана в версии 7.0 системы Турбо Паскаль. 


126 Е11ез пизЕ Бе уаг рагамефегз$ (Файлы должны передаваться как параметры- 
переменные). , 

Вы пытаетесь передать процедуре или функции параметр -— значение файлового типа. 
Параметры файлового типа должны быть параметрами — переменными. 


127 Тоо мапу сопа11опа1 зупЬо1$ (Слишком много условных символов). 
Недостаточно памяти для определения условных символов (слов, управляющих командами 
условной компиляции). Попытайтесь удалить некоторые символы или уменьшить их длину. 


128 М1зр1асеЯ сопа1Е1опа1 Я1гесе1уе (Пропущена условная директива). 
Компилятор обнаружил директиву {$Е[5Е} или {$ЕМШГЕ} без соответствующих директив 
{$ТЕРЕР} {ЯХ1ЕМШЕЕ;} или {1ЕОРТ}. 


129 ЕМОТЕ &91гесе1уе п13$1п49 (Пропущена директива ЕМОТЕ). 
Исходный файл закончился внутри конструкции условной компиляции. В исходном файле 
должно быть равное количество директив {$1Ёххх} и {$ЕМПИЕ}. 


130 Егхох 1п 111Е1а1 сопа1е1опа1 аеЁ1пез (Ошибка в условных определениях). 

Исходные условные символы,указанные в опции ОРПОМ$/СОМРШЕЕ /СОМРГПОМАГЕ 
РЕЕИМЕ$ являются недействительными. Турбо Паскаль требует нуля или более идентифика-— 
торов, разделенных пробелами, запятыми или точками с.запятой. 


131 Неадег аоез поЕ паесВ ргеу1оцз аеЁ1п11оп (Заголовок не соответствует 
предыдущему определению). 
Возможные причины сообщения: 
» заголовок процедуры или функции, указанный в интерфейсной секции, не соответ-— 
ствует заголовку в исполняемой части. 
е заголовок процедуры или функции, указанный с помощью опережающего описания 
РОВМГАВО, не соответствует заголовку найденной далее одноименной процедурь или 


функции. 


132 С:1{1са1 915К еггог (Критическая ошибка диска). 
’ Во время компиляции произошла критическая ошибка диска (например, дисковод нахо-— 
дится в состоянии «не готов»). 


133 СаппоЕ еуа1щафе &51$ ехргезз1оп (Нельзя вычислить данное выражение). 

В выражении — константе или в отладочном выражении Вы пытаетесь использовать не— 
поддерживаемые средства, например, в описании константы пытаетесь использовать функцию 
$ИМ или вызвать в отладочном выражении определенную пользователем функцию. 


134 Ехргезз1оп 1псоггес®е1у феги1пафеая (Некорректное завершение выражения). 
Контекстуально в данном месте программы должен быть конец выражения или оператора. 


135 Тплуа]11а Еогма®е зрес1ЁЕ1ег (Неверный спецификатор формата). 
Используется неверный спецификатор формата или числовой аргумент спецификатора 
формата выходит за допустимые границы. 


135 Тпуа11Я 1па1хгес® геЁегепсе (Недопустимая косвенная ссылка", 
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Оператор пытается осуществить недопустимую косвенную ссылку. Например, Вы ис- 
пользуете абсолютную переменную, базовая переменная которой в текущем модуле неиз-— 
вестна, или используете программу типа ПМИМЕ, в которой делается ссылка на переменную, 
неопределенную в текущем модуле. 


137 ЗЕгасеагеЯ уаг1аб]е аге пов а11омеЯ пеге (Здесь нельзя использовать пе- 


ременную структурного типа). 
Делается попытка выполнить над переменной структурного типа неподдерживаемую 
операцию. Например, Вы пытаетесь перемножить две записи. 


138 СаппоЕ еуа1щаёе м1ЕВоцЕ Зузеем мп1 (Нельзя вычислить выражение без мо- 


дуля 5У5ТЕМ). 
Чтобы отладчик смог вычислить выражение, в файле ТОКВО.ТРГ должен’ содержаться 


модуль 575ТЕМ. | 


139 СаппоЕ ассезз +Н51$ зумБо1 (Нет доступа к данному символу). 

Как только Вы скомпилируете программу, все множество ее символов становится дос— 
тупным. Однако к отдельным символам (например, к переменным) нельзя получить доступ, 
пока Вы не запустите программу. 


140 Тпуа11А Е1оа&1п9-ро1пЕ орекгаЕ1оп (Недопустимая операция с плавающей за- 


пятой). 
При выполнении операции с плавающей запятой произошло переполнение или деление на 


НОЛЬ. 


141 СаппоЕ сотр11е оуег1ау Фо мемогу (Нельзя выполнить компиляцию оверлей- 


ных модулей в память). 
Программа, использующая оверлейные модули, должна компилироваться на диск. 


142 Ргоседцге ог ЁЕапсЕ1оп уаг1аб1е ехресееЯ (Должна использоваться перемен- 


ная процедурного типа). 
В этом контексте оператор получения адреса @ может использоваться только с пере— 


менной процедурного типа. 


143 Тпуа11А ргоседоге ог Еапсе1оп геЕегепсе (Недопустимая ссылка на проце- 


дуру или функцию). 
Возможные причины сообщения: 


е Вы пытаетесь вызвать процедуру в выражении; 


е процедура или функция, использующаяся в качестве параметра вызова другой про-— 
цедуры или функции, должна компилироваться в состоянии {$Е+} и не может опи- 
сываться с помощью зарезервированных слов ПМЫИМЕ или ПМТЕВКОРТ. 


144 СаппоЕ оуег1ау &Н1$ ип1Е (Этот модуль не может использоваться в качест- 


ве оверлейного). 
Попытка использовать в качестве оверлейного модуль, который не был скомпилирован с 


директивой {$О+). 


145 Тоо мапу пезфеа зсорез (Слишком много волжений). 
В программе не может быть больше 512 вложений с не более чем 128 вложениями в ка- 


ждом модуле. Вложениями считаются: 
® каждый модуль в предложении 05Е5; 
е каждая вложенная запись в типе КЕСОКО; 
»® каждый вложенный оператор И/1ТН. 
146 РИе ассез$ д4ешеа (Отказано в доступе к файлу). 
Возможные причины: 
® Вы пытаетесь использовать файл с атрибутом «только для чтения» в качестве вы- 
водного файла; 
® Вы используете имя каталога вместо имени выводного файла. 


147 ОБЗесЕ Еуре ехресееа (Здесь должен быть тип ОВФЕСТ). 
Этот идентификатор должен принадлежать к типу ОВУЕСТ. 


Сообщения и коды ошибок 565 


148 Госа1 оБ]есё +урез аге поЕ а11омеа (Нельзя объявлять локальные объек- 
ты). 
Нельзя объявить объект в процедуре (функции). 


149 УТВТОАТ ехресфеЯ (Пропущено слово УТВТОА!).. 


150 МеепоЯя 1аепе1Е1ег ехресееая (Пропущен идентификатор. инкапсулированного 
правила). 


151 У1гЕца сопзегисеог аге пое а11омеа (Конструктор не может быть вирту- 
альным). 


153 Резегасеог 1аепе1Е1ег ехресфеа (Пропущен идентификатор деструктора).. 


154 ГРа11 оп1у а11омеа м1еВ1п сопзегисеок (Обращение к стандартной процедуре 
РАТЬ может содержаться только в конструкторе). 


155 1пуа11аА сопЬ1па®1оп оЕ орсоде ап орегапа$ (Недопустимая комбинация ко- 
да команды и операндов). | 
Код ассемблерной команды не может иметь такие операнлы. Причины ошибки: 
» ‘указано слишком много или слишком мало операндов для данной команлы, например, 
ТМС АХ,ВХ или МОУ АХ; 
»е количество операндов правильное, но их типы или порядок следования не соответ— 
ствуют данной команде, например, РЕС 1, МОУ АХ, СЬ или МОУ 1,АХ.. 


156 Метогу геЕегепсе ехресееЯ (Отсутствует адрес). 

Операнд ассемблерной команды не содержит адрес. Вероятно, Вы забыли выделить 
квадратными скобками индексный регистр, например, МОУ АХ,вВХх+5$Т вместо МОУ 
АХ, [ВХ+5Т]. о 


157 СаппоЕ ааа ох зибекас®е ге1осаваЪ1е зупЬо1$ (Нельзя складывать или вычи- 
тать перемещаемые символы). 

В ассемблерных выражениях обоими операндами в операциях. сложения или вычитания 
могут быть только ссылки на константу. Илентификаторы переменных, процедур, фувкций и 
меток являются перемещаемыми символами.и не могут использоваться в качестве двух опе— 
рандов одноврёменно в таких операциях. Если УАВ — идентификатор переменной, а СОМ$Т — 
константы, то предложения МОУ АХ, СОМЗТ+СОМ$Т и МОУЕ АХ, УАВ+СОМ$Т будут. правиль — 
ными, в то время как выражение МОУ АХ, УАВ+УАВ недопустимо. 


158 Тпуа11А гед1зЕек сопЬ1паЕ1оп (Недопустимая комбинация регистров). 

Допустимыми комбинациями индексных регистров являются [ВХ], [ВР], [$1], [01], 
[Вх+51], [ВХ+01], [ВР+$т1] и [ВР+ОТ]. Другие комбинации (например, [АХ], [ВР+ВХ], 
[51+0Х]) недопустимы. Заметим, что локальные переменные размещаются в стеке и доступ к 
ним организуется через регистр ВР. Ассемблер автоматически добавляет [ВР] в ссылках на 
такие переменные, поэтому в операндах типа ГОСАТ [ВХ], где ГОСАГШ — локальная переменная, 
образуется недопустимая ссылка ГОСАТ [ВР+ВХ]. | 


159 286/287 1пзЕгасе1опз$ аге по епа1еа (Недоступен набор команд микропро- 
цессоров 286/287). 

Используйте директиву {$С+), но учтите, что такую программу можно исполнять только на 
ПК, оснащенных микропроцессором [ие] 80286/80287 или более поздним. 


160 Тпуа114А зумро1 геЕегепсе (Недопустимая ссылка на символ). 
К указанному символу нельзя обратиться в ассемблерной программе. Это может быть 
следствием таких причин: 

е Вы пытаетесь использовать ссылки на стандартные процедуры (функции) или спе- 
циальные массивы МЕМ, МЕМУ/, МЕМЕ, РОКТ и РОКТУ! в ассемблерных операндах; 

е Вы обращаетесь к строковой, вещественной константе или константе типа 5ЕТ в 
операнде ассемблерной команды; 

» в ассемблерном операнде Вы обращаетесь к процедуре или функции, написанной в 
режиме ПМИМЕ: 

® Вы пытаетесь получить с помощью операции @Кезий доступ к результату, возвра— 
щаемому функцией; 
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® Вы пытаетесь использовать короткую форму команды ЛМР для перелачи управления в 
непомеченный оператор программы. 


161 Соае депегае1оп еггохг (Ошибка генерации кода). 
Ошибка возникает, в частности, при компиляции ассемблерных фрагментов, содержащих 
команды ГООР, ГООРЕ, ГООРМЕ, .СХА, если команда ссылается на недоступную метку. 


162 АЗМ ехресфЕеЯ (Отсутствует зарезервированное слово АЗМ). 


П3.2. ОШИБКИ, ВОЗНИКАЮЩИЕ ВО ВРЕМЯ 
ВЫПОЛНЕНИЯ ПРОГРАММ 


Некоторые ошибки, обнаруженные во время выполнения программы, приводят к появ— 
лению на экране сообщения вида 


ВипЕ1те егког ллл а хххх:уууу 
(Ошибка периода исполнения ппл по адресу хххх:уууу) 


где ппп — номер ошибки; хххх:уууу — адрес (сегмент и смещение). После этого сообщения 
программа завершает свою работу. 

Ошибки периода исполнения делятся на четыре категории: ошибки, обнаруживаемые ДОС 
(коды ошибок с 1 до 99), ошибки ввода — вывода (с 100 по 149), критические ошибки (с 150 по 
199) и фатальные ошибки (коды ошибок с 200 до 255). 


П3.2.1. Ошибки, обнаруживаемые ДОС 


1 Тпуа11а Еапсе1оп помех (Неверный номер функции). 
° Вы пытаетесь вызвать несуществующую функцию ДОС. 


2 Е1]е пое ЁРоопа (Не найден файл). 
Ошибка генерируется процедурами КЕЗЕТ, АРРЕМО, КЕМАМЕ или ЕКАЗЕ в случае, если 
имя, присвоенное файловой переменной, указывает несуществующий файл. 


3 РаЕеН поЕ ЁЕоипа (Путь не найден). 
Ошибка генерируется процедурами: 
ео АЕРЪЕТ, КБИ/ЮКМТЕ, АРРЕМО или ЕКАЗЕ в случае, если имя, присвоенное файловой пе-— 
ременной, является недействительным или указывает на несуществующий подкаталог; 
‘е СНЫЮ, МКГ или ВЕМЫЕ в случае, если путь является недействительным или ука— 
зывает несуществующий подкаталог. 


4 Тоо папу ореп Е11ез (Слишком много открытых файлов). 

Ошибка генерируется процедурами КЕЗЕТ, КЕИ/МТЕ или АРРЕМО в случае, если программа 
имеет слишком много открытых файлов. ДОС не позволяет использовать более 15 открытых 
файлов для каждого процесса. Если ошибка возникла при наличии менее 15 открытых файлов, 
то она может указывать на то, что файл СОМЕ!С.5$У$ не содержит параметра ЕШЕ$ =ххх или 
что этот параметр задает слишком мало файлов. Увеличьте параметр ЕШЕЪ =ххх до какого — 
либо подходящего значения, например, до 80. 


5 Р1]1е ассезз АаеЁ1пеа (Отказано в доступе к файлу). 

Данная ошибка генерируется процедурами: 

® КЕЗЕТ или АРРЕМР в случае, когда имя, присвоенное файловой переменной, указывает 
каталог или файл, доступный только для чтения, в то время как параметр ЕГЕМООЕ 
файловой переменной содержит указание на запись данных; 

е КЕИ/МТЕ в случае, когда каталог заполнен, или если имя, присвоенное файловой пе— 
ременной, задает каталог или существующий файл, доступный только для чтения; 

»® КЕМАМЕ в случае, если имя, присвоенное файловой переменной, указывает каталог 
или если новое имя указывает существующий файл; 

» ЕКАЗЕ в случае, если имя, присвоенное файловой переменной, указывает каталог или 
файл, доступный только для чтения; 
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е МКОГ в случае, если файл с тем же именем уже существует в порождающем. каталоге, 
если нет места в порождающем каталоге или если путь к каталогу содержит имя ло-— 
гического устройства; 

»е КМОГА в случае, если каталог не является пустым, если путь не определяет каталог или 
если путь задает корневой каталог; 

е ЛКЕАД или ВГОСККЕБАР в случае типизированного или нетипизированного файла, если 
файл не открыт для чтения; 

е УИКГЕ или ВГОСКИ/КПЕ для типизированного или нетипизированного файла в случае, 
если этот файл не открыт для записи. 


6 Тпуа11а #11е Вапа1е (Недопустимый файловый канал). 

Данная ошибка генерируется в случае, когда системному вызову ДОС передается недо — 
пустимый файловый канал. Эта ошибка не должна возникать в правильно работающей про— 
грамме. Ее появление является свидетельством того, что файловая переменная каким — либо 
образом испорчена. о. 


12 Тпуа11а Е11е ассез$ сое (Недействительный код доступа к файлам). 
Ошибка генерируется процедурами КЕЗЕТ или АРРЕМО, если значение параметра 
ЕЦШЕМОРЕ в файловой переменной не является допустимым. 


15 Тпуа11А аг1уе потьег (Недопустимый номер дисковода). 
Ошибка генерируется процедурой СЕТЫК в случае, если номер дисковода не является 
допустимым. - 


16 СаппоЕ гепоуе саггепЕ Я1хесеогу (Нельзя удалить текущий каталог). 
Ошибка генерируется процедурой КМОГ в случае, если путь указывает текущий каталог. 


17 Саппо& гепаме аско$$ Яг1уез (Нельзя при переименовании указывать разные 
дисководы). 

Генерируется процедурой КЕМАМЕ в случае, если оба файла не находятся на одном и том 
же диске. | 


П3З.2.2. Ошибки ввода-вывода 


Если один из операторов компилировался с директивой {$1+} то ошибка ввода -— вывода 
приводит к прекращению выполнения программы. В состоянии {$1-} программа продолжает 
выполняться, а ошибка возвращается функцией 1ОКЕЗИГТ. 


100 рР4$К геаЯ есхкок (Ошибка чтения с диска). 
Генерируется процедурой КЕАР в типизированном файле в случае, если Вы пытаетесь 
осуществить считывание из полностью прочитанного файла. 


101 р21$К иг1&е еггог (Ошибка записи на диск). 
Ошибка генерируется процедурами СГО$Е, ИМТЕ, И’ЮМТЕЕМ, ЕГО$Н в случае, если диск 
заполнен. 


102 Е11е поЕЁ азз1апеая (Файлу не присвоено имя). 

Ошибка генерируется процедурами КЕЗЕТ, КЕУУ/МТЕ, АРРЕМО, КЕМАМЕ и ЕКАЗЕ в случае, 
если файловой переменной не было присвоено имя файла с помощью обращения к процедуре 
А5$1СМ. 


103 Е11е поЕ ореп (Файл не открыт). 
Ошибка генерируется процедурами СГО$Е, КЕАО, И/МГТЕ, 5ЕЕК, ЕОЕ, ЕШЕРО$, ЕШЕЗРЕ, 
ЕГО$Н, ВГОСКВЕАО, ВГОСКИ/ТЕ в случае, если файл не открыт. 


104 г11е поЕ ореп Еог 1пруе (Файл не открыт для ввода). 
Ошибка генерируется процедурами КЕАР, КЕАРГМ, ЕОЁ, ЕОГМ, 5ЕЕКЕСЕ или 5ЕЕКЕОГМ в 
текстовом файле в случае, если файл не открыт для ввода. 


105 Е11е поЕ ореп Еот очЕра®е (Файл не открыт для вывода). 
Ошибка генерируется процедурами И/КЮТЕ или И’КИТЕЕЁМ в текстовом файле в случае, если 
файл не открыт для вывода. 
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106 Тпуа11Я пимег1с ЁЕогтае (Неверный числовой формат). 
Генерируется процедурами КЕАД или КЕАОГМ в случае, если числовое значение, считанное 
из текстового файла, не соответствует правильному числовому формату. 


`П3.2.3. Критические ошибки 


150 р13зК 13 мкаке ргокесееЯ (Диск защищен от записи). 
‚151 ОпКпомп ип16 (Неизвестный модуль). 

152 Ог1уе по геаау (Дисковод находится в состоянии «не готов»). 
‚153 Чпкпомп соштап@ (Неопознанная команда). 


154 СВС еггог 1п Яааба (Ошибка в исходных данных). 


«.“ 
РО 


_ 155 Ваа аг1уе геаи1е$% зЕгисеиге 1епаё п (При обращении к диску указана не- 
верная длина структуры). 


156 р1$К зееК ехггог (Ошибка при операции установки головок на диске). 
‚157 ОпКпомп меЯ1а Фуре (Неизвестный тип носителя). 

158 Зесбог поё Еоцпа (Сектор не найден). 

159 Ре1пеег ой ‘оЁ рарег (Кончилась бумага на принтере). 
^ 160 Реу1се мг1%е Ёац1® (Ошибка при записи на устройство). 

161 Реу1се геаЯ Ёа11е (Ошибка при чтении с устройства). 


_ 162 Нагамаке Еа11охе (Сбой аппаратуры). 


П3З.2.4. Фатальные ошибки 


Эти ошибки всегда приводят к немедленной остановке программы. 
200 21у%1$1оп Бу 2его (Деление на ноль. 


201 ВБапде сресКк еггог (Ошибка при проверке границ). 
Ошибка генерируется операторами, скомпилированными в состоянии {$Е-+} при воз— 
никновении одной из следующих ситуаций: 

е индексное выражение массива находилось вне допустимого диапазона; 

е была осуществлена попытка присвоить переменной значение, находящееся вне диа-— 
пазона переменной; 

е была осуществлена попытка передать значение, находящееся вне допустимого диа— 
пазона, в качестве параметра процедуре или функции. 


202 5З$асКк оуехЕ1ом еггог (Переполнение стека). 

Эта ошибка генерируется на входе в процедуру или функцию, скомпилированную в 
режиме {$5-+), в случае, если нет достаточной области для размещения локальных переменных 
подпрограммы. Увеличьте размер стека, используя директиву компилятора {$М). 


_203 Неар оуегЕ1ом еггог (Переполнение кучи). 
Эта ошибка генерируется процедурами МЕИ или СЕТМЕМ в случае, если в куче нет 


свободной памяти требуемого размера. 


204 Тпуа114 ро1пеег орегаЁ1оп (Недействительная операция с указателем). 
- Эта ошибка генерируется процедурами Р/5РО$Е или ЕКЕЕМЕМ в случае, когда указатель 
имеет значение №1 или указывает на адрес, лежащий за пределами динамически распреде — 
‘ляемой области памяти. 


205 Р1оа&1п9 ро1фпЕ оуехЁ1ом (Переполнение при операции с плавающей запя- 
той). 


Сообщения и коды ошибок | О 569. 


В результате выполнения операции с плавающей запятой получено слишком большое 
вещественное число. 


206 Е1оа1пд розпЕ ипаегЕ1ом (Исчезновение порядка при операции с плавающей 


запятой). 
Эта ошибка генерируется только в том случае, если используется сопроцессор 


8087/80287/80387 с управляющим словом, которое демаскирует ошибку исчезновения порядка. 
По умолчанию исчезновение порядка приводит к возвращению результата, равного нулю. 


207 Тпуа11а Е1оа®1п3 ро1пе орегаЕ1оп (Недопустимая операция с плавающей за- 
пятой). 

Возможные причины сообщения: 

е аргумент функций ТКОМС или КОПОМРЬ не может быть преобразован в целое число, 
находящееся внутри диапазона типа ГОМСИМТ (от — 2147483648 ло +2147483647); 

»е отрицательный аргумент функции 5ОКТ (извлечение квадратного корня); | 
аргумент функции [М (логарифм) равен нулю или имеет отрицательное значение; 

» произошло переполнение стека сопроцессора. = 


208 Оуег1ау шападзегк по 1п$6а11еа (Не установлена подсистема управления 
оверлеем). 

Ваша программа вызывает оверлейную процедуру или функцию, а подсистема управления 
оверлеем не инициирована. Вероятнее всего, в программе отсутствует обращение к процедуре 
ОУВП\ГТ или обращение к этой процедуре завершилось с ошибкой. Нужно иметь в виду, что 
если в каком —либо из оверлейных модулей содержится раздел инициации, то в программе 
необходимо создать дополнительный или использовать имеющийся неоверлейный модуль, 
вызывающий процедуру ОУКПУТ в своем разделе инициализации, и указать этот модуль в 
предложении 05Е$ перед любым из оверлейных модулей. 


209 Оуег1ау Е11е геаа еггок (Ошибка чтения оверлейного файла). — 
Ошибка чтения произошла, когда подсистема управления оверлеем пыталась считать 
оверлейный модуль из оверлейного файла. 


210 ОрЗесЕе по 1п11а112еа (Не инициирован объект). 
Вы обращаетесь к виртуальному правилу применительно к неинициированному объекту 
(ло вызова конструктора). 


211 Са1] ео абзехгасЕ меевоа (Вызов абстрактного правила). 

Эта ошибка генерируется правилом АВУТКАСТ модуля ОВУЕСТ при работе в среде Тито 
\УМз10оп в случае обращения к абстрактному правилу, т.е. к виртуальному правилу, которое 
разработано специально для его замены в объектах — потомках. | 


212 ЗЕгеам гед1$6га®1оп еггог (Ошибка в регистрируемом потоке). 

Эта ошибка генерируется правилом КЕС15ТЕКТУРЕ модуля ОВУЕСТ при работе в среде 
Титфо У!з1оп в случае возникновения одной из слелующих ошибок: 

» запись регистрируемого потока не содержит сегмента данных; 

» поле ОВУТУРЕ записи регистрируемого потока нулевое; 

е указанный тип уже был зарегистрирован; 

» существует другой тип с таким же полем ОВ/ТУРЕ. 


213 Со11ес&1оп 1паех озЕ оЁ гапде (Набираемый индекс выходит из границ циа- 


пазона). 
Индекс, передаваемый объекту ТСОШЕСПОМ при работе в среде ТитЬо Уяз1оп, выходит. ‘за 


траницы диапазона. 


214 Со1]есЕ1оп охехЕ1ом егхохг (Переполнение коллекции). 
Эта ошибка генерируется объектом ТСОЫЕСТЮМ при работе в среде Тиго. \УУзюп в 
случае, если делается попытка добавить элемент к коллекции, которую нельзя расширять. - 


_ П4. СТАНДАРТНЫЕ БИБЛИОТЕЧНЫЕ МОДУЛИ 


14.1. МОДУЛЬ $УЗТЕМ 


Модуль 5УЗТЕМ является основной библиотекой Турбо Паскаля. Он реализует подпро— 
граммы для всех встроенных возможностей, таких как ввод/вывод, обработка строк, эмуляция 
арифметического сопроцессора, управление оверлеями и динамическое распределение памя— 
ти. Модуль 575ТЕМ используется автоматически любым модулем или программой и никогда не 
указывается в предложении И5$Е$. 


П4.1.1. Константы 


сопз& 

ЕггогАаах : Ро1пЕег = МТЬ; (Адрес ошибки времени выполнения} 
Ех1ЕРГОС : Ро1пЕег = МТЬ; {Процедура выхода} 

Ех Соае : Тобедег = 0; {Выходной код} 

Р1]еМоае : Вубе = 2; {Режим открытия файла} 

Егее!1 56 : Ро1пёег = МТЦ; {Список свободных блоков кучи} 
НеарЕпа : Розпеехг = МТЫ; (Конец кучи} 

НеарЕггог : Ро1пеегк = №1; {Функция обработки ошибок кучи} 
НеарОгЗ : Ро1пфег = МТЬ; [Начало кучи} 

НеарРег. ‹ Ро1пеехг = МТЬ; {Указатель кучи} 

Тпол&Ве5 : Тпбедегк = 0; {Буфер результата ввода/вывода} 
ОугСоЯеЪ1$* : Иога = 0; {Список оверлейных сегментов кода} 
ОугрерааРЕхг : Ро1пеег = МТЬЫ; [Адрес отладчика оверлеев} 
Оугро$Напа1е; ШМога = 0; {Обработчик 100$ оверлеев} 
ОугЕщ$Напа1е: Иога = 0; {Обработчик ЕМ5$ оверлеев} 
ОугНеарЕпа : ШМога = 0; {Конец буфера оверлеев} 

ОугНеарОга : Мока = 0; {Начало буфера оверлеев} 
ОугНеарРе® : Мога = 0; {Указатель буфера оверлеев} 
ОугНеар512е : Могка = 0; {Начальный размер буфера оверлеев} 
ОугГоаЯ11$е : Мога = 0; {Список загруженных оверлеев} 
Вапабееа : ГопаТпЕ = 0; {Опорное значение генератора случайных чисел} 
РгеЕ1х5ед : Иога = 0; {Префикс программного сегмента} 
$е90040 : Мога = $0040 {Сегмент $0040} 

5$е9А000 : Иога = $4000 {Сегмент $4000} 

$еаВ000 : Иогха = $8000 {Сегмент $8000} 

бедв800 : Иога = $8800 {Сегмент $8800} 

Зе1есвох’Тпс : Мога = $1000 [Шаг наращивания селекторов) 
ЗЕаскт1п1® —; Мога = 0; {Указатель на нижнюю границу стека} 
Тез{8086 : Вубе = 0; {Признак наличия процессора 80х86} 
ТезЕ8087 ; Вузе = 0; {Признак наличия сопроцессора} 


ОугСоае М1, ОутНеар$2е, Оут)ОеБидРи, ОутНеарОгд, ОутНеарР!, ОутНеарЕпа, ОугНеар $, 
Оутро5Напе и ОутЕт$Нап4е используются модулем Оуейау для реализации администратора 
оверлеев. Буфер оверлеев размещается между сегментом стека и кучей и ОугНеарОгд и 
ОутНеарЕпа содержат адреса начала и конца сегмента. Размер буфера оверлеев по умолчанию 
соответствует размеру максимального оверлея в программе; если в программе нет оверлеев, то 
размер оверлейного буфера равен нулю. 

НеарОгд, НеарРИ, НеарЕпа, Егее![1я, НеарЕггог используются администратором кучи для 
реализации распределения динамической памяти. 

Переменные ЕхИРгос, ЕхИСоае и ЕггогАааг реализуют процедуры выхода. 

РгеНх$ед содержит сегментную часть адреса префикса программного сегмента (РФР). 

ЗюаскКМтй содержит смещение от нижней границы сегмента стека, соответствующее 
наименьшему допустимому значению регистра $Р. Обычно ЗасКЫтй равен нулю; если про-— 
грамма откомпилирована с опциями {$М№-+,Е+)} компилятор будет устанавливать его равным 
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224 для резервирования рабочего пространства на нижней границе сегмента стека, исполь— 
зуемого для эмуляции сопроцессора. 

пОшКе$ используется встроенными программами ввода/вывода для запоминания значе — 
ния, возвращаемого при последующем вызове стандартной функции 1ОКе5и!. 

Капа$ееа содержит опорное число генератора случайных чисел. При присваивании кон— 
кретного значения этой переменной функция Капаот будет генерировать строго опреде— 
ленную последовательность псевдослучайных чисел. Процедура Капаопиге заносит в пере-— 
менную Капа5$ее текущее системное время и тем самым обеспечивает новую псевдослу-— 
чайную последовательность при очередном прогоне программы. 

Е!еМоае позволяет изменить режим доступа, с которым открываются типизированные и 
нетипизированные файлы стандартной процедурой КЕЗЕТ. Текстовые файлы этой процедурой 
открываются только для чтения. 

5е90040 хранит сегмент участка памяти, который М$-—ШО$ использует для размещения 
своих переменных. 

5е9А000 содержит сегмент начала видеопамяти для графического режима работы, а 
5е98000 и 5е9В800 — сегменты видеопамяти для текстового режима. 

5еесю тс используется как шаг наращивания т.н. селекторов — указателей, обеспечи -— 
вающих линейную модель памяти. 

Тез{5086 хранит результат теста автообнаружения процессора ие] 80х86, а Те589087 — 
сопроцессора. 


П4.1.2. Переменные 


уагх 
Тпрае : Тех®; {Стандартный файл ввода} 
ОцЕрае : Техе; {Стандартный файл вывода} 
бЗауеТп*00: Ро1пеег; {Сохранение вектора $00} 
ЗауеТл*75: Ро1пеег; {Сохранение вектора $75} 


три и ОшриЁ — стандартные файлы, необходимые в каждой реализации языка Паскаль. 
По умолчанию они ссылаются на стандартные входные и выходные файлы ДОС: триЁ — на 
клавиатуру, Ошри{Е — на экран. 

В момент загрузки среда Турбо Паскаля изменяет значения 18 векторов прерывания 
(векторы $00, $02, $1М, $21, $23, $24, $35, $36, $37, $38, $39, $3ЗА, $3В, $3С, $30, $3Е, $3Е и $75). 
В переменных бауеПйЕХХ сохраняются старые значения этих векторов (ХХ — номер вектора: 
5ауе]п100 -— для вектора $00, баует В — для вектора $1В ит.д.). 


4.1.3. Стандартные процедуры и функции 


Процедуры управления 
Ргоседиге Вхгеак Обеспечивает немедленный выход из операторов повторения. 


Ргоседёиге СопЕ1пиое Завершает очередной итерационный цикл операторов повторения. 


Ргосефаге Ех1е Позволяет немедленно выйти из текущей подпрограммы. При вызове из 
тела основной программы завершает ее работу. 


Ргосеаиге На1+[(Ех1Со4е: Иога)] Останавливает выполнение программы и воз— 
вращает управление в операционную систему. Необязательный параметр ЕхИСоае определяет 
код завершения программы. 


Ргоседиге ВопЕгког[(ЕггогСо4е: Вуфе)] Останавливает выполнение программы и 
генерирует ошибку периода выполнения программы. Необязательный параметр ВтогСоае 


определяет код ошибки. 
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Процедуры динамического распределения памяти 


Ргосеиге П!15розе(уак Р: Ро1пеехг _[,Пезеёгис®ог]) Уничтожает динамическую 


переменную, связанную с указателем Р. Необязательный параметр ДРезгисог определяет ме-— 
тод- деструктор для динамического объекта. 


_ Рхосеазге ГгееМеп(уаг Р: Ро1п%ег; 512е: Мога) Уничтожает динамическую пе-— 
ременную Р размером 51е байт. 


Ргоседихе СееМет(уах Р: Ро1пеег; 512е; Мога) Создает новую динамическую пе— 
ременную Р заданного размера 51е. 


 Ркоседиге МагКк(уаг Р: Ро1пфег) Записывает в указателе Р текущее состояние кучи. 


Ргоседаге Меи(уаг Р: Ро1пеег [,Сопз+гисфог]) Создает новую динамическую пе- 
ременную, связанную с указателем Р. Необязательный параметр Сопяхгисюг определяет ме- 
тод-— конструктор для динамического объекта. 


Ргоседиге Ке1еазе (уаг Р: Ро1пеег) Возвращает кучу в состояние, которое было со- 
хранено в указателе Р процедурой Маг(. 


Функции динамического распределения памяти 


`“Рирс оп МахАуа11: Топатие Возвращает размер наибольшего непрерывмого сво-— 
бодного блока кучи, соответствующий размеру наибольшей динамической переменной, ко- 
торая может быть помещена в кучу. 


ГопсЕ1оп МепАуа11: Гопатпе Возвращает количество имеющихся в куче свободных байт 
памяти, | 


Функции преобразования 


`` Процедуры Раск и Опраск, определенные в стандартном Паскале, в Турбо Паскале не 
реализованы. 


Капс оп СВЕ (Х: вуке) : Свах . Возвращает символ с заданным порядковым номером Х. 


..РмасЕЗоп Оха(Х): Гопатпе Возвращает порядковый номер, соответствующий значению 
Х порядкового типа. —. | 


РипсЕ1оп Воппа (В: Веа1): ГопатТпё Округляет значение К вещественного типа до 


ближайшего целого. 
РопсЕоп Ткипс (В: Веа1): ГопаТп® Усекает значение вещественного типа до значения 
типа Гоп т! путем отбрасывания дробной части. 


Арифметические функции 


При компиляции в режиме использования сопроцессора или его эмуляции арифметиче — 
ские функции возвращают значение типа ЕХТЕМРЕР, в противном случае — типа КЕАГ. 


ЕипсЕ1оп АБз(В: Кеа1): Веа1 Возвращает абсолютное значение аргумента. 
`РопсеЗ оп АгсТап (В: Веа1): Веа1 Возвращает арктангенс аргумента. 
КипсЕоп Со5 (В: Веа1): Веа1 Возвращает косинус аргумента. 
ГапсЕ1оп Ехр (В: Веа1): Веа1 Возвращает экспоненту аргумента. 
Рапсеоп Егас (К: Веа1): Веа1 Возвращает дробную часть аргумента. 

< ваасе1ой Тпе (К: Веа1): Кеа1 Возвращает целую часть аргумента. 
Ропсе1оп Тп(В: Веа1): Веа1 Возвращает натуральный логарифм аргумента. 
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Рирсё1оп Р1: Веа1 Возвращает значение числа п= 3.141592653589793238.. 


РЕипсе1оп 51п(В: Кеа1): Кеа1 Возвращает синус аргумента. 


РопсЕоп бак (В: Веа1): Веа1 Возвращает аргумент в квадрате. 
ГипсЕоп багЕ (В: Веа1): Веа1 Возвращает квадратный корень аргумента. 


Процедуры порядкового типа 


Ргосе4ихге Пес (уаг Хх [; ПХ: Топа1п®]) Уменьшает значение переменной Х на ве- 
личину ПОХ, а если параметр ОХ не задан — на 1. 


Ргоседаге Тпс(уаг Х [; ПХ: ТопаТпЕ]) Увеличивает значение переменной Х на ве- 


личину ОХ, а если параметр ОХ не задан - на 1. 


Функции порядкового типа 


Рипсё1оп ОЗА(Х): Воо1еап Проверяет, является ли аргумент нечетным числом. 


РопсЕзоп Ргеа(Х) Возвращает предшествующее значение аргумента. Тип результата 
совпадает с типом аргумента. 


Рипсеоп бисс(Х) Возвращает последующее значение аргумента. Тип результата сов— 
падает с типом аргумента. | 


Строковые процедуры 
Ргоседике Пе1е+ке(уаг 5: 5%х1п49; Тпаех, Соцпе: Тпеедег) Улаляет СоипЁ символов 


из строки 5, начиная с позиции аех. 


Ргоседике Тпзег+{ (5165: 5%х1па; чак 5: ЗЕЕ та; Тпдех: Тпеедег) Вставляет 


подстроку 5иБ5 в строку 5, начиная с позиции паех. 


Ргоседиахе 5+: (Х_[: М1АЕН [: ПРес1та13$]]; чак 5$: $%Е1а9) Преобразует численное 


значение Х в его строковое представление 5. 


Рхоседахге \а1(5: З%ех1па; чаг Х; ах Со4де: Тпеедех) Преобразует строковое 


значение $ в его численное представление Х. Параметр Соае содержит признак ошибки 
преобразования (0 — нет ошибки). 


Строковые функции 
Рипсёоп Сопса® (51 [, 52,...,5М]): З%&к1па Выполняет конкатенацию последова-— 


тельности строк. 


Рапсёфоп Сору(5: $5%г1109; Тп4ех, Сойпе: Тпеедех): З&к3па Возвращает подстроку 


из строки 5, начиная с позиции шаех и длиной СоигЕ символов. 


РипсЕтоп Гепаен (5: 5$&х1па): Вуе Возвращает текущую длину строки 5. 
РипсЕоп Роз (5165, 5: 5451419): Ву&е Возвращает позицию, начиная с которой в 
строке 5 располагается подстрока 5иЪ$ (0 — 5 не содержит 5иб5). 


Функции для работы с указателями и адресами 


РипсЕ1оп Аааг (Хх): Ро1пех Возвращает адрес заданного объекта Х. 


РолсЕтоп Азз1апеЯ: (уаг_Р): Воо1еап Проверяет, хранит ли ли указатель Р значение, 
отличное от МП, и возвращает ТАКОЕ в этом случае. . 
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Ропсе1оп С5еа: Мога Возвращает текущее значение регистра С$. 
ЕипсЕ1оп О5еа: _Мога Возвращает текущее значение регистра $. 


РапсЕтоп ОЁЕз(Х): Иога Возвращает смещение заданного объекта. 


Рипсе1оп Рег (5еа, ОЁз: Мога): Ро1пёег Преобразует сегмент 5ед и смещение ОБ в 
значение типа указатель. 


Рипс1оп бед (Х): Могка Возвращает сегмент для заданного объекта Х. 
РапсЕ1оп ЗРЕг: Иога Возвращает текущее значение регистра 5$Р. 


РалсЕзоп 55ед: Мога Возвращает текущее значение регистра 55. 


Процедуры разного назначения 


Ргосеасге Ехс1оа4е (уаг 5: зеф оё Т; Т: Т) Исключает элемент Тиз множества 5. 


Ргосейцге Е!11СВаг(уаг Х; Соппё: Мога; Уа11е) Заполняет заданное количество 
СоитЁ последовательных байт переменной Х указанным значением Уаше (выражение любого 
порядкового типа). 


Ргосеаиге Тпс1а4е (таг $: вее оЁ Т; Т: Т) Включает элемент Т во множество 5. 


Ргоседиге Моуе(уах Х, У; Соип®: Мога) Копирует заданное количество последова— 
тельных байт из источника Х в переменную У. 


Ргоседиаге Кап4оп!1те Инициализирует случайным значением (текущим системным 
временем) встроенный генератор псевдослучайных чисел. 


Функции разного назначения 


РапсЕЗоп Н1(Х: Мога): Вуее Возвращает старший байт аргумента Х. 
РГипсЕ1оп Нтан(Х) Возвращает максимальное значение порядкового типа, 
ЕипсЕоп Го(Х: Мога): Вуее Возвращает младший байт аргумента Х. 
РапсЕ1оп Гом(Х) Возвращает минимальное значение порядкового типа. 


РопсЕ1оп РагамСоцпе: ИМога Возвращает число параметров, переланных программе в 
командной строке (строке вызова). 


РипсЕ1оп Рагапбек (М: Вуке): $%&:4па Возвращает №- ый параметр командной строки. 


РопсЕ1оп Капаом|[(Вапде: Мога)] Возвращает псевдослучайное число. Если параметр 
Капде опущен, функция возвращает вещественное число в диапазоне от 0 до 1, если указан — 
целое число в диапазоне от 0 до Капде-1. | 


РипсЕлоп 512е0Е (Хх): Могка Возвращает число байт, занимаемых аргументом. 


РипсЕоп бмар(Х) Производит перестановку старших и младших байт двухбайтного 
аргумента Х. Тип функции соответствует типу аргумента. 


Рорсёфоп ОрСазе(С: сЪак):; СВаг Преобразует латинскую букву в заглавную. 


Процедуры. ввода/вывода 
Ргоседике А551ап(уаг Е; Мате: $%1109) Связывает внешний файл Мате с файловой 


переменной 2. 


Ргоседике СЬО1х (5: ЗЕг3па) Устанавливает текущий каталог. 
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ААА ААА 
Ргоседихе С1озе (ах Е) Закрывает открытый файл. 


Ргосе4оге Егазе(уаг Е) Удаляет внешний файл. 


Ргосе4аге Сеер1у (р: ву фе; уаг 5: $%Е4п9) Возвращает каталог по умолчанию 5 нг 


заданном диске р. 
Ргоседаге МКО1г(5: 5%Е1па) Создает подкаталог 5. 
Ргосеазге Кепапе (уаг Е) Переименовывает внешний файл. 
Ргоседиге Кезе* (уахг Е) Открывает существующий файл для чтения или изменения. 


Ргоседаге Кемг1%е (уахг Е) Создает и открывает новый файл. 


Ргоседике Вп01г(5: $%Е3п9) Удаляет пустой подкаталог. 
Ргоседаге ЗееКкК(уахг Е; №: Топатп®) Устанавливает текущую позицию файла на ука— 


занный элемент (не используется с текстовыми файлами). 


Ргоседоге Тгипса*е(уахг Е) Усекает размер файла до текущей позиции в файле (не 
используется с текстовыми файлами) 


Функции ввода/вывода 


Роипсе1оп ЕОЕ(уаг Г): Воо1еап Возвращает для файла Ё признак конца файла. 


РипсЕ1оп Е11еРоз(уаг Е): ГопатТпе Возвращает текущую позицию в файле (не ис- 


пользуется с текстовыми файлами) 


РипсЕоп Е11е512е (уаг Е): Топатпе Возвращает текущий размер файла (не исполь-— 


зуется с текстовыми файлами). 


Ропсё1оп ТОКези1е: Тпеедег Возвращает целое значение, являющееся состоянием 
последней выполненной операции ввода/вывода. 


Процедуры для текстовых файлов 


Ргоседиге Арреп4(уаг Е: Тех®) Открывает существующий файл для расширения. 


Ркосе4ихге Е1а5Н(уахг Е: Тех®) Выталкивает буфер файла вывода. 


Ргоседоге Кеаа([уаг Е: Техе;] \1 [, \2,...,УМ]) Считывает одно или более 


значений из текстового файла в одну или более переменных. 


Ргоседаге КеаЧ1п Выполняет те же действия, что и Кеай, а потом делает пропуск до 
начала следующей строки файла. 


Ргоседиге ЗееТехеВиЁ(уаг Е: Техе; уак ВоЕ [; 512е: Мога]) Назначает буфер 
ввода/вывода для текстового файла. Параметр 512е определяет длину буфера в байтах (если 
5$2е опущен, длина буфера равна 128 байтам). 


Реоседихге Ихг1+е([уах Е: Техе;] \№1 [, \2,...,УМ1) Записывает в текстовый файл 
одно или более значений. 


Реосефиге Иг1+е!гп Выполняет те же действия, что и ИТИе, а затем добавляет к файлу 
маркер конца строки. 


Функции для текстовых файлов 


РапсЕ1оп Ео1п(уаг Е: Тех®): Воо1еап Возвращает признак конца строки. 
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РопсЕтоп беекЕоЕ[! (уаг Г: Техё)]: Воо1еап Возвращает признак конца файла. 
Предварительно пропускает все пробелы, символы табуляции и признаки конца строк. . 


Еопсё1оп беекЕо1п|[(уахг Е: Техё)]: Воо1еап Возвращает признак конца строки. В 
отличие от Ест предварительно пропускает все пробелы и символы табуляции. 


Процедуры для нетипизированных файлов 


Ргосеаиге В1осккеаа (уахг Е: Е141е; уак ВоаЁ; Сопипе: Мога [;уак Везо1%: Мога]) 
Считывает в переменную ВиЁ Сош! записей из файла Е. Необязательный параметр Кези! 
содержит истинное количество считанных записей. 


Ргосейиге В1осхИг1{е (уах Е: Е11е; уахг ВоЁ; Соспе: Иога [;учахг Вези1*: Мога]) 
Передает СоипЁ записей из переменной ВШ в файл Е. Необязательный параметр Кезий со -— 
держит истинное количество переданных записей. 


14.2. МОДУЛЬ РО 


Модуль Ро$ реализует ряд очень полезных программ операционной системы и обработки 
файлов. Ни одна из программ модуля Ро$ не определена в стандартом Паскале и поэтому они 
размещены в собственном модуле. 


1П4.2.1. Константы 


Константы регистра флагов 


Следующие константы используются для проверки отдельных битов флага в регистре Р!ад$ 
после вызова Ш или М5ОО5: 


сопзЕ 
ЕСагху = $0001; #ЕАлх111аху = $0010; Е51ап = $0080; 
ЕРах1 ку = $0004; Е2его = $0040; — ЕОуехЕ1ом = $0800; 
Константы режима доступа К файлу 
соп8е 
ЕпС1озеЯ = $0780; {Маска режима файл закрыт} 


ЕтТприё = $0781; {Маска режима открыт для чтения} 
ЕпОцЕриЕ = $0782; {Маска режима открыт для записи} 
ЕпТпОоЕ = $0783; {Маска режима открыт для чтения и записи} 


Константы атрибутов файла 


сопзЕ 
ВеаЯОп1у = $01; {Маска только для чтения} 
Н1тааеп = $02; {Маска скрытого файла} 
$узЕ11е = $04; {Маска системного файла} 
У\Уо1атетр = $08; {Маска заголовка тома} 
21хесвоху= $10; {Маска каталога} 
Агср1уе = $20; {Маска архивного файла} 
АпуЕ11е = $3Е; {Маска любого файла} 
14.2.2. Типы 
фуре 


{Типизированные и нетипизированные файлы] 
Е1]еКес = тхесога 
Напа1е : Мога; 
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Моае : Мока; 

ВКес512е : Мока; 

Рг1уафсе : акхау [1. 

Озеграфа : акхау [1. 

Маме : агхгау [0. 
епа; 


{Текстовые файлы} 


.6] ОЕ Вуее; 
.16] оЕ Вуее; 
.79] ©оЕ Спаг; 


ТехЕВаЕ = аггау [0..127] оЕ Стаг; 
ТехЕВес = гесога 
Напа1е : Иога; 
Моде : ИМога; 
ВоЕб12е : Могка; 
Рг1уабсе : Мога; 
ВаЕРо$ : Мога; 
ВаЕЕпа : Мога; 
ВаЕРЕ к : ^ТехЕВаЕЁ; 
ОрепЕипс : Ро1пфег; 
ТпосЕРорс : Ро1пбег; 
Е1азрРГипс : Ро1пбек; 
С1озегипс : Розоеег; 
Озеграфа : акгау [1..16] оЕ Вуее; 
Маме : аггау [0..79] оЕ Сраг; 
ВаЕЕег : ТехёВоЕЁ; 
епа; 


Вед15$ег5 = гесога 


сазе Тпеезегк оЕЁ 


0: (АХ, ВХ, СХ, БУХ, 
1: (АГ, АН, ВЦ, ВН, 


епа; 


РафаТ1ме = гесога 
Уеаг, МопеП, Вау, 


епа; 


ЗеагсНВес = гесога 
Е11е: аггау [1..21] оЕЁ Вуее; 


Аг: Вубе; 
Т1ие: Гопа1Тпе; 
512е: БопаТпЕ; 


Мате: ЗЕкара [12]; 


епа; 

21:52: = 56Е30а 

Матезехг = 5&г1пд 

Ехе5сг = 565113 

Сош5Ег = 86Е1паз 

Ра п5Ек = 5ЕЕ1па 
уаг 


[67]; 
[8]; 
[4]; 
[127]; 
[79]; 


Ро5Егког : Тпфёедег; 
Значение, запомненное в До$Еггог, представляет собой код ошибки операционной системы: 


0 - нет ошибки 


жилым 


- файл не найден 
- путь не найден 
- доступ запрещен 
- неверный обработчик 


ВР, 
СТ, 


5т, рт, 1$, Еб, Е1асз: Иога); 
СН, рЬ, БН: Вуёе}); 


Ночхг, М1п, 5ес: ТпЕедег; 


{Диск и каталог} 

{Имя файла} 

{Расширение файла} 

{Ксмандная строка} 

{Полный маршрут поиска файла} 


П4.2.3. Переменные 


8 - нет памяти 

10 - неправильная среда 
11 - неправильный формат 
18 - больше нет файлов 
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4.2.4. Процедуры и функции 


Процедуры даты и времени 


Ргоседиге СеЕраЕе(уак Уеахг, МопЕН, Рау, РауоЕМеек: Мока) Возвращает текущую 
дату. 


Ргоседиге СееЕТ1те (уаг Е; уах Т1пе: ГопаТпе) Возвращает дату и время последнего 


обновления файла. 


Ргосеаихе СееТ:те (уак Нойхг, М1пиее, бесопЯ, 5ес100: Мога) Возвращает текущее 
время. 


Ргосе4иге РаскКТ1пе (уаг Раск: ПРафаТ1те; уаг Т1пе: ГопаТпе) Преобразует запись 


РасК в 4—байтовое упакованное значение даты и времени типа ГопдштЕ используемое про-— 
цедурой 5е Е Г!те. Поля записи РаеТите не проверяются на диапазон. 


Ргосе4оге беерРа+а(Уеаг, МопЕН, Рау: Иога) Устанавливает текущую дату. 
Ргоседике ЗеЕЕТ1пе (уаг Е; Те: ТопаТп®е) Устанавливает время и дату последнего 


обновления файла. 


Ргосеаиге ЗееТ1те (Ношу, М1пофе, бесоп, 5ес100: Мога) Устанавливает текущее 
время. 


Ргоседиге (ОпраскТ1е (Т1пе: ТопаТп®; \аг Раск: ПаеаТ1те) Преобразует 4— 


байтовое упакованное значение‘ латы и времени, возвращаемое СеёЁТте. РтаЁРиз или 
РтаМ№ехЕ в распакованную запись типа РаеТите. 


Процедуры обслуживания прерываний 


Ргоседиге СеетпЕУес (ТпЕМо: Вуёе; уак Уес: Ро1пеег) Возвращает адрес, храня — 


щийся в указанном векторе прерывания 


Ргосеаиге Тпег(ТпЕМо: Вуфе; хах В: Вед1зЕехз) Выполняет указанное программное 


прерывание. 


Ргоседиге М5Поз (уаг В: Вед15+егз) Выполняет функцию операционной системы. 
Ргоседихе ЗееТпеУес (1пеМо: Вуфе; Р: Ро1пёег) Устанавливает адрес для указанного 


вектора прерывания. 


Функции статуса диска 


РапсЕоп 015КЕгее (015К: Иока): Гопатпе Возвращает число свободных байг на 


указанном диске; 


Ропсефоп 015К512е(015К: Иогка): Гопа!пе Возвращает полный объем указанного диска 


в байтах 
Процедуры обработки файлов 
Ргоседиге Е1п9Е1хз+ (Раёп: $%х1па; Аеег: Вубе; уаг Зеатсв: беахсНВес) Ищет в 


указанном или текущем каталоге первый файл, соответствующий заданному имени файла и 
набору атрибутов. 


Ргоседиге Г1паМех* (так ЗеагсН: беахсНВес) Возвращает следующий файл, соот-— 
ветствующий имени и атрибутам, указанным в предыдущем вызове РлаРГг!. 


Ргосефиге СеегАКеЕ(уаг Е; уаг АЕЕГ: Вуее) Возврашает атрибуты файла. 
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Ргосе4аге ЗесгА+ЕЕ (уаг Е; АЕЕг: Ву+е) Устанавливает атрибуты файла. 
Ргоседихе Е5р11*(Раён: РаЕВ5Ег; хак 0101г: 01:5ек; чак Мацпе: МатщеЗех; чак 


ЕхЕ: Ехё5ехг) Разбивает имя файла Ра! на 3 составные части (каталог, имя файла, расши — 
рение). 


Функции обработки файла 


Рипсё1оп ГЕхрап@ (Мате: Раен5%ег): Рафн5ег Берет имя файла Мате и возвращает 


полное имя файла (устройство, каталог, имя и расширение). 


РГопсЕ1оп ЕбеагсНн (Маме: Ра®НЗЕг; 11.1158: 8%:1п49): Раен5еЕг Ищет файл Мате в 


списке Ри[5 каталогов. Элементы списка разделяются точкой с запятой. 


Процедуры обработки процессов 
Ргосефиге Ехес (Маме: РаЕН5Ег; СпаГ1пе: $8%х4п9) Выполняет заданную программу 


Мате с указанной командной строкой Ста ше. 


Ргоседиге Кеер(Со4е: _Мога) Завершает программу и оставляет ее резидентной в 
памяти. 


Ргоседёиге биарУескогз Обменивает сохраненные векторы прерываний из переменных 
ЗауеПихХХ с текущими векторами. 


Функции управления программой 


ЕипсЕоп ПРозЕх1ЕСоде: Мока Возвращает код завершения подпроцесса. 


Функции управления средой 


РапсЕ1оп ЕпУуСоипе: Тпбедег Возвращает число переменных окружения, содержащихся 
в среде ДОС. 


РапсЕоп Епубег (Тпдех: Тпеедех): $%х1па Возвращает указанную переменную ок-— 
ружения ДОС. 


Рапсе1оп СееЕпу(ЕпуУУаг: 5%Е4п49): Зета Возвращает значение указанной пере— 


менной окружения ДОС. 


Дополнительные процедуры 


Ргоседиге Се+СвгеаКк(чаг СВгеаК: Воо1еап) Возвращает состояние проверки (4П-— 
Вгеак. 


Ргоседоге бееСВгеак(СВгеак: Воо1еап) Устанавливает состояние проверки СИ] - ВгеаК 
в ДОС. 


Ргоседиге Сее\Уег1Еу(уаг Уег1Ёу: Воо1еап) Возвращает состояние флага верифи— 
кации в ДОС. 


Ргосеёаке Зее\ек1Еу (Уег1Еу: Воо1еап) Устанавливает состояние флага веоификации 
в ДОС. 


Дополнительные функции 


КопсЕ1оп РозУегз1оп: Мога Возвращает номер версии ДОС. 
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14.3. МОДУЛЬ СВТ 


Модуль СГ содержит подпрограммы управления текстовым выводом на экран дисплея, 
звуковым генератором и чтения клавиатуры. 

В режиме текстового вывода используются следующие координаты экрана: левый верхний 
угол экрана имеет координаты 1,1; горизонтальная координата возрастает слева направо, 
вертикальная — сверху вниз. Если на экране определено окно, все координаты определяются 
относительно границ окна. Исключением Являются координаты процедуры ИЙЛпао"м установки 
границ окна, которые всегда задаются относительно границ экрана. 

Для чтения клавиатуры используются две функции — КеуРгеззеа и КеааКеу. Функция 
КеуРгеззе4 определяет факт нажатия на любую клавишу и не приостанавливает дальнейшее 
исполнение программы. Функция КеуРгеззеа читает расширенный код нажатой клавиши. Если 
к моменту обращения к функции не была нажата ни одна клавиша, программа приостанав-— 
ливает свою работу, ожидая действий пользователя. 

Управление звуковым генератором строится по схеме 5оипа — Реау — Мо$оипа. Проце- 
дура 5оипа включает звуковой генератор и заставляет его непрерывно генерировать звук 
нужного тона. Процедура Дейау приостанавливает работу программы на заданное число 
миллисекунд реального времени. Процелура №5оипа отключает звуковой генератор. 


4.3.1. Константы 


Константы режима работы 


сопзЕ 
ВИ40 = 0; {Черно-белый, 40 символов, 25 строк} 
ВИ80 = 2; {Черно-белый, 80 х 25} 
Мопо = 7; {Монохромный, 80 х 25} 
‚ С040 = 1; {Цветной, 40 х 25} 
С080 = 3; {Цветной, 80 х 25} 
Еопё8х8 = 256; {Для ЕСА/УСА режим 43 или 50 строк} 
С40 = С040; — {Для совместимости с версией 3.0} 
С80 = С080; {Для совместимости с версией 3.0} 
| Константы цветов 
сопзЕ 
В1аск = 0; {Черный} 
В1ще = 1; {Синий} 
Сгееп = 2; {Зеленый} 
Суап = 3; {Голубой} 
Веа = 4; {Красный} 
Мадеп*а = 9; {Фиолетовый} 
Вгомп = 6; {Коричневый} 
Г1опЕСкау = 7; {Светло-серый} 
РагкСкау = 8; {Темно-серый} 
Г1апЕВ1ае = 9; {Ярко-синий} 
Г1ар&Сгееп = 10; {Ярко-зеленый} 
Г1опЕСуап = 11; {Ярко-голубой} 
ГзанеВеа = 12; {Розовый} 
.39р&Мадеп®а= 13; {Малиновый} 
Уе11ом = 14; {Желтый} 
ив Ее = 15; {Белый} 
ВПК = 128; {Мерцание символа} 
П4.3.2. Переменные 
уаг 
СрескВхеак : Воо]еап; {Разрешает/запрещает контроль СЕЁГ]-ВгеаКк} 
СсрескЕоЕ : Воо1еап; {Разрешает/запрещает контроль СЕЁгГ1-5} 
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Слеск5$пом : Воо1еап {Разрешает/запрещает контроль "снега"} 

21 хгесЕ\У1Аео: Воо1еап; {Разрешает/запрещает прямой доступ к видеопамяти} 
Газ«Моае 3 Иога; {Хранит последний текстовый режим} 

ТехеАЕЕг : Вуве; {Хранит текущий байт атрибутов} 

и1пам1п : Мога; {Координаты левого верхнего угла текущего окна} 
М1паМах : Мога; {Координаты правого нижнего угла} 


4.3.3. Процедуры и функции 


Функции 
Рипсё1оп КеуРгез5е: Воо]еап Возвращает Тгие, если на клавиатуре была нажата 


клавиша, и Ра!/е в противном случае. Не задерживает исполнение программы. 


РипсЕ1оп КеааКеу: сНаг Читает символ с клавиатуры без эхоповтора на экране. 
Приостанавливает исполнение программы до нажатия на любую клавишу, кроме 5ВШ, СШ, АШ, 
Сар$ГосЁ, МитГосК, ЭсгоШосК. 


РапсЕоп Мнегех: _Вуке Возвращает горизонтальную координату текущей позиции 
курсора относительно текущего окна. 


Рипсё1ол Ипегеу: Вуфе Возвращает вертикальную координату текущей позиции курсора 
относительно текущего окна. 


Процедуры 
Ргоседике Азз1апСг®(уаг_РГ: Тех®е) Связывает с файловой переменной устройство 
СОМ (клавиатуру для ввода и экран для вывода). 


Ргоседиге С1гЕо1 Удаляет все символы от текущей позиции курсора до ‘конца строки 
без перемещения курсора. 


Ркоседиге С1г5сг Очищает экран (окно) и помещает курсор в верхний левый угол. 


Ргосеааке ПОе1ау(Р: Мока) Приостанавливает работу программы на указанное число ОР 
миллисекунд. 


Ргоседике Пе111пе Улаляет строку, на которой находится курсор, и перемещает’ все 
строки ниже этой строки на строку вверх. Нижняя строка очищается. | 


Ргосеаиге Софоху (Хх, У: Вуке) Перемещает курсор в нужное место экрана (окна). 
Ркоседиге Н1аНУ14ео Устанавливает высокую яркость символов. 

Ркоседиге Тпз11пе Вставляет пустую строку в позицию курсора. 

Ргоседиге Гом\У14ео Устанавливает низкую яркость символов. 

Ргосеазге Моги\У1Аео Устанавливает нормальную яркость символов. 

Ргоседаге Мобоипа Выключает звуковой генератор. 


Ргоседиге боппа (Е: Мога) Включает звуковой генератор. Е — частота звука (Гц). 


Рхоседаге Тех®Васкагоцпа (Со1ог: Ву®е) Устанавливает цвет фона. 
Ргоседиге ТехЕСо1ог (Со1ог: Вуке) Устанавливает цвет символов. 


Ргосеацге Тех+Моде (Моде: Мога) Устанавливает нужный текстовый режим. 


Ргоседохге И1пдом(Х1, 1, Х2, \У2: ВуЕе) Определяет текстовое окно на экране. ХИ, 


У1 — координаты левого верхнего угла, Х2, У2 — правого нижнего угла. 
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14.4. МОДУЛЬ СВАРН 


Модуль Сгарй представляет собой мощную библиотеку графических подпрограмм уни-— 
версального назначения, рассчитанную на работу с наиболее распространенными графиче — 
скими адаптерами 1ВМ - совместимых ПК. Подпрограммы модуля СтарН обеспечивают раз— 
личные режимы работы многорежимных адаптеров, полностью используют их цветовые 
возможности и разрешающую способность. 

При исполнении графических программ требуется автономный драйвер графического 
адаптера (ВС!- файл). Если программа использует штриховые шрифты, то кроме того нужен 
один или несколько шрифтовых файлов (СНА- файлы). При необходимости драйвер и 
шрифты могут быть включены в тело программы еще на этапе компиляции. 

Графические драйверы поддерживают следующие графические адаптеры (и полностью 
совместимые с ними): | 


Аля поддержки этих аппаратных средств используются следующие драйверы: 


Во время выполнения программы процедура ШИСгарй автоматически распознает гра-— 
фический адаптер, установленный на ПК, загружает и инициализирует соответствующий 
графический драйвер, переводит адаптер в графический режим и возвращает управление 
вызывающей программе. Процедура С]озеСгарй выгружает драйвер из памяти и восстанав — 
ливает текстовый режим работы адаптера. 

Подпрограммы модуля Сгар позволяют адресоваться к любому элементу (пикселю)} рас-— 
трового графического экрана и управлять светимостью этого элемента. Для указания пикселя 
используется следующая система координат: верхний левый угол графического экрана имеет 
координаты 0,0; горизонтальная координата Х увеличивается слева направо, вертикальная 
координата У увеличивается сверху вниз. Например, в режиме 640х480 (адаптер УСА) правый 
нижний угол экрана имеет координаты 639, 479, а центр экрана — координаты 319, 239. 

Некоторые графические подпрограммы используют понятие текущего указателя. Указатель 
содержит координаты того пикселя, начиная с которого будет строиться изображение под— 
программами ШпеТо, МпеКе|, ОшТех! и др. В этом смысле указатель подобен текстовому 
курсору, но, в отличие от него, не имеет видимого изображения на экране. 

Для вывода текстовых сообщений на графический экран модуль Сгарй предоставляет один 
матричный и 4 штриховых шрифтов. Каждый символ матричного шрифта на экране реёли — 
зуется в виде матрицы из 8х8 пикселей. Штриховые шрифты для каждого символа определяют 
набор штрихов (векторов), с помощью которых на экране создается (вычерчивается) соот— 
ветствующий символ. Штриховые шрифты позволяют изменять размеры текстовых надписей 
в широких пределах без существенного ухудшения качества изображения символов. Однако 
стандартные штриховые шрифты не содержат символы кириллицы. 

В модуле СгарйА имеется несколько процедур для рисования элементарных графических 
фигур — точек, линий, окружностей, дуг и т.п. При необходимости замкнутые фигуры могут 
быть закрашены различными цветами и стилями (образцами закраски). 

Процедура 5е!ИежРой создает на экране графическое окно. Если окно определено, весь 
дальнейший графический вывод осуществляется относительно координат этого окна и от- 
секается его границами. | 

В модуле имеются средства сохранения и выдачи изображений, работы с несколькими 
трафическими страницами, установки необходимых цветов. 
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Константы задания драйверов и режимов работы 


сопзе 
Рефес+ = 0; 
ССА = 1; 
МССА = 2; 
ЕСА = 3; 
ЕСА64 = 4; 
ЕСАМопо = ; 
1ВМ8514 = 6; 
НегсМопо = 7: 
АТТ400 = ; 
УСА = ; 
РСЗ3270 = 10; 
СаггепЕ)г1уег=-128; 
ССАСО = 0; 
ССАС1 = 1; 
ССАС2 = 2; 
ССАСЗ = 3; 
ССАН1 = 4; 
МССАСО = 0; 
МССАСТ = 1; 
МССАС2 = 2; 
МССАСЗ = 3; 
МССАМеа = 4; 
МССАН1 = 5; 
ЕСАГо = 0; 
ЕСАН1 = 1; 
ЕСАб4То = 0; 


ЕСАбАН1 = 1; 
ЕСАМопоН1= 3; 
Не’сМопоН1=0; 
АТТ400С0 = 0; 
АТТ400С1 = 1; 
АТТ400С2 = 2; 
АТТ400СЗ = 3; 


АТТ400Меа= 4; 
АТТ4О0Н1 = 5; 
УСАГо = 0; 
УСАМеа = 1; 
УСАН1 = 2; 
РСЗ270Н1 = 0; 


1ВМ85141,0= 0; 
1ВМ8514НТ= 1; 


4.4.1. Константы 


{Передается в СеЕМоаеКапсде} 


{320х200; 
{320х200; 
{320х200; 
{320х200; 
{640х200; 
{320х200; 
{320х200; 
{320х200; 
{320х200; 
{640х200; 
{640х480; 
{640х200; 
{640х350; 
{640х200; 
{640х350; 
{640х350; 
{ 720х348; 
{320х200; 
{320х200; 
{326х200; 
{320х200; 
{640х200; 
{640х400; 
{640х200; 
{640х350; 
{640х480; 
720х350; 
{640х480; 


палитра 0; 1 
палитра 1; 1 
палитра 2; 1 
палитра 3; 1 
1 страница} 

палитра 0; 1 
палитра 1; 1 
палитра 2; 1 
палитра 3; 1 
1 страница} 

1 страница} 

16 цветов; 4 
16 цветов; 2 
16 цветов; 1 
4 цвета; 1 


страница} 
страница} 
страница} 
страница} 


страница} 
страница} 
страница} 
страница} 


страницы} 
страницы} 
страница} 
страница} 


64К: 1 страница; 256К: 


2 страницы} 
палитра 0; 1 
палитра 1; 1 
палитра 2; 1 
палитра 3; 1 
1 страница} 
1 страница} 
16 цветов; 4 
16 цветов; 2 
16 цветов; 1 
1] страница} 
256 цветов} 


{1024х768; 256 цветов} 


страница} 
страница} 
страница} 
страница} 


страницы} 
страницы} 
страница} 


2 страницы} 


Значения ошибок, возвращаемые СтарйВезий 


сопзф 
агок = 0; 
агМоТп1еСкарН = -1; 
агмМоерефесееа = -2; 
агЕ11еМоеРоппа = -3; 


агТпуа134А0г1уег= -4; 
агМоЬоаЯаМем = -5; 
агМоЗсапМем = -6; 
агМог1ооаМем = -7; 
аггопЕМоеРоппЯ = 


| 

1 
{®*) 
<. 


{Нет ошибок} 
{Графика не инициализирована} 


{Графическое устройство не обнаружено} 


{Файл драйвера устройства не найден} 


{Неправильный файл драйвера устройства} 


{Нет памяти для загрузки драйвера} 
{Нет памяти для просмотра областей} 
{Нет памяти для закраски областей} 
{Файл шрифта не найден} 
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агМогопЕМем = -9; {Нет памяти для загрузки шрифта} 
дгТпуа11ЯМоае =-10 {Недопустимый графический режим} 
агЕггог =-11 {Общая ошибка} 

ахТОеггог =-12 {Ошибка графического ввода/вывода} 
а:хТпуа11АРГоп® =-13 {Неверный файл шрифта} 
д:гТпуа11АГопЕМит=-14 {Неверный номер шрифта} 


Константы цвета 


сопзЕ 
В1аск = 0; {Черный} 
В1ае = 1; {Синий} 
Сгееп = 2; {Зеленый} 
Суап = 3; {Голубой} 
Веа = 4; {Красный} 
Мадепеа = 5; Фиолетовый} 
Вгомп = 6; {Коричневый} 
Г1апеСгау = 7; {Светло-серый} 
РагКкСкау = 8; {Темно-серый} 
ЪЗореВ1ае = 9; {Ярко-синий} 
т1ареСгееп = 10; {Ярко-зеленый} 
.1а|&Суап = 11; {Ярко-голубой} 
.1арЕВеа = 12; {Розовый} 
Г1апЕМадепеа= 13; {Малиновый} 
Уе11ом = 14; {Желтый} 
Ве = 15; {Белый} 


Следующие константы цветов могут быть использованы с 51 АСВРаейе для выбора цветов 
на графическом адаптере 1ВМ 8514: 


сопзЕ 
ЕСАВ1аск = 0; {Темные цвета} 
ЕСАВ11е = ; 
ЕСАСгееп = 2; 
ЕСАСуап = ; 
ЕСАВеа = 4; 
ЕСАМадеп*а = 5; 
ЕСАЬ1аНеСгкау = 7; 
ЕСАВГОМП = 20; 
ЕСАБагКСгау = 56; (Светлые цвета} 
ЕСАГ1а9рВ]ае = 57; 
ЕСА Сгееп = 58; 
ЕСАЬ1оНеСуап = 59; 
ЕСА Не Веа = 60; 
ЕСАГ19ВЕМадеп® а = 61; 
ЕСАУе11ом = 62; 
ЕСАИВ 3. ве = 63; 
Константы типов и толщины линий 
сопзЕ 
5$о011аГп = 0; {Сплошная} 
Робееаьп = 1; . {Точечная} 
Сепфегьп = 2; {Штрихпунктирная} 
Развеа тп = 3; {Пунктирная} 
ОзегВ1 Ги = 4; {Тип определяется пользователем} 
МохмИТаАЕВ = 1; {Нормальная толщина} 
ТСК аен= 3; 


{Тройная толщина} 
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сопзе 


РеЁац1ЕРопе 
Ту1р1ехРопе 


Зта11РГоп 


Запзбеи1 ЕГопё 
СоЕВ1сРопЕ 


Ног1201х 
Уегер1х 


ОзегСВах$12те 


ТеЕеТех® 


СепсехТехф® 


ВзапеТтех 


Во бошмТехе 
СепЕегТехе 


ТорТех®е 


сопзе 
С11рОп = 


| 


| 


ини 


Тгае; 


С11роЕЁ= Га1зе; 


сопзе 
ТорОп = 


Т 


це; 


ТорОЕЕ= Га15е; 


сопзЕ 
ЕпреуЕ11 
$011аЕ1 1 
Т1пеЕ111 


1 


1. 


1+51азрЕ111 


5]азВЕ11 


1 


ВК$1азвЕ111 
ТЕВК$1а$6Е111 


Наесвг11 


1 


ХНаесрвЕ111 
Тпбехг1еауеЕ1 11 
\1АаероЕЕ111 
С1о5е0о®Е111 


0зехЕ1]1 


сопзе 
СоруРае 
ХОВРиЕ 
ОгРа® 
АпарРое 
МосРае 


соп$Е 


Константы управления шрифтом 


{Матричный шрифт 8х8} 

{Шрифт триплекс; файл ТЕТР.СНВ} 
{Мелкий шрифт; файл ГТТТ. СНЕ} 
{Прямой шрифт; файл $АМ5. СНК} 
{Готический шрифт; файл СОТН.СНК} 
{Горизонтальное направление} 
{Вертикальное направление} 
{Размер символа, определяемый пользователем} 
{Указатель слева от текста} 
{Указатель по центру текста} 
{Указатель справа от текста} 
{Указатель снизу от текста} 
{Указатель по центру текста} 
{Указатель сверху от текста} 


Константы отсечения 


{Отсекать изображение} 
{Игнорировать окно (не отсекать изображение) } 


Константы для Ваг3р 


{Рисовать вершину} 
{Не рисовать вершину} 


Константы шаблона иитриховки 


{Нет штриховки} 

{Сплошная штриховка} 

{--- штриховка} 

{/// штриховка} 

{/// штриховка (толстыми линиями) } 
{\\\ штриховка (толстыми линиями) } 
{\\\ штриховка} 

{+++ штриховка} 

{ххх штриховка} 

{Штриховка в клетку; 

{Штриховка редкими точками} 
{Штриховка частыми точками} 
{Штриховка задается пользователем} 


Битовые константы 


{МОУ} 
{Хок} 
{ОК} 

[АМО} 
{МОТ} 


Константа палитры 
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МахСо]1ог$ = 15; {Максимальное количество цветов} 


4.4.2. Типы 


фуре 

Ра1еефеТуре = гесогха {Используется в СбеЕРа11еЁе} 
5$12е : Вуёе; 
Со1ох$ : агкау [0..МахСо1ог5] оЕ ЗВогЕТпЕ; 

епа; 

.1пебее1пазТуре = хесокха {Используется в СбеёТ1пебеЕЕ1п9$} 
.1пе5&у1е : Мога; 
Расеегп $ Мога; 
Тр1сКкпез$ : Иога; 


епа; 
ТехЕ5её1п9зТуре = хесоха {Используется в беёТехЕ$еЕЕ1тп9$} 
Ропе : Мога; 
21гесЕе1оп : Мога; 
СВаг512е : Иога; 
Ног12 : Мога; 
Уег* : Мога; 
епа; 


Е11]15ЗееЕ1п9$Туре = хгесога {Используется в СбеЕёР1115еЕЕ11п9$} 
Расеегп : Мога; 
Со1ох $ Мога; 


епа; 

Е11]РаееегпТуре = акхгау [1..8] оЁ Вуее; 

Ро1пЕТуре = хесога {Для задания координат многоугольников} 
Х, У: Тпбедег; 

ера; 

У1епРогЕТуре = гесога {Используется в СеЕ\У1еи5еЕЕ1п95} 
Х1, У1, Х2, У2: Тпбедег; 
С11р : Воо1еап; 

епа; 

АгсСоогазТуре = гесога {Используется в СбеёАгсСоога$} 
Хх, У : Тп6бедег; 
ХзсакЕ, Узфбаг®: Тпёздег; 
Хепа, Уепа : Тпеедег; 

епа; 

4.4.3. Переменные 
уагх 


СгарпбееМетРее : Ро1пеег; {Распределение кучи} 
СгаррЕгееМемРг®: Ро1пфег; {Освобождение кучи} 


Эти переменные указывают на программы управления кучей модуля Сгарй. Если Ваша 
программа использует собственный алгоритм управления памятью, присвойте адреса Ваших 
программ распределения и освобождения памяти переменным СтарпаеМетРиИ и 
СтарАЕгееМетРн. 


4.4.4. Процедуры 
‘ъгоседиге Агс(Х, У: Тпеедег; 5%Апд1е, ЕпЧАла1е, Ва91оз: Мога) Рисует дугу 


радиусом Каа!и$ от начального угла 5ЁАпде к конечному ЕпААпое, используя Х,У как коор-— 
динаты центра. 


Ргосеёоге Вахг(Х1, \У1, Х2, \2: Тпёедег) Рисует полосу заданного размера, используя 


текущий стиль и цвет. 
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Ргоседиге Ваг3р0(Х1, У1, Х2, \У2: Тпёедвехг; 
трехмерную полосу, используя текущий стиль и цвет. 


Ргосеацте С1гс1е(х, Тпбедег; В: Иога) Рисует окружность радиуса А, используя 


Х,У как координаты ИВ 


РерЕВ: Мока; Тор: Вос1еап) Рисует 


Ргоседаге С1еахПеу1се Очищает экран. 


Ргоседике С1еах\У1еиРог& Очищает окно. 
Реоседихе С1озеСгарН Закрывает графический режим. 
Ргоседиге ресесебгарв (уаг ПОх1уег, Моде: Тпеедег) Возвращает тип Оиуег уста — 


новленного драйвера и текущий режим Моде его работы. 


Ргосе4иее ПгамРо1у (МапРо1пЕ $: Мог; уак Ро1уРо1пе$) Рисует многоугольник из 


М№МитРой$ вершин с координатами в РоуРош!5 текущим цветом и типом линии. 


Ргосе4ите Е111рзе(Х, У: Тпеедег; 5%Апа1е, ЕпаАпа1е, ХВ, УВ: Мока) Рисует 


эллиптическую дугу от начального угла 5ЁАпд!е к конечному углу ЕпаАпе, используя Х, У как 
координаты центра и ХК, УК — как горизонтальный и вертикальный радиусы. 


Ргоседике Е111Е111рзе(Х, У: Тпеедег; ХВ, УВ: Мога) Рисует заштрихованный 


эллипс, используя Х, У как центр и ХК, УК как горизонтальный и вертикальный радиусы. 


Ргоседиге Е111Ро1у (МапРо1п*з: Мога; хак Ро1уРо1пез) Рисует и штрихует мно — 


гоугольник, содержащий М№Рош6Б вершин с координатами в Ро!уРоийи5. 


Ргоседиге Е1о00о9Е111(Х, У: ТпЕедег; Вог4ег: Мога) Штрихует замкнутую область, 


сддержащую внутреннюю точку с координатами Х, У и ограниченную линией 6 цветом Вогаег. 
Используется текущий образец штриховки и цвет. 


Ргосе4оге СееАгсСоог4з (уаг АксСоо: АгсСоогазТуре) Возвращает координаты 


центра, начала и конца дуги. 


Ргоседихе СекАзрес®Ва*1о (уах ХАзр, УАзр: Иога) Возвращает два числа, позво — 


ляющие оценить отношение сторон графического экрана (ХА5р/УА$р). 


Ргоседиге СеереЁа\1ЕРа1ее*е (уаг Ра1еее: Ра1еЕЕеТуре) Возвращает текущую 


палитру в записи РеНеТуре. 


Ргоседиге СекЕ111Раефегп (уах Е111Раёе: Е111Ра&екпТуре) Возвращает текущий 


образец штриховки. 


Ргоседиге СефЕ1115ееЕ1паз (уаг Е111ТпЁо: Е111бее1па$Туре) Возвращает текущий 


образец и цвет штриховки. 


Ргоседиге Се+Тпаде(Х1, У1, Х2, У2: Тпеедег; чак В1ЕМар) Сохраняет в пере- 


менной ВИМар битовый образ указанной части экрана. 


Рхосе4оге Се+1,1пебее{1па$ (уаг Т1пеТпЁо: 11пебее1па$Туре) Возвращает текущий 


СТИЛЬ, шаблон и толщину линии. 


Ргосе4иге сеЕМоаевапде (сгарЬрк1уег: Тпеедехг; уак ГоМо4е, Н1Годе: Тпеедег). 


Для графического драйвера СгарА)иуег возвращает диапазон возможных режимов работы. 


Ргоседиге СекРа1ее ее (уаг Ра1её ее: Ра1екееТуре) Возвращает текущую палитру и ее 


размер. 


Ргоседиге СеЕТтехе5еее1пта$ (уаг ТехеТпЕо: Техёбее&1пазТуре) Возвращает текущий 


шрифт, направление, размер и выравнивание текста, установленные процедурами 5е! Тех Ее 
и 5е!Тех Лиз ИВ. 


Ргосе4иге Сек\У1ем5ееЕ1пта$ (уаг \У1емРог®: М1емРогеТуре) Возвращает координаты и 


признак отсечки текущего окна. 


Ргоседиге СгарнОе{Рал1+5$ _Устанавливает стандартные параметры графического режима. 
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Рхгоседиге Тп1ЕСгарп (уак Ох1уег, Моде: Тпфеедег; Рафи: $319) Инициализирует 


графический режим. Переменные Диуег и Моае должны содержать тип графического драй— 
вера и его режим работы. Допускается указать Оиуег = 0 для автоматического определения 
этих параметров по результатам тестирования аппаратуры. Параметр Ра! определяет маршрут 
поиска файла графического драйвера. | 


Ргоседиге Т1пе(Х1, \1, Х2, \У2: ТпЕедег) Рисует линию от точки Х1,У1 до точки 
Ха, У2. | | 


Ргоседиге Т1пеВе1 (0х, ПУ: ТпЕеде") Рисует линию от текущего указателя к точке, 
заданной приращением координат. 


Рхоседике Т1пеТо(Х, У: Тпеедег) Рисует линию от текущего указателя к точке Х,У. 


Ргоседаге МотеКе]1 (0х, ПУ) Смещает текущий указатель к точке, заданной прираще-— 
нием координат. 


Ргоседике МотеТо(Х, У: Тифедек) Смещает текущий указатель к точке Х, У. 
Ркосеаиге ОцеТех+ (Тех 5Ег1п9: 511049) Выводит текстовую строку на экран. 
Рхоседике ОсеТехЕХУ(Х, У: Тпеедек; ТехЕбег1па: $6х1п9) Выводит текст в за- 


данное место экрана. 


Рхосеаихе Р1е511се(Х, У: ТпЕедехг; 5%Апа1е, ЕпаАпа1е, КВаа1а$: Иока) Рисует и 


1чтрихует сектор окружности радиусом Кай!$ с центром в Х,У от начального угла 5ЁАпфе к 
конечному углу ЕпаАпо?е 


Ргоседиаге РиеТпаде(Х, У: Тпеедег; уахг ВАЕКар: В1{В1%: Иога) Выводит битовый 


образ на экран. 


Ргоседиге РоЕР1хе1 (Хх, У: Тпеаег; _ Со1ог: Иога). Выводит точку цветом Со/ог с 


координатами Х, У. 


Рхосе4иге Вескапо1е(Х1, У1, Х2, У2: Тпфедех) Рисует прямоугольник, испэльзуя 


текущий цвет и тип линии. 


‘’Рхгоседиге ВезхогеСВТМоае Восстанавливает текстовый режим работы экран. 


Ргосеаиге Зесфог(Х, У: Тпфедег; ЗеАпа1е, ЕпаАпа1е, ХВ, УВ: Мога) Рисует и 


штрихует сектор эллипса радиусами ХК, УК с центром в Х, У от начального угла 5ЁАпфе к ко- 
нечному углу ЕпААпд!е. | 


Ргоседиге ЗееАс+1теРаде (Раде: Мога) Устанавливает активную страницу для гра -: 


фического вывода. 


Ргосе4аге 5е+л11Ра1ееее (уаг Ра1еёе) Изменяет все цвета палитры. 


Ргоседиге ЗеЕАзресеВае1о (ХАзр, УАзр: Иога) Изменяет масштабный коэффициент 


отношения сторон графического экрана. 
Ргосе4аге беЕВКСо1ог (Со1ог: Мога) Устанавливает цвет фона. 


Ргоседоге Зе+Со1ог(Со1ог: Иога) Устанавливает основной цвет, которым будет 
осуществляться рисование. 


Ргоседиге 5е+Е111РаеЕегп (Рае®егп: Р111РабсеекпТуре; _Со1ог: Мохка) Устанав — 


ливает произвольный образец штриховки. 


Ргоседиге 5ееЕ1115у1е (Расеекп, Со1ох: ИМога) Устанавливает образец штриховки и 


цвет. 


Ргосеаиге сеебгарнВи Е$12е (512е: Иога) Позволяет изменить размер буфера для 
функций штриховки. 


Ргоседике 5ееСгарйМоде (Моде: ТпЕедех) Устанавливает новый графический режим и 


очищает экран. 


Стандартные библиотечные модули | 589 
к 


Ргоседахге ЗееТ1пебеу1е (11пе5у1е, РаеЕегп, ТЬ1сКкпезз: Мока) Устанавливает 
толщину и стиль линии. 


Ргоседахге ЗеЕРа1еЕее (Со1оуМит, Со1ог: Мога) Заменяет цвет палитры с номером 
СооМ\Мит на цвет Со/]ог. 


Ргоседихге ЗееВСВРа11е+е (Со1охМит, ВеЯ, Сгееп, В11е: Тпеедех) Позволяет мо- 
дифицировать палитру для [ВМ 8514 и УСА. 


Ргосе4чге бееТехеЛи$&1ЁЕу(Ног17, \Уех®: Мога) Устанавливает выравнивание текста, 


используемое в процедурах Ош Тех{ и ОшТех ХУ. 


Ргоседиге бееТехЕ5+у1е (ЕопЕ, ПО1хесЕ1оп, СНаг512е: Иога) Устанавливает текущий 


шрифт, стиль и размер текста. 


Ргоседиге ЗеЕОзегСваг$12е (Ми1%Х, Р1уХх, Мо16уУ, Р1уу: Мога) Изменяет пропорции 
шрифта. 


Ргосеацке Зее \У1еиРог® (Х1, \У1, Х2, У2: ТпЕедег; С11рОп: Воо]1еап) Устанав — 


ливает текущее окно для графического вывода. 
5ее\У1зиа1Раде (РааеМо: Мога) Устанавливает номер видимой графической страницы. 


Зее г1 Е еМо4е (Их1ЕеМоае: Тпеедех) Устанавливает режим вывода (копирование или 
ХОВ) для линий, рисуемых процедурами ОгаиРоу, Шпе, мпеКе|, ЦпеТо, Кесапде. 


4.4.5. Функции 


Рхгосе4иге СееВКСо1ог: Мога Возвращает текущий фоновый цвет. 

Рхосе4аге СееСо1ог: Иога Возвращает текущий цвет. 

Ргоседчге Сеерг1уегМате;: 5&к1па Возвращает строку с именем текущего драйвера. 
Ргоседите СееСгарНМоде: Тпеедег Возвращает текущий графический режим. 


Ргоседике СеЁМахСо1охг: Иока Возвращает максимальный цвет, который можно задать в 
5$еСо]ог. 


Ргоседиге СеЕМахМоде: Тпеедег Возвращает номер максимального режима текущего 
загруженного драйвера. 


Ргоседиге СееМахх: ТпЕедег Возвращает максимальную горизонтальную координату 
графического экрана. 


Ргосеёиге СееМаху: Тпеедег Возвращает максимальную вертикальную координату 
графического экрана. 


Ркоседоге СеЕМодеМмапе (Модемащ: Иока): $&х1пч Возвращает строку с именем ука-— 


занного графического режима. 


Ргоседиге СекРа1е+е512е: ТпЕедег Возвращает размер таблицы палитры. 


Ркоседиге СекР1хе]1(Х, У: ТпЕедег): Мока Возвращает цвет пикселя с координатами 
Х,У. 


Ргоседиге Сефх: Тпеедег Возвращает координату Х текущего указателя. 
Ркоседиге Сееу: Тпфедаег Возвращает координату У текущего указателя. 


Ргоседоге СгарВЕггогМза (ЕггогСоде: Тпёедег): З&капа Возвращает строку сооб -: 


щения об ошибке для заданного кода ЕггогСоае. 


Реосе4иге СгарНВез11е: Тпеедег Возвращает код ошибки для последней графической 
операции. 
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Ргосе4ихе Тпаде512е (Х1, У1, Х2, \У2: Тпёедег) Возвращает число байт, требуемое 


для сохранения прямоугольной области экрана. 


Рхоседиге Т1п5Еа110зег0е1уег (Мате: $51109; АпборееесЕРег: Ро1пеег): Тпбедег 


Устанавливает пользовательский драйвер устройства в таблицу драйверов устройств. 


Ргосеацге 1п5$а110зегРоп® (ГопЕР11еМапе: 5%х1п49): Тпфкедег Устанавливает новый 


шрифт, который не встроен в ВС! систему. 


Ргоседиге Веа15кегВСТАк1уех (Ог1уег: Ро1пеег): Тпфсеаег Регистрирует драйвер для 


графической системы. 


Ргоседихе Вед1зЕегВСТЕоп® (Еопё: Ро1пфег):; Тпеедегк Регистрирует шрифт для 


графической системы. 


Ргоседихе ТехЕНезан* (ТехЕ5 ег: 5%х1п9): Иога Возвращает высоту строки в пиксе— 
лах. 
Ргоседихе ТехеМ1аен (ТехЕ5ег: 51149): ИМога Возвращает ширину строки в пикселах. 


П5. ТЕКСТЫ ПРОГРАММ 


15.1. ПРОГРАММА ОПРЕДЕЛЕНИЯ АНЯ НЕДЕЛИ 


{Эта программа вводит дату в формате ДД ММ ГГГГ и выводит на экран 
соответствующий этой дате день недели. Описание программы см. п.2.7.1.} 
уаг 

Т5Соггес® Рае: Воо1еап; {Признак правильной даты} 

Я, м, у : Тлбедег; {Вводимая дата - день, месяц и год} 


Ргоседиге Тпросрафе (уах Ч, м‚,у : Тпеедег; чах соггес®1у : Воо1еап); 
{Вводит в переменные а, ши у очередную дату и проверяет ее. 
Если дата правильная, устанавливает соггесЕ1у=Егие, иначе соггесЕ1у=Ёа1зе } 


Бедап ({ТприЕЁраЕе} 


И:1ее ('Введите дату в формате ДД ММ ГГГГ:; "); 
Веаа!л (а, м, у); 
соггес®1у := (9>=1) апа (49<=31) ара (п>=1) 


ап (п<=12) апа (у>=1582) апа (у<=4903) 
епа; {ТприЁраЕе} 


Ргоседаге Иг1+еПау(а,м,у : Тпёедег); 
сопзЕ 
Рау5_оЁ меекК: акхау [0..6] оЕ $%&к1тад [11] = 
('воскресенье!, 'понедельник', 'вторник', 
'среда', 'четверг', 'пятница', 'суббота'!); 


уах 
с, Ч : Ттедег; 
Бед1п 
1Е м < 3 &Вел 
Бед1п {Месяц январь или февраль} 
м:= шп + 10; 
у := у-1 
епа 
е]1зе 
м :=Ш-2; {Остальные месяцы} 
с := у @3У 100; {Вычисляем столетие} 
у := у шоа 100; {Находим год в столетии} 


и := аз (гипс (2.6*т-0.2)+а+у 41% 4+у+с 9х 4-2*с) моа 7; 
Иг1сеГл (Рауз_оё мееКк[м)]) 
епа; 


гереае 
ТпраёрРаёе (4, м, у, ГзСогхесеРайе); 
3Е Т5Соггесерабе &ЪВеп 
Иг1$ерау (а, м, у) 
ипе11 поЕ Т5Соггесераф$е 
епа. 


15.2. ОПРЕДЕЛЕНИЕ БИОРИТМОВ 


{Программа для определения физической, эмоциональной и интеллектуальной ак- 
тивности человека. Вводится дата рождения и текущая дата. Программа вычисляет 
и выводит на экран общее количество дней, часов, минут и секунд, разделяющих 
обе даты, а также прогнозирует на месяц вперед даты, соответствующие максиму- 
му и минимуму биоритмов. 

Описание программы см. п.2.7.2.} 
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сопзЕ 


$12е_оЁ МопеН: аггау [1..12] оЕ Вуее = 
(31, 28, 31, 30, 31, 30, 31, З31, 30, 31, 30, 31); 


тах 
90, а, [Дни рождения и текущий} 
по, м, {Месяцы рождения и текущий} 
уд, у, {Годы рождения и текущий} 
Зп1п, {Наименее благоприятный день} 
Ятах, {Наиболее благоприятный день} 
Яауз: Тпеедег; {Количество дней от рождения} 
ен } 


Ргоседике ТпроЕПРаеез$ (маг 90, п0,уб0,а,м‚,у : ТмЕедек); 
{Вводит дату рождения и текущую дату. Контролирует правильность дати их 
непротиворечивость (текущая дата должна быть позже даты рождения) } 
уагх 
соггес*1у: Воо1еап; {Признак правильного ввода} 
{---------- =-------- } . 
Ргосеацге Тпррате (+ехе: $6г1п9; чаг а, п,у: Тпеедег); 
{Выводит приглашение ТЕХТ, вводит дату в формате ДД ММ ГГГГ и 
проверяет ее правильность} 


сопзЕ 
УМТМ = 1800; {Минимальный правильный год} 
УМАХ = 2000; {Максимальный правильный год} 
Бедап {ТпрраЁе} 
гереаЕ 


Иг1е ($ех*); 
ВБеааГл (Я, м, у); 
соггес*1у := (у >= УМТМ) апа (У <= УМАХ) апа (п >= 1) 
ап@ (п <= 12) ара (4>0); 
1Е соггесЕ1у еВеп 
12 (п = 2) апа (а= 29) апла (у моа 4 =0) 
фреп | 
{Ничего не делать: это 29 февраля високосного года!} 
е1зе 
соггесе1у := Я <= $12е оЁ Мопен[щ]; 
1Е поЕ соггесЕ1у реп 
Иг1ее!л ('Ошибка в дате!') 
316311 соггесе1у 
еп; {ТпрраЕе} 


Бедзп {ТприЁраЁе$} 
гереаЕ 
пррафе(' Введите дату рождения в формате ДД ММ ГГГГ:', 90, по, 90}; 
Тпррафе(' Введите текущую дату: ', а, м, у); 
{Проверяем непротиворечивость дат:} 
соггесе1у := у > у0; 
3Е поЕ соггесе1у ап@а (у = у0) ЕВеп 
Ъед1п 
соггесЕ1у := м > п0; 
1Е по соггесе1у апа (п = по) ЕВеп 
соггесЕ1у := а >= а0 
ева 
1111 соггесЕ1у 
еп; {ГприЁРаЕез} 


Ргосеаоге Сеё_питБегз_оЁ Чауз (90, м0, у0,а, м, у: Тпеедег; уахг Чауз: Тпседег); 
{Определение полного количества дней, прошедших от одной даты до другой } 


Ртосеасге Уаг1апе2; 
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{Подсчет количества дней в месяцах, разделяющих обе даты } 
уагх 
пи : Тптведег; 
Ъедап {(Уаг:алЕ2} 
им := 10; 
мВ11е гп < п 94 
Бед1п 
Чауз := Чауз + $512е оЕЁ МопеН [пм]; 
1Е (пм = 2) алла (у0 шоа 4 = 0) еп 
1пс (Чауз); 


1пс (пм) 
епа 
епа; (Уаг!апёЁ2} 
еее } 


Ргоседиге Уаг1ап®3; 
{Подсчет количества дней в месяцах и годах, разделяющих обе даты} 
уаг 
пи, уу : Тпт6едег; 
Бед1п {Уакг1апЁЗ} 


пм := 00 + 1; 
мВ11е пм <= 12 ао {Учитываем остаток года рождения: } 
Ъедлп 
Чауз := Чауз+512е_оЁ МопЕв [пи]; 


1Е (пм = 2) ара (у0 шоа 4 = 0) &Ъев 
1пс (Ч4ауз); 
1пс (пм) 
епа; 
уу := у0 +1; 
мВ11е уу < у 94 {Прибавляем разницу лет: } 
Бед1п 
Чауз := Чауз + 365; 
1Е уу моа 4 = 0 & еп 
1пс (4ауз); 


1пс (уу) 
епа; 
пм := 1; 
мН11е пп < п 94 {Прибавляем начало текущего года:} 
Ьед1п 
Чауз := Чауз + 512е о МопЕН [пп]; 


1Е (у моа 4 = 0) апа (пп = 2) вел 
1пс (Ч4ау$); 
тис (пм) 
епа 
епЯ; (Уаг1апЕ3} 


Бед1п {беёЁ питЬег5_оЁГ аауз} 
1Е (у = %Уу0) апа (п = п0) ЕЪеп {Даты отличаются только днями:} 
Чау$ := а - 90 
е1зе {Даты отличаются не только днями: } 
Беда 
Чауз := а + $512е оЁ Мопев [10] - а0; 
{Учитываем количество дней в текущем месяце и количество дней до конца 
месяца рождения} 
1Е (у0 шоа 4 = 0) апа (п0 = 2) Е еп 


1пс (4ауз); {Учитываем високосный год} 
1Е у = уд Ереп 
Уаг1апе2 {Разница в месяцах одного и того же года} 
е1зе 
Уаг1ап®3 {Даты отличаются годами} 


20—1411 
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ета 
еп; (беЕ пипрегз_оЁ аауз$} 


Ргосеаиге Е1паМахМ1п (уаг ам1п, Аапах: ТпЕедехг; Чауз: Тпл%едег); 
{Поиск критических дней} 


сопзЕ 
ТЕ = 2*3.1416/23.6884; {Период физической активности} 
ТЕ = 2*3.1416/28.4261; {Период эмоциональной активности} 
ТГ = 2*3.1416/33.1638; {Период интеллектуальной активности} 
ТМТЕВУАЦ = 30; {Интервал прогноза} 
уаг 
пап, {Накапливает минимум биоритмов} 
мах, {Накапливает максимум биоритмов} 
х : Веа!; {Текущее значение биоритмов} 


1 : Талбедег; 
Ъедап {Р1лаМахМ1п} 
пах := $1п (Чауз*ТР) +311 (аауз*ТЕ) +311 (аауз*ТтТт); 
п1п := пах; {Начальное значение минимума и максимума 
равно значению биоритмов для текущего дня} 
пп := дауз; 
Атах := аау$; 
Бог 1 := 0 Фо ТМТЕВУАЬ @о 
Бед1п 
х := $1п ( (9ауз+1)*ТЕ) + 31п ( (4ауз+1) *ТЕ) + 
$11 ( (4ау$+1) *ТТГ); 
1Е х > пах ЕЪеп 
Бед1п 
мах :=х; 
Чтах := Зауз + 1 


епа 
е]1зе 1Е х < мп &ЪВеп 
Беда 
пп :=х; 
амп := дауз +1 
епа 
епа; 
епа; {Е1паМахМ1п} 
ен } 


Ргоседиге Мг1ЕеПавез$ (9м1п, мах, Чауз : Тп®ведег); 
{Определение и вывод дат критических дней. Вывод дополнительной информации о 
количестве прожитых дней, часов, минут и секунд } 


Ргосеааге Мг1Еераее ($фех*: 8%&Е219; а: Тпбедег); 
{Определение даты для дня ОР от момента рождения. В глобальных переменных а, 
т и у имеется текущая дата, в переменной РАУ$ - количество дней, прошедших от 
момента рождения до текущей даты. Выводится сообщение ТЕХТ и найденная дата в 
формате ДД-МЕС-ГГГГ} 
сопзЕ 
Мащез_оЁ МопЕНез : аггау [1..12] о З%&ЕЗ0а [3] = 
('янв','фев','мар','апр','мая','июн', 
‘июл',‘'авг!, 'сен','окт','ноя', 'дек'); 
уагх 
90, м0, уд, ааа : Тпеедег; 
Бедап {Иг1ЕераЕе} 


90 :=а; 
0 := п; 
У0 := у; 


Чая := ЯЧауз$; 
мр11е ааа<>аа @о 
Ъед1п 
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1пс (40); {Наращиваем число} 
18 (у0 шоа 4 <> 0) апа (90 > 512е_ © Мопен [п0]) ох 
(У0 мо 4=0) апа (340=30) еп 
Ьед1п {Корректируем месяц} 

_90 := 1; 

31пс (по); 

1Е п0 = 13 6Ъеп {Корректируем год} 

Ъед1п | | 
ш0 := 1; 
1пс (у0) 
епа 
епа; 
1пс (ааа) 
епа; 
Иг1сеГл ($ехе,40,'-',Мамез_о Мопевез$[п0],'-',у0) 
епа; {Иг1вераее} 
еее } 
уах | 
ТопаПауз: ТЪопдТп*; {"Длинная" целая переменная для часов, минут и секунд } 
Бедап [{Иг1Еераёе5} 
ГопдВау$ := аауз; 
Их сегл ('Прошло: ',Гопдрауз,' дней, ',1опарауз*24, 

' часов, ', №опдВауз*24*60,' минут, ', Гопарауз*24*60*60,' секунд'!); 
И;:1ЕеЛафе ('Наименее благоприятный день: ',ат1п); | | 
Иг1 Е ераее ('Наиболее благоприятный день: ',амтах) 

епЯ; {Иг1ЕераЕез} 


Ьед1п (Главная программа} 
ТпраЕрафез (940, п0,уд,а, м, у); 
Сее_питьегз_оЁ_Чауз$ (90, м0, уд, Я, м, у, аауз); 
Е: паМахМ1п (ап1п, атах, Чауз); 
Иг1$ераее$ (4м1п, тах, дауз) 

епа. 


15.3. ИГРА НИМ 
Описание программы см. п.2.7,3. 


Озез СВТ; (Подключение библиотеки дополнительных 
процедур и функций для управления экраном}о 


соп$5Е 
МАХКВОМ = 14; {Максимальное количество рядов} 
МАХСОГ = 20; {Максимальное количество фишек в ряду} 
фуре 
Со1Туре = аггау [1..МАХКОЙ] оЁ Тпфедег; 
уаг | | 
ех1 Е : Воо1еап; {Признак окончания работы} 
спапде : Воо1еап; {Признак изменения условий игры} 
пгом : Тлведег; {Количество рядов} . 
псо1 : Со1Туре; {Максимальное количество фишек по рядам} 
со1 ; Со1Туре; {Текущее количество фишек по рядам] 
ня нане------------------------------- } 


Ргоседаге ЗпомнЕ1е1а; 
{Отображает на экране текущее состояние игрового поля} 


сопзе 
ЕТЗН = #220; {Символ-указатель фишки} 
хо = 4; {Левая колонка номеров рядов} 
Х1 = 72; {Правая колонка количества фишек} 
Хх = 20; Левый край игрового поля} 


уаг 
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1,3} : Тлеедег; 
Бедап {5роиЕ1е1а} 
Еох 1 := 1 ©0о пгом ао 
Ьед1п 
СовохУ (Х0,1+4); 
мк е (1); {Номер ряда} 
СовохУ (Х1,1+4); | 
мг1 ве (со1[1]:2); {Количество фишек в ряду} 
Бог ) := 1 ео псо1[1] ао {Вывод ряда фишек: } 
Бед1п 
СовохУ (Х+2*3,1+4); 
1Е )<=со1[1] Веп иг1е (ЕТЗН) е1зе мг15е('.') 
ета 
епа 
епа; {51оиР1е14а} 


Ргосеасге Ргераге; 
{ Подготовка данных и формирование экрана } 
сопзЕ 

Неадег0 = ИГРА ним'!; 


Неааех1 =. 'Вы можете взять любое число фишек из любого ряда.!; 
Неадехг2 = 'Выигрывает тот, кто возьмет последнюю фишку. '!; 
Неадех3 = 'Номер ряда'; 
Неа4ег4 = 'Кол-во фишек'!; 

уаг 


1 : Тлеедег; 
Редап {Ргеракге} 
С1у$сг; {Очищаем экран } 
{Выводим заголовок:} 
СобохУ ( (80-Гепаер (Неааехг0)) @1у 2,1); 
иг1е (Неа4его); 
СофохУ ( (80-ГепдзЕв (Неа4ех1)) @1у 2,2); 
и\г1$е (Неаает1); 
СофохУ ( (80-ГепдаеВ (Неааег2)) ах 2,3); 
мг1Ее]1пт (Неааег2); 
\:1$е (Неа4ег3); 
СофохУ (80-ЪБепдЕН (Неааег4),4); 
м\г1$е (Неааег4); 
{Подготовить начальную раскладку: } 
Бог 1 := 1 ®0 пхгом ао со1[1] := псо1[1) 
еп; {Рхгераге}. 


Ргоседике СеЁР1ауекМоуе; 
{ Получить, проконтролировать и отобразить ход игрока } 


соп5Е 

ТЕХТ1 = 'Введите Ваш ход в формате РЯД КОЛИЧ '+ 
' (например, 2 3 - взять из 2 ряда 3 фишки) !': 

ТЕХТ2 = 'или введите 0 0 для выхода из игры; -1 0 для настройки игры!; 
ТЕХТЗ = 'Ваш ход: '; 
У = 20; {номер строки для вывода сообщений} 

уах 
соггес&1у : Воо1еап; {признак правильности сделанного хода} 
х1,х2 : Тлбедег; {вводимый ход} 

{еее ----------------- } 


Ргосеааге сСееСрапде; 
{ Ввести новую настройку игры (количество рядов и количество фишек в кождом 


ряду} 
сол$е 
{1 = НАСТРОЙКА ИГРЫ!; 
+2 = '(ввод количества рядов и количества фишек в каждом ряду) !'; 
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угг 
соггес®1у : Воо1еап; 
1 ; Тпбедег; 

Бед1п {СеЕСвВапое} 
с1х$сг; 
СофохУ ( (80-Бепаев (&1)) ау 2,1); 
мг1 ее (+1); 
СофохУ ( (80-Бепаен ({2)) ах 2,2); 
мЕ1е (+2); 


гереаЕ 
СофохУ (1,3); 
иг1фе ('Введите количество рядов (максимум ',МАХВОМ, '): - '); 


СосохУ (МРегеХ-6,ИПегеу); 
геаа]п (пгом); 
соггесЕ1у := (пгом<=МАХВОЙМ) ап@а (пком>1); 
1Е поЕ соггесе1у ФВеп 
мг1е (#7) 
1111 соггес®1у; 
Бог 1 := 1 ®о©о пгом ао 
гереае 
СофохУ (1,1+3); 
иг1ее(' ряд ',1,', количество фишек (максимум ',МАХСОГ, ') : '); 
СобохУ (ИВегеХх-6,ИПекеух); 
геаа1п (псо1 [1]); 


соггесЕ1у := (псо1[1]<=МАХСОЪ) ап@а (псо1[1]>0); 
1Е поЕ соггес®1у ЕВеп 
мг1 ке (#7) 


1161] соггес®1у 
епа; {сеЕСрапауе} 


Бед1п {СеЕР1ауегМоуе} 
ЗНомЕ1е1а; {Гоказать начальное состояние поля } 
{ Сообтить игроку правила ввода хода; } 
СовохУ ( (80-ГепдзеЕвВ (ТЕХТ1)) ау 2,У); 
\г1 фе (ТЕХТ1); 
СофохУ ((80-ТепаЕН (ТЕХТ2)) ау 2,%+1); 
иг1ее (ТЕХТ2); 
гереае 
{ Пригласить игрока ввести ход: } 
СовохУ (1,У+2); 


Иг16е (ТЕХТЗ); {вывести приглашение и стереть предыдущий ход} 
СофохУ (МВегех-16,У+2); {курсор влево на 16 позиций} 
ВеааГл (х1,х2); {ввести очередной ход} 
ех1е := х1=0; {контроль команды выхода} 
свапае := х1=-1; {контроль команды изменения} 
1Е поЕ (ех1е ог срапде) ®Ъеп 
Бедап 


соггесе1у := (х1>0) ап@ (х1<=пгом) ада 
(х2<=со1[х1]) алла (х2>0); 
3Е соггес®1у ЕЪеп 


Беда {ход правильный:} 
со1[х1] := со1[х1]-х2; {изменить раскладку фишек} 
ЗВоиЕ1е1а {показать поле} 

епа 

е2зе 
иг1 фе (#7) , {ход неправильный: дать звуковой сигнал } 
ета 
е1зе 


соггес®1у := %кое {случай ЕМТТ или СЕ2УСЕ} 
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ипЕ11 соггес%1у; 
12 спапде %Ъеп 
СееСпапае 
еп; {сеЕёР1ауегМоуе} 


Ргоседиге бееОмпехМоуе; 
{ Найти и отобразить очередной ход программы } 


РапсЕ1оп Спескг1е14 : 1пфедег; 
{ Проверка состояния игры. Возвращает 0, если нет ни одной фишки (победа иг- 
рока), 1 - есть один ряд (победа машины) и количество непустых рядов в ос- 
тальных случаях } 
уах 
1,7) : Тлеедег; 
Бедап (САескР1е1а} 
3 :=0; 
Бог 1 := 1 60 пком 40 4Е со1[1]>0 Вел 1пс(3); 
СвескЕ1е1а := 3 
еп; {СВескг1е1а} 


Ргоседиге СпескКР1ау; 
{ Контроль окончания игры } 
уаг 
1 : Тлеедег; 
Ъедап {СВескР1ау} 
СовохУ (1,25); 
мх1 ее ('Введите 1, если хотите сыграть еще раз, 0 - выход: '); 
геаа1т (1); 
1Е 1=1 ЕВез срапде := ©гае е1ве ех1е := &гое 
епЯ; {СпескР1ау} 


Ргоседиге Р1ауег\У1свогу; 
{ Поздравить игрока с победой и усложнить игру } 
сопзЕ 
{1 = 'ПОЗДРАВЛЯЮ С ОТЛИЧНОЙ ПОБЕДОЙ! '; 
уаг 1 : Тпеедег; 
Беда п | 
СоЕохУ ( (80-Ъепаев (41)) ах 2,24); 
мг1$е]1лт (&1,#7); 


Бог 1 := 1 0 пгом ао 
+Е псо1[1]<МАХВОМ ЕВеп 1пс (псо1[1]); 
СвескКР1ау 


епа; {Р1ауегУ1сЕогу} 
(------------------------ не--+--=----} 
Ргосеаохге Омп\У1сеогу; 
{ Победа машины } 
сопзе 
{1 = 'ВЫ ПРОИГРАЛИ: СЛЕДУЮЩИМ ХОДОМ Я ВЕРУ ВЕСЬ РЯД '; 
уаг 
1 : Тлеедег; 
ред1п {ОилУ1сЕогу} 
1 := 1; 
мв11е со1[1]=0 ао 1пс (1); 
СофохУ ( (80-Бепаен (%1)) @х 2,24); 
мг1е ($1,1,#7); 
ае1ау (2000); {задержка на 2 секунды} 
со1[1] := 0; 
ЗВомЕ1е1а; 
СрескР1ау 
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епа; {ОмпУ1сЕогу} 


Ргосеаахе СпоозеМмоуе; 
{ Выбор очередного хода } 


сопзЕ 

ВТ = 6; {количество двоичных разрядов} 
фуре 

В1%&Туре = агхгау [1..ВТТ] оЕЁ Тпеедех; 
уаг 


псЬ1* : агхгау [1..МАХВОЙМ] оЕ ` ВАСТуре; 
1,),КкК : Тпедек; 
пр1Е : В1Туре; 


Ргосе4иге В1ЕРГоги(п ; Тпфедег; чак Ь : В1%Туре); 
{ Формирует двоичное представление Ь целого числа п } 
уаг 
1 : Тлеедег; 
Бедап (В1ЕГогт} 
Бог 1 := ВТТ аомпео 1 ао 
Ьед1п 
1Е оаа(п) ЕЗел [1] := 1 е1зе [1] := 0; 
п :3= п ЗВ 1 
епа 
еп@; (В1ЕКГогпт} 
нененн------------------ ------- } 
Бед1п (СВоозеМоуе} 
{Найти двоичное представление количества фишек во всех рядах:} 
Бог 1 := 1 ®0 пгом ао ВЕЕРОГМ (Со1 [1], пср1Е[]); 
{Найти сумму разрядов по модулю 2:} 
Бог 1 := 1 © ВТ ао 


Бед1п 
пЬ1 [1] := 0; 
ог ) := 1 &©0 пгом ао пЬ1{[1] := пр1[1] хех псЬ1е[),1] 
епа; 
{Найти 1 = старший ненулевой разряд суммы} 
1 :=1; 


мв11е пЬ1е[1]=0 ао 1пс (1); 
12 1>ВТТ &Ъеп | 
{Опасный вариант} 


Беда 
9 :=1; 
иБ11е со1[7]=0 ао 11с(7); {найти ненулевой ряд} 
К :=1 {взять из него 1 фишку} 
епа 
е1зе 
{Безопасный вариант} 
Бед1 о 
Я := 1; 
м!11е пср1е[-),1]=0 ао 11с(3); {найти нужный ряд} 


Бог 1 := 1 0 ВТТ ао 
3Е пь1е[1]=1 Без 
пср1е [71,1] := ога (псЬ1 [(),1]=0); (инверсия разрядов} 
К :=0; 
ог 1 := 1 ®0 ВТ @ 
Ъед1п 
+2 псЬ1*[),1]=1 Вел 1пс(К); 
1= 1<ВТТ Вел К := К $54 1 
ела; 
К := со1[3] - К 
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епа; 
Совохх (1,23); 
мг1 ее ('Мой ход: '); 
СофохУу (ИВегех-8,ИТегеу); 
де1ау (1000); 
мг1%е(),' ',К); 
со1[53] := со1[3]-К 
епа; {СрооземМоте} 


еее } 
Бед1п {5еЕОипехМоуе} 
саве СпескЕ1е1А о {проверить количество непустых рядов} 
0 : Р1ауекУ1своху; {все ряды пусты - победа игрока} 
1 : ОмпУ1своку; {один непустой ряд - победа машины} 
е1зе 
СвоозеМоте; {выбрать очередной ход} 


еп; [{сазе} 
епа; {5еЕОипегхМоуе} 


не нннненннннннн-н--------------------------- } 
Бед1п {Главная программа} 
пром := 3; { Подготовить игру } 
псо1[1] := 3; { на поле из трех } 
псо1[2] := 4; { рядов фишек ] 
псо1[3] := 5; 
гереаЕ { Цикл изменения условий игры } 
Ргераге; { Подготовить экран } 
гереае { Игровой цикл } 
СеёР1ауехМоуе; { Получить ход пользователя } 
ДЕ поЕ (ех1е ог сВапде) +Веп 
беЕОипехгМохе { Определить собственный ход } 


91611 ех1 ог срапае 
ипе11 ех1 
ег. 


15.4. ПРОГРАММА МОТЕВООК 


Описание программы см. п..15. 


Ргодгаю Мосероок; 
{Программа обслуживает файлы данных "записной книжки". 
Описание программы см. в гл.15} 
Озез Арр, ОБ)есез, Мепиаз, Бг1уехз, У1еиз, $%а101а, 00$, Мепоку, ПО1а1о9$; 
фуре 
{Объект ТИохКИ1п создает рамочное окно с полосами скроллинга 
для управления встроенным в него объектом ТТпЕек1ок} 

РИохКИ1п =^ТМогКИ1п; 

ТИохКИ1п = оБЗесе (ТИ1паом) 

СопзЕгисбок Тп1е (Воцпа$: ТЁКес®); 
епа; 


{Объект ТО19И1п создает диалоговое окно для выбора режима работы} 
Рр19\1п =^ТО1аИ1п; 
Т013\1п = оБЗесЕ (Т01а1о9) 
Ргоседоге НапЯ1еЕуеп* (хах Еуеп®е: ТЕуепе); \У1хе0а1; 
ела; 


{Следующий объект обслуживает внутреннюю часть рамочного окна ТИокКкИ1п. Он 
создает скроллируемое окно с записями из архивного файла и с помощью диалого- 
вого окна ТР19И1п управляет работой с этими записями] 

РТпбехг1ох =^ТТлеег1охг; 
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Т]пеег1ог = оБдесе (Т5$сго11ег) 
Р5$: Р5&х1паСо11ес&1оп; 
Тосае1оп: Мога; 
Сопзёгасеог 1п16(чаг Воппа$: ТВесе; Н$,У$: Р5сго11]Ваг); 
Ргосеацге Пгам; \У1х%0а1; 
Ргосеаиге КеааЕ11е; 
Резегасеог Попе; \У1х60а1; 
Ргоседиге Напа1еЕуеп® (маг Еуеп®е: ТЕхепе); \У1хвоа1; 
епа; | 


{Объект-программа ТМоЕероокК поддерживает работу с меню и строкой статуса] 
ТМокероок = оБзесЕ (ТАрр11са®1оп) 

Ргоседиге Тп1Е3фаеоазГ1пе; %1гх%1а1; 

Ргосеацке 1п1ЕМепиВаг; \У1Е®0а1; 

Ргоседиге Напа1еЕуеп* (уаг Еуепе: ТЕуеп®); У1к&чаа1; 

Ргоседиге Е11ебауе; 

Ргоседиге СпапдеП1г; 

Ргосеацге 1005Са11; 

Ргосе4иге Е11е0реп; 

Ргоседиге Могк; 


епа; 

сопзе 
{Команды для обработчиков событий: } 
смсро1 Е = 202; {Сменить каталог} 
спИогк = 203; {Обработать данные} 
спро$ = 204; (Временно выйти в ДОС} 
спСап = 205; {Команда завершения работы} 
спре1е ке = 206; {Уничтожить текущую запись} 
спбеагсв = 207; (Искать нужную запись} 
спЕЯ1 = 208; {Редактировать запись} 
спАаа = 209; (Добавить запись} 


{Множество временно недоступных команд:} 
М1пСом1: ТСоптапабее = [стбауе, спМогк]; 
И1пСом2: ТСопмапа$ее = [спОреп]; 


ТМаше = 25; {Длина поля Мате} 
ГРВопе= 11; {Длина поля РВопе} 
ГАааг = 40; {Длина поля Аааг} 
ТГ1пе = ГМаще+ГРВопе+ЬАааг; {Длина строки} 
фуре | 
РафхаТуре = гесогка {Тип данных в файле} 
Маме : ЗЕг1па [ТМапе]; {Имя} 
Рпопе: $5&х1п9 [1Рропе]; {Телефон} 
Аааг : Зегзаа [ГАЗаг] {Адрес} 
ела; 
уах 
Рафаг11е: #11е оЕ ПабаТуре; (Файловая переменная} 
ОрЕ11еЁ : Воо1еап; {Флаг открытого файла} 


Пе } 
Сопзскисвог ТМогКкИ1п.Тп1 (Воипа$: ТВес®); 
{Создание окна данных} 
уаг 
Н$,\5: Р5сго11Ваг; {Полосы-указатели} 
То$егзог: Р1ТпЕег10:; {Указатель на управляемое текстовое окно} 


Бед1п 
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ТИ1паом. Тп1* (Воцпа$,'',0); {Создаем новое окно с рамкой} - 


СеёСс11р8Весе (Воцпаз); {Получаем в ВО0МО$ координаты 
минимальной перерисовываемой части окна} 
Воцпаз.Ском (-1,-1); {Устанавливаем размеры окна с текстом} 


{Включаем стандартные по размеру и положению полосы-указатели; } 
У5 := 56апдага$сго11Ваг (56Уег*1са]1+$ЪНапа1еКеуВоага) ; 

Н5 := Зфап4ага$сго11Ваг ($ЬНог12опа1+$ЬНапа1еКеуВоага); 
{Создаем текстовое окно:} 

Тпеег1ог := Мем (РТлЕег1ох, Гп1 (Воппа$, Н5, \5)); 


Тпзеге (Тпбег1ог) {Включаем его в основное окно} 
епа; {ТИогхкИи1п. Тп1Ё} 


Рхгосе4иге Тр013\1п.Напа1еЕуеп*; 
Ъед1п 
Тарег1феа Напа1еЕуеп® (Еуеп®); 
1Е Буепе.Мпае=еуСомтапа еп 
ЕпаМода1] (Еуеп* .Сопмтапа) 


Ргоседиге ТМофероок.Е11еОреп; 

{Открывает файл данных} 

уаг | 

РЕ: РЕ11е01а1о9; {Диалоговое окно выбора файла} 

Сопёго]: Мога; 

3: РаЕер5ег; 
ред1п 

{Создаем экземпляр динамического объекта:} 

Мем (РЕ, Тп1%('*.дае', 'Выберите нужный файл:','Имя файла! , ЕЯОрепВц® *оп,0)); 
{С помощью следующего оператора окно выводится на экран и результат работы 
пользователя с ним помещается в переменную СопЁго]1:} 

СопЕго1 := ВезКТор^.ЕхесУ1еч (РГ); 

{Анализируем результат запроса: } 

сазе СопЕго1 оё — 

$41013 .стЕ11еОреп, спок: 
Беда | {Пользователь указал имя файла: } 
РЕ^.СефЕ11еМапе (5); {3$ содержит имя файла} 
А$51ап (РафаЁ11е, 5); | 
{$1-} 
Везее (РафаЕ11е); 
1Е ТОВеза1Е <> 0 ЕЪеп 
Веиг1+е (РафаЕ11е); 
ОрЕ11еЁ := ТОБези1{=0; 
{51+} 
+$Е ОрЕ11еЕ ЕВеп 
Бед1п 
21 за 1еСотштапаз (\1пСоп2); 
ЕпаБ1еСоптапа$ (\1пСом1); 


Моск {Переходим к работе} 
епа 
епа; 
еп@; {сазе СопЁго1} 
21зрозе (РЕ, Ропе) {Уничтожаем экземпляр} 
ера; {Г1]ебреп} 
(------------------ } 


Ргосед4аге ТМовеБооКк.Е11ебауе; 
{Закрывает файл данных} 
Беда п 
С1озе (РафаЁР11е); 
ОрЕ11еГ := Ра15е; 
Епа1еСомтап@$ (\1пСот2); {Разрешаем открыть файл} 
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215аь1еСоттапа$ (И1пСопм1) 
ета; (Т№обероок.ЕР!11ебауе} 


Рхоседиаге ТМофеБооКк.Спапдер1хт; 
{Изменяет текущий каталог} 
уах 
РО: РСРО1хО1а1оа; 
Сопфго1;: Мога; 
Беда 
Мем (РО, Тп1% (сЯМ№огта1,0)); 
Сопёго1 := БезкКТор^.ЕхесУ1ем (РО); 
СВО1х (РО^.01х:Тприе^.Бафа^); 
015розе(Ро, Вопе) 
епа; {Т№осероок.Срвапдер1г} 


Ргосеацге ТМосероок.пО$Са11; 
{Временный выход в ДОС} 
сопзе 


{Запрещаем работу и сохранение} 


{Диалоговое окно смены каталога/диска} 


{Создаем диалоговое окно} 
{Используем окно} 
{Устанавливаем новый каталог} 
{Удаляем окно из кучи} 


ЕхЕ ='Для возврата введите ЕХТТ в ответ!+ 


' на приглашение ДОС...'; 

Ред1п 

РопеЕуеп{ф $; 

Ропе\у1аео; 

Ропемепогу; 

ЗееМепТор (НеарР®г); 

Мг1веГл (&х*); 

ЗмарУесвог$; 


{Закрыть обработчик событий} 
{Закрыть монитор экрана} 
{Закрыть монитор памяти} 
{Освободить кучу} 

{Сообщить о выходе} 

{Установить стандартные векторы} 


{Передать управление командному процессору ДОС:} 


Ехес (бееЕпу ('СОМ$РЕС!),'!'!); 
{Вернуться из ДОС:} 
ЗмарУесвог$; 
5еМептТор (НеарЕпа) ; 
Тп1ЕМемогу; 
1п11%\У1аео; 
1п1%Еуепез; 
111 Зу$ёЕггог; 
Веагам 

епа; {20$5Са11} 


СопзЕгасбок ТТпбег1ог.1п1%; 
{Создает окно скрроллера} 
Ъедап 

Т5сго11ег.1п1® (Воцпа$, 

ВеаЯЕ1]е; 

СгомМоае := чЕСгомН1Х+9ЕСгомН1У; 


Н5, У5); 


5ее111 (.1пе, Р5^.СоцпЕ) 
епа; 
{----------------- } 
резегисвог Ттпеег1ог.Попе; 
Ьедап 


015розе (Р5,ПБопе); 
Типрег1$еа Попе 
епа; 


Ргосеаоге ТТпЕег1ог.ВеааЕ1]е; 


{Восстановить векторы} 
{Восстановить кучу} 

{Открыть монитор памяти} 
{Открыть монитор экрана} 
{Открыть обработчик событий} 
{Открыть обработчик ошибок} 
{Восстановить вид экрана} 


{Читает содержимое файла данных в массив ГТМЕ$} 


уаг 
К: Тобедег; 
$: 8ЕЕ4214; 
Рафа: РафаТуре; 
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Е: Фехф; 
Ьед1п 
Р$ := Мем (РЗ г1п9Со1]есе1оп, Тп1(100,10)); 
зеекК (РафаЕ11е,0); 
м811е по (ЕОЕ(РафаЁ11е) ог ГомМетогу) 4о 
Ъед1п 
Веаа (РафаЁ11е, Чака); 
иТЕВ Дафа ао 
Бед1п 
$ := Мате; 
у\531е Гепа®В (5) < Мате @о 
3 := 5+1; 
$ := $+РВопе; 
мЬ11е ТепаеН ($) < ТМаме+ЬРВопе @о 
$ := 5+1 1; 
$ := 5+АЧах 
епа; 
1Е 5<>'' Вел Р5^.Тазеке (Мембех (5)) 
епа; 
Госа&1оп := 0; 
еп; {Кеааг11е} 


Ргосеасхе ТТп%ег1ог.Охами; 
{Выводит данные в окно просмотра} 


уаг 
п, {Текущая строка экрана} 
К: Тлеедег; {Текущая строка массива} 


В: ТОгамВоЕЕег; 
Со1ог: Вуе; 
р: РЗЕЕ11па; 
Бед1п 
1Е ПРе1*а.У>Госа®1оп веп 
Тосае1оп := Бе1а.У; 
1Е Госа*1оп>0е1$а.У+ргеа (512е.у) ЕПеп 
Тоса®*1оп := Ое1*а.У+ргкеа ($12е.У); 
Бог п := 0 Во ргеа (512е.у) @о 
{512е.У - количество строк окна} 
Бед1п 
К := Ое1ба.У+п; 
12 К=Госа®е1оп ®Веп 
Со1ох := СееСо1окх (2) 
е1зе 
Со1ог := СбееСо1ох (1); 
МотеСсваг (В,' ',Со1ох,512е.Х); 
1Е К < рхеа(Р$^.Соцпе) ЕВеп 
Бед2п 
р := Р$^.АЕ (К); 
Мотебех (В, Сору(р^,ШБе1а.Х+1,512е.Х),Со1ог); 


епа; 
Мг ер1пе (0,№,512е.Х,1,В) 
епа 
епа; (ТГпЕехлог.Огаи} 
(------------------- } 


Боасезоп Сопего1: Мога; 
{Получает команду из основного диалогового окна} 


сопзЕ 
Х = 1; 
Ъ = 12; 


Рх= 13; 


Тексты программ 605 


Во: аггау [0..4] оЕ 5ёгала [13] = {Надписи на кнопках:} 
('-1- Выход ','-2- Убрать ','-3- Искать ','-4- Изменить ','-5- Добавить '); 
Тхе: аггау [0..3] оЕ $%Е4та [52] = ( 
{Справочный текст:} 
'Убрать - удалить запись, выделенную цветом!, 
'Искать - искать запись, начинающуюся нужными буквами", 
'Изменить - изменить поле (поля) выделенной записи', 
‘Добавить - добавить новую запись!'); 
уах 
В: ТВесЕ; 
2: РО19М1п; 
К: Тпфедег; 
Бед1п 
В.Аз$1ат (7,6, 74,15); 
р := М№ем (РО19\1пт, Тп1 (В, Выберите продолжение:')); 
"1ЕВ 0^ ао 
Бед1п 
Бог К := 0 &®0 3 а {Вставляем поясняющий текст} 
Бед1п 
В.Аз51ап (1,1+К,65,2+К); 
ТпзегЕ (М№ем (Р5ха&1сТехф, 111% (В,#3+Тхе[К]))) 
епа; 
ог К := 0 4 @ {Вставляем кнопки: } 
Бедап | 
В.А$$1ап (Х+К*ОХ, 6, Х+К*ОХ+1, 8); 
ТпзехЕ (М№ем (РВаеболп, 
Тп1 (В, Вице [К], смСап+К,БЕМ№огма1))) 


епа; 
Зе1ес+Мех* (Га15е); {Активизируем первую кнопку} 
епа; 
СопЕго1 := РезКТор^.ЕхесУ1ем (р); {Выполняем диалог} 
еп; {СопЕго1} 
{----------------- } 


Ргоседиге ТТпеег1ог.Напа1еЕуепс; 
Ргосеаоге Пе1ефетееп; 
{Удаляет указанный в Госа1оп элемент данных} 
чаг 
О; Тобедегк; 
Р5&г: Р5&г1па; 
3: 5%:2119; 
Рафа: РакаТуре; 
Бед1п 
Р5ЗЕг := Р5^.АЕ (Госа®1оп); {Получаем текущую запись} 
$ := сору (РЗЕгГ^,1,1Мапе); 
зеек (РафаЕ11е,0); 


р := -1; {2 - номер записи в файле} 
гереаЕ {Цикл поиска по совпадению поля Мате:} 
1пс (0); 


геаа (РафаР11е,рРафа); 
и1ЕВ Рафа Чо мВ11е Гепдев (Маме) < ТМаме ао 
Маме := Маме+' ' 
11611 Пафа.Мацще=$; 
зеекК (РафаЕг11е,ргеа (Е11е512е (РафаЕ11е))); 


геаа (РафаЁ11е,Пафа); {Читаем последнюю запись} 

зеекК (РафаЕ11е,р); 

уг1{е (РафаЕ11е,Пафа); {Помещаем ее на место удаляемсй} 
зеек (РафаЁЕ11е,ргеа (Е11е512е (РакаЕ11е))); 

Егопсаее (РафаЕР11е); {Удаляем последнюю запись} 


и1ЕВ Р5^ Чо р := глаехоЕ (А+ (оса 1оп)); 
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Р5^.АбсЕгее (0); | ’{Удаляем строку из коллекции} 
Ргам {Обновляем окно} 

еп; {Ре2еЕе!ГЕеп} 

[------------------ } 


Ргоседиахе АЗатТтЕепм(Еа1*е: Воо1еап); 
{Добавляет новый или редактирует старый элемент данных. 
сопзЕ 

у = 1; 

ду= 2; 

. = ГМапе+1Рвопе+ГАааг; 
уагх 

Рафа: РафаТуре; 

В: ТВесЕе; 

ТпИ1п: РО1а1оа; 

ВМаме, ВРВопе, ВАааг: РТпраЕГ1пе; 

СопЕго]: Мока; 

01ЧСоцпе: Мога; 

$: ЗЕЕапа; 

Р: РЗ&г1па; 
Бед2п 

ЗеекК (РафаЕ11е,Е11е5127е (РабаЕ11е)); {Добавляем записи в конец файла} 

гереае {Цикл ввода записей} 

1Е Еа1е ЕВеп {Готовим заголовок} 
$ := 'Редактирование:' 
е?1зе 
Бед1п | 
ЗЕг (Е11е517е (РафаЕ11е)+1,$); 
м511е Гепдев ($) < 3 4 
3 := '0'+5$; 


$5 := 'Вводится запись М '+5 
епа; 
Е11]СВаг (Рафа, $12е0Е (Вафа),' '); {Заполняем поля пробелами} 
В.Аз$1ап (15,5,65,16); | 
ТпМ1п := Мем (РО1а1оа, 111% (В, $5)); {Создаем окно} 
УТЕВ ТпМ1п^ ао 
Бед1п {Формируем окно:}. 
В.А551ап (2,у+1, 2+1Мапе, у+2); 
ВМаме := Мем (РТпраеЬ1пе, 1п1& (В, ТМапе)); 
Тлзег® (ВМапе); {Поле имени} 


В.Азз1ап (2,у, 2+1Маме, у+1); 

ТпзегЕ (М№еи (РГаБе1, 

1116 (В, 'Имя',ВМаме))); 

В.Азз1апт (2, у+ау+1, 2+РПпопе, у+ау+2); 

ВРВопе := Мем (РТпраЕЬ1те, 

Тл16 (В, ГРВопе)); 

Тпзег® (ВРВопе); {Поле телефона} 
В.А$$1ат (2, у+ау, 2+.Рвопе, у+ау+1); 
Тпзег* (Мем (РЬафе1, 111% (В, 'Телефон',ВРВопе))); 
В.Аз51ап (2,у+2*9у+1,2+Аааг, у+2*ау+2); 

ВАаЯх := Мем (РТпра1пе, 1п1 (В, ГАааг)); 

Тлзег* (ВАааг); {Поле адреса} 
В.Азз1ат (2, у+2*ау, 2+ГАаах, у+2*4у+1); 
Тлзеге (М№ем (РГаБе1, 

1116 (В, 'Адрес',ВАааг))); 

{Вставляем две командные кнопки:} 

В.Аз51ап (2,у+3*ау+1,12,у+3*ау+3); 
Тпзег® (Мем (РВае®оп, 

111% (В, 'Ввести', споОК, БЕБеЁац1*))); 

В.Азз1ат (2+20,у+3*4у+1,12+20,у+3*ау+3); 
Тлзег® (М№ем (РВиеФоп, 
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1116 (В, 'Выход', смСапсе1,ЬЁМогма1))); 


5е1ес*М№ех* (Га15$е) {Активизируем первую кнопку} 
епа; {Конец формирования окна} 
1Е Еа1е ЕЪеп м1ЕЪ Пафа о 
Бед1п {Готовим начальный текст: } 
р := Р5^.АЕ (Ъосае1оп); {Читаем данные из записи} 
$ = р^; 
Маше := сору($,1,1ТМапе); 


РВопе:= сору($,зисс (Маме) ‚ .Рвопе); 
АЗаг := сору (5$, асс (1Маме+[Рропе) , ГАааг); 


ТрИ1п^ .беерафа (Рафа) {Вставляем текст в поля ввода} 
епа; 
СопЕго1 := ОезКТор^.БхесУ1ем (ТпМ1п); {Выполняем диалог} 
1Е СопЕго1=смоОК евеп ч1ЕЬ Баба &о 
Бедап 


1Е ЕЗ1Е &Ъеп 


Ре1ефёет!Теепм; {Удаляем старую запись} 


Маме := ВМате^.ПРафа^; 

Рпопе:= ВРропе^.рафа^; 

Аг := ВАааг^ .Рава^; 

$[0] := сВЕ(Ъ); 

Р11]СВаг ($[1],Ь,' '); 

поуе (Мате [1],5[1],ГепаеН (Маме) ); 

поуе (РВопе [1],$ [$асс (ТМапе) ], Гепаев (РПВопе)); 

поуе (Ааах [1], 5$ [5исс (ТМате+ГРпопе) ],цепдер (Аааг)); 


О1АСоспЕ := Р$5^.Соцпе; {Прежнее количество записей} 
Р$^.ТпзегеЕ (Мембех ($)); {Добавляем в коллекцию} 


{Проверяем добавление} 
1Е О1аСоцпЕ <> Р5^.Соцпе &Веп 


Иг1 {фе (РафаЕ11е,рПафка) {Да - добавляем в файл} 


епа 
10611 Еа1е ох (Сопёго1=стСапсе1); 
Ргам 
еда; {дааТЕет} 
{-----------=------ } 
Ргоседаге ЗеагснТ+еп; 
{Ищет нужный элемент} 
РапсЕЗоп Орбег1па (5: 3.419): 56Е1п9; 
{Преобразует строку в верхний регистр} 
уах 
К: Тпбедег; 
Бед1п 
Бог К := 1 во тепдЕв (3) ао 
1Е $[К] 2“ ['а'..'2'] &ЪВез 
$[К] := срг(ога('А')+ога ($ [К])-оха ('а')) 
е1зе 1Е $[К] 31 ['а'..'п'] ЕЪеп 
$[К] := срг(ога('А')+ога ($ [К] )-оха('а')) 
е1зе 1Е 5[К] 20 ['р'..'я'] ЕЪеп 
$[К] := СВЕ (оха('Р')+оха ($[К])-ога('р')); 
Ор5Ег1п9 := 5 
ера; {ОР5ЕГ1па} 


уаг 
ТпИ1п;: РО1а1од; 
В: ТВесЕ; 


$: ЭЕгапа; 
р: РТпраеГ1те; 
К: Мога; 
Ъедап  (5еагсрГЕепт} 
В.Азз1ап (15,8,65,16); 
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ТпМ1п := Меи (РР:а1од, 
Тп1* (В, 'Поиск записи:'!)); 
УТЕВ ТпИ1п^ ао 
Беда 
В.Азз1ат (2,2,47,3); 
р := М№ем (РТпраеГ1те, Тп1(В,50)); 
Тлзег® (р); 
В.Азз1ап (1,1,40,2); 
Тпзег* (М№еи (РГаБе1, Тп1% (В, 'Введите образец для поиска:',р))); 
В.Аз$1ап (10,5,20,7); 
Тпзег® (№ем (РВабФоп, Т1п14 (В, 'Ввести!, спок, ЬЕРеЁЕац1*))); 
В.Азз1ат (25,5,35,7); 
Тпзег® (Мем (РВаб оп, 1п1 (В, 'Выход'!, стСапсе1,ЪЁЕМ№огма1))); 
Зе1есЕМехе (Га1зе) 
епа; 
Е ОБезКТор^.Ехес\У1ем (ТпИ1п) = стСапсе1 ЕВеп 
ех1{; 
3 := р^.Бафа^; 
Тосае1оп := 0; 
иВ11е (0р5%г1па ($) >= Ор5Ег1па (РЗЕг1па (Р5^.АЕ (оса Е1оп))^)) 
ап (ТосаЕ1оп < ргеа(Р$5^.Соцпе)) ао 
1пс (оса 1оп); 
1Е (Тосаё1оп < Пе1*а.У) ог (Госае1оп > ПБе1а.У+ргеа (512е.у)) СВев 
5$сго11То (Ре16а.Х, оса 1оп) 
е1зе 
Ргам 
епа; {беаксАТЕепт} 


чах 
В: ТРо1пе; 
1аЪе1 С1$; 
Ъед1п 
Т5сго11ег.Напа1еЕуеп® (Еуеп®); 
сазе Еуепе.ИПае о 
еуСогмапа: 
сазе Еуеп®.Соптапа о 
спС1о5е: 
Бед1п 
С13$: 
сазе Сопего]1 оЁ {Получить команду из основного диалогового окна} 
сиСап, 
спСапсе1: ЕпЯМоаа1 (спСапсе1); 
спЕЯ1 : АааТееп (Тгое); 
спре1еёе: ПРе1екетТесп; 
спбеагсв: ЗеагсПТезл; 
спАаа : АааТееп (Га15е); 
епа 
епа; 
спбоом: ех1*; 
епа; 
сУмоцзеромтп : {Реакция на щелчок мышью} 
Беад1п 
МаКеГоса1 (МоцзеИЬеге, В); {Получаем в К локальные 
координаты указателя мыши} 
Тоса*1оп := ОБе]*а.У+В.У; 
Огам 
епа; 
еуКеуромт : {Реакция на клавиши + -} 
сазе Еуепе.КеуСоде о$ 
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КЬЕзс: дово С15; 
КЬСгауМ1тпа$: 4 ГосаЕ1оп > Бе1фа.Уу +Веп 


Беда 
дес (Госа®1оп) : 
Ргам 
епа; 
КЬСгауР1а5$: 4 Тосае1от < Бе1%а.У+ргеа (512е.у) +Веп 
Бедап 
1пс (ГосаЕ оп) : 
Ргам 
ела; 
ела 
епа 
епЯа; {ТГпЕех1ог,Напа1еЕуептЕ} 
няне } 


Ргосеасге ТМобероок.Могк; 
{Работа с данными} 
уаг 
В: ТВесЕ; 
РИ: РМогКИ1п; 
СопЕхо]1: Могка; 
Ьед1п 
В.А551ап (0,0,80,23); 
РИ := М№ем(РИохКИ1п, Тп1е(в)); 
СопЕго1 := БезкКТор^.ЕхесУ1ем (РИ); 
21зрозе (РИ, Бопе) 
епа; 


Ргосеасге ТМоеероок.Напа1еЕуепе (чак Еуепе: ТЕуепе); 
{Обработчик событий программы} 
Бедал — {ТМ№оЕероок,Напа1еЕуепЕ} 
ТАрр11сае1оп.Напа1еЕуеп* (Еуеп®); {Обработка стандартных 
команд стбди1Е и стМепи} 
1Е Еуепе.Мнаф = еуСопмапа &Веп 
сазе Еуеп®.Сопмтапа о 
{Обработка новых команд:} 


стОреп: Е11еОреп; {Открыть файл} 
спбауе: Е11ебауе; {Закрыть файл} 
спСВапаер41г : Спапдаер1г; {Сменить диск} 
строО$5ре11 ; 005Са11; . {Временный выход в ДОС} 
СПИохК : Могк; {Обработать данные} 
е1зе 
ех1 | {Не обрабатывать другие команхы} 
епа; 
С1еагЕуеп® (Еуеп®) {Очистить событие после обработки} 
еза; {Т№овероок.Напа]1]еЕуепЕ} 
----- ==. ---- ] 


{ 
Ргоседиге ТМосеБооКкК.Тп1ЕМепоВаг; 
{Создание верхнего меню} 


тар 


В: ТВесе; 
Бот 
СезЕхееп® (В); 
В.В.У := $51асс(В.А.У); {В - координаты строки меню} 
МепоВаг := Мем (РМепоВаг, Тп1е (в, 
МеиМепл ( {Создаем меню} 


{Первый элемент нового меню представляет собой 
подменю (меню второго уровня). Создаем его} 
МембаБМепа ('-ГР-/Файл', ВсМоСопеехЕ, 

{Описываем элемент главного меню} 
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ая 


МемМепи ( {Создаем подменю} 
МеитЕет ( {Первый элемент} 
'-1-/ Открыть', 'Е3',КЬЕЗ, спОреп, ВсМоСоп*ех*, 
МеитТеем ( {Второй элемент} 
'-2-/ Закрыть!, 'Е2', КЬЕ2, спбахе, псМоСопеехе, 
МемТКем ( {Третий элемент} 
'-3-/ Сменить диск','',0, спСВапаер1г, псМоСопфех®, 
Мем!1пе ( {Строка-разделитель} 


МемТфепм('-4-/ Вызов ДОС','!',0, спро$$4Ве11, В сМоСопеехе, 
МеиТеем('-5-/ Конец работы', 'А1-Х', КЬАТЕХ, стоп, ВсМоСопеехе, 
№1.)))))) {Нет других элементов подменю} 
), 
{Создаем второй элемент главного меню} 
МеиТеепм ('-И-/ Работа!,'',КЬЕ4, спМогКк, ВсМоСопвехЕ, 
МТ) {Нет других элементов главного меню} 
)))) 
епа; {ТМ№оЕероок. Тп1ЕМепиВаг} 


Ргоседахе ТМосероок. Тп1Е 5$ а*и$11пе; 

{Формирует строку статуса} 

уаг 
В: ТВесе; {Границы строки статуса} 

Бед1п 
СеЕЕхееп* (В); {Получаем в В координаты всего экрана} 
В.А.У := ргеа(вВ.В.У); | 


ЗЕафсаз1пе := М№ем (Р5вбавозЬ1пе, 
111 (В, {Создаем строку статуса} 
° Мембфаеоз,еЕ (0, $ЕЕЕЕ, | {Устанавливаем максимальный 


диапазон контекстной справочной службы} 
Менб+аеизКеу ('-А1+-Х- Выход', КЬА1еХ, смОо1е, 
МеибсаеазКеу ('-Е2- Закрыть', КЬЮР2, стбауеР11е, 
Менб+аеизКеу ('-ЕЗ-> Открыть', КЬРЗ, стОрепЕ11е, 
МенбфаеизКеу ('-Е4- Работа', КЬЕ4, спМогк, . 
МеибфафкизКеу ('-Е10- Меню', КЬЕ10, спМепа, 
м1.))))), {Нет других клавиш} 
ТГ) {Нет других определений} 
)); 
215аЪ]еСомтапа$ (№М1пСом1) {Запрещаем недоступные команды] 
епа; {ТМ№оЕероок. Тп1Е5Еави$11пе} 


уаг 
№роок: ТМофбеьоок; 

редап 
№ооКкК. Тп1 Е; 
МБоок.Вап; 
№ооКк.Вопе 

епа. 
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Л.8. Шумаков, 8.8, Фаронов 


Технология разрадотки 
ПРИЛОЖЕНИЙ 543 данных 
на Вер! 4 


8 
Фотовится 


К бипус ву! 


Эта книга 
рассматривает один из 
важнейших аспектов 
современного 
программирования - 
работу с базами 
данных. Книга 
разбита на две части. 
В первой 
рассматриваются 
общие вопросы 
‘построения 
‚приложений и 
средства, не зависящие 
от выбранной архитектуры базы данных. Во второй 
части книги рассматриваются вопросы построения 
приложений в архитектуре «клиент-сервер». 
Изложение ведется на основе исследования 
возможностей эОГ-сервера ВоЙапд ПуегВазе 
(локальная версия которого поставляется вместе с 
Рефры). Параллельно показывается, как те или иные 
средства серверной базы данных могут 
использоваться в приложениях Оеры. 
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8.9, Шамис 


Волайа С++ ВиЧе 3, 


Программирование 5ез проблем 


Книга посвящена 
наиболее 
перспективному 
компилятору С++. 
В ней рассмотрены 
среда данного 
компилятора и его 
особенности, 
современные 
методы 
программирования, 
реализованные для 
С++, стройная 
компонентная 


и у 


мя ны 


242: 


#3 


ик 
м 

С’ 
то 
Е 


модель, расширенные средства управления 
проектами, технология двусторонней интеграции 
приложений, синхронизация средств визуального 
и текстового редактирования, а также удобный 
встроенный отладчик - благодаря чему 
С++Ви!4ег 3 предоставляет собой 
впечатляющую среду разработки. Книга 
снабжена большим количеством оригинальных 
примеров и будет полезна широкому кругу 


программистов. 


В.Л, Дьяконов и Й.8, Ярраменкова 
Шалсяр 7.0 


в математике, Физике И в /Иегпе! 


Книга посвящена 
применению новейшей 
системы символьной 
математики МайСАШО 
7.0 РКО в массовых 
математических расчетах. 
При этом в качестве 
примеров применения 
системы взяты расчеты, 
встречающиеся при 
решении типовых задач в 
курсе физики для вузов. 
Впервые описана 
практика работы с 
р системой в глобальной 
сети Ниеше! . Такой подход ‘позволяет избавиться от 
абстрактности вычислений, принятой в справочной 
литературе по математическим расчетам и способствует 
развитию у учащихся интереса к математическим 
аспектам решения физических и научно-технических 
задач. Книга может использоваться в качестве краткого 
справочного пособия по решению задач математической 
физики с применением современных компьютерных 
математических систем. Для студентов и преподавателей 
вузов и университетов, а также для всех пользователей 
ПК, заинтересованных в их серьезном применении. 


Д.49, Рамолдии 


Волайа “ВИДЕ. 


Программирование ва ч“ауа 
563 ПРОБЛЕМ 


Отличительной 
особенностью 
содержащегося в книге 
материала является 
наличие фрагментов 
работающего 
проверенного кода, 
иллюстрирующего 
рассказы. Из этой 
книги пользователь 
узнает о том, как 
работать со средой 
разработчика ЛВа|дег, 
как пользоваться ее 
мастерами, как создавать пользовательский 
интерфейс с применением менеджеров 
расположения (1ауоц$), характерных только для 
языка программирования /Лауа. Читатель 
почерпнет знания о том, как создавать системы 
управления базами данных, и в заключение 
научится создавать свои собственные 
компоненты ГауаВеап$. 


бестселлер 


Ива! ДЕР ИГО Зотовится 


Рвого5вор 50. |“ 


Цифровая овравотка изображений 
5ез проблем 


Не будет преувеличени- 
ем сказать, что про- 
граммный пакет 
РВоюзпор фирмы АдоБе 
является в настоящее 
время общепризнанным 
стандартом для цифро- 
вой обработки изобра- 
жений. А в руках опыт- 
ного пользователя, будь 
он фотохудожником, 
журналистом или веб- 
дизайнером, этот про- 
дукт вообще превраща- 
ется в идеальное средст- 
во для редактирования любых электронных изображе- 
ний, последующей их обработки (сюда смело можно 
включить практически весь “багаж” современного 
фотографа, привыкшего добиваться дополнительных 
эффектов с помощью химических веществ и механиче- 
ских процессов), восстановления поврежденных изо- 
бражений, ретуширования фотографий, составления 
самых фантастических коллажей, которые только мо- 
жет позволить себе наше воображение. 


«ДЛЯ ЗАМЕТОК» 


«ДЛЯ ЗАМЕТОК» 


«ДЛЯ ЗАМЕТОК» 


Ваше имя: 
Возраст: _ (до16 [16-25 [25-40 [после 40. 
Образование: [среднее [Чнезак. высшее [высшее 


В настоящее время Вы: 

[3 студент [Фваша основная работа связана с компьютерами 
Оработаете, Ваша работа не связана с компьютерами 

[.] безработный 


Конфигурации Вашего компьютера: 

Процессор (производитель) 

ие! Г] х86 (АМО, Сихух, ОС, ВМ) [РомеРС [не знаю 
Процессор (мощность) 

386 и ниже г.]486 Г]Репнит []Репбит ММХ (ШРепнит 1 

|] Сеегоп Г] другое 

ВАМ 

С] до8мЬь [Г]12-16 МЬ [20-32 мМЬ [Ш л40-64 мь [больше 64 МЬ 


Используемая для работы среда 


(отметьте все используемые): 
(] 09$ С] \У/юз3.1 Ш Уп 95 [] М/л98 [] МИпмт 
С] чмх 90$/2 ЧЦимУХх — (Мас 0$ — Ш другое 


Имеется ли компьютер 
С. дома [] только на работе Си дома, и на работе 


Имеете доступ к тРегпеЁ, вид связи: 
(.] модемная выделенная []нет 


Ваш провайдер 


Имеется ли у Вас собственная страничка [Г] да [нет [.] создается 


Ее адрес 
Опыт работы: 
[] нет опыта [] начинающий пользователь 
(] опытный пользователь [] программист 
[(] администратор [] тех. специалист 
Область интересов: 
[] ойсе и бухгалтерия [] графика и анимация 
С верстка [.] игры 
(] информационные [] программирование 
технологии и п1етпе! — [] ммеБ-дездп 
[3 работа с БД [] сетевые технологии 
С аппаратное обеспечение 
] другое 
Какие версии программ Вы предпочитаете использовать? 
|] оригинальные (англоязычные) [3 локализованные (русифицированные) 


[С Без разницы 


Расставьте, пожалуйста, в приоритетном порядке (1—7) значимость 
для Вас источника получения информации по работе на компьютер: 


_=# интернет, электронные конференции -Э книги 
Ч компьютерные журналы 1 курсы, выставки, семинары 
С встроенные описания (Бер) 2. коллеги, друзья, знакомые 


Г» 
эр». 


_^_ мультимедиа-продукты (+4юпа!) 


Какие программные средства, выпущенные в последнее время, 
кажутся вам наиболее интересными и перспективными? 


Продуктами каких фирм Вы интересуетесь? 


М Мегозо_ У] Адоье $} Соге! [] Очаг [.] Войапа 
] Зутамес Г] Ме саре [] Ацюаезк [ПП 1о$ _] М№оуе! 
(] Масготефа [.] Огасе (] Отечественных 

(] другое 


Какие интересные и необходимые в работе книги вы приобрели 
бы, если бы увидели в продаже? Какой софт недостаточно осве- 
щен в печати? 


Если Вы начинаете пользоваться новым продуктом, всегда 
ли покупаете книги по этому продукту? 

[] никогда [иногда  [Пвсегда 

[] если не могу разобраться  {] если есть деньги 


Запоминаете ли Вы название издательств, книги которых покупаете? 


Мда! нет 


Какое издательство компьютерной литературы, на Ваш взгляд 
издает наибольшее количество интересных книг? 


Покупали ли Вы другие книги нашего издательства? ([]да [] нет 


Как Вы считаете, более интересны книги: 
[Я отечественных авторов [переводные 


Обращаете ли Вы на это внимание при покупке? 4 да ]нет 


Могли бы Вы стать автором или соавтором книги? 
да [да при наличии свободного времени нет 
Тема Вашей возможной работы 


Если возможно, укажите, пожалуйста, наиболее интересные сайты 
компьютерных новостей, сайты с полезными программами 


Какой из компьютерных журналов наиболее полно освещает круг 
интересующих Вас проблем? 


Благодарим Вас! 


"МЕ Ре —_ 26 5 


Валерий Васильевич Фаронов 
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Э- а также более 3-х тысяч других книг 
по компьютерным технологиям, экономике, 
юриспруденции и психологии вы можете 
приобрести в Москве по следующим адресам: 


° Фирма “Ридас”, М. Тульская, Новоданиловская наб. 9, 
тел. 954-30-44, 742-59-86 

. Филиал фирмы “Ридас”, М. Текстильщики, 
Саратовская ул. 8/1, 4-й подъезд, тел. 919-62-10. 


ли заказать по минимальным ценам 
у наших региональных представителей: 


. г.Владивосток «Эста» (4232) 29-43-20, 51-76-53, 
33-07-45 факс 
. г.Волгоград «Техническая книга» (8442) 36-35-97 
. г.Воронеж УБК «Барокко» (0732) 78-93-37 
. г.Донецк «Дом книги» 0622-55-7449 
. г.Иваново Магазин ООО «Мысль» (0932) 32-60-81 
. г.Иркутск «Продалит» (3952) 27-10-67 
. г.Н.Новгород ООО «Дефис» 8-8312-37-24-64 
. г.Новосибирск «Деловая литература» (3832) 35-48-42 
. г.Омск ООО ТД «Собрание сочинений» 
(3812) 401635, 652409, 333-9000 
. г.Самара «Чакона» (8462) 36-14-87, 41-39-57, 41-02-21 
. г.Санкт-Петербург «Символ плюс» 812-311-0626 
. г.Тамбов Магазин ТОО «Богема» 8-075-2-47-27-72 
. г.Тюмень Магазин «Знание-сила» 
. г.Уфа Книжный магазин «Букинист №15» (3472) 22-63-04 
. г.Хабаровск «Мирс» (4212) 34-30-29, 22-73-30 факс 
. г.Челябинск «Вива» (3512) 34-57-67 


С нашим ассортиментом Вы также сможете 
ознакомиться на И\егле-сервере: 


МЛАИМ!.ВЕАОВО$.ВО 


хонтоерекой И. #0. 


РЕ 5 
Е РИДАС*+ ВЕАО 0$ 2 
я Издательство и книжная торговля а 
Е представляет широкий ассортимент специальной литературы по: ыы 
ты персональным компьютерам бухучету (> 500 наим.) = 
м и программированию (>800 наим.) ый 
я электронике и технике (>300 наим.) праву (>500 наим.) ы 
= и 
„а экономике (>500 наим.) учебники (>100 наим.) ыы 
Ра Ы 
г психологии (>500 наим.) справочники (>300 наим.) 5 
и Различные формы и сроки оплаты, гибкая система скидок, ы 
Е в том числе и для мелкооптовых покупателей. ты 
т У нас только ИЗДАТЕЛЬСКИЕ ЦЕНЫ. е 
= Подробнее с нашим ассортиментом и условиями а 


ы сотрудничества можно ознакомиться на сервере ыы 


Е УГУ. ВЕАТО$.ВО. Е 


шт в 
ВЕ = 
не Приглашаем к сотрудничеству авторов и издательства, ы 
МГ <” <. Е: 
зе региональных представителей, рекламодателей. т 
М ны 
и ии 


ты Наши телефоны: т 
= тел./факс: (095) 954-3044, тел.: 742-5986 = 


Адрес: Москва, Варшавское шоссе, д. 9 ы 
п Вход со стороны набережной. = 
а <<—- Въезд на мост | | | и 
т =— ыы 


Б.Тульская Центр —Э> 


Варшавское шоссе 


НТ ГЕ: 
Е ыы р 

а ь м.Тульская ыы 
и = | первый вагон ы: 
ан = | из центра ы 
= ы 5 
|пыая НЯ 
ИЕ: — > — | © — — и: 

1 — Москва-река — ее _ =_= Е 
Е = = ее |-^ = = = и!!! 
Ш = зе = — = И |. — вне — НЕ 
ты р НЕ 
0-1 [= им 
НЕ: |->} ТП 
ны! Е: 
пе < =! 
1-0 им 
ы а 
Ре ИИ НИИ ЕСЛИ ИИ ЕСИ: ИИ И СПИ: ИС ИЕ СПИНЕ ВЯ ЗЫ 
ВЕ ПИ Е РОШ ПОЗОР ИИ НИЕ ВАН ПО-ВСИЕ ПИЕНР ВНЕ ПВН Пе ьН ВЫ ПО-ВЫЙ ПН-Ь 


Ориентируясь на то, что “опыт — сын ошибок трудных" 
Е Пути познания каждого индивидуума неисповедимы, автор 
попытался создать некую квинтэссенцию сухого справочника и пересказа живого 
опыта. Отметить те отправные точки, опираясь на которые, любознательный 
читатель захочет сам экспериментировать с программой. Автор уверен, что 
только в творческом союзе разработчиков и пользователей может родиться 
по-настоящему ценный и функциональный продукт. , 


опытов постарается показать, что 
На примере некоторых автор = у ли 


создал более 


